留言版和新闻系统一些常用的函数

原创 2004年07月20日 16:52:00
在读入数据库的时候用这个函数
<%
private function bha_sql_replace(ByVal str_txt)
'*************************
'功能:对用户输入进行安全检查,主要是防止SQL注入等行为
'返回值:字符串
'参数:str_txt(字符串)
'提供者:江一在线(蚂蚁商务)
'*************************
'其实这个函数原来很长的,
'为了以后还能正常显示我把其它语句都去了,
'以后显示的时候只把两个连续单引号替换成一个单引号就可以原样输出了,
'其它的一些替换,我认为在做留言板或文章系统的时候没有很大的必要去替换,既使替换了,再显示新闻的时候也会变的乱七八糟
'江一的原函数如下
'---------------------------------------------------
'private function bha_sql_replace(ByVal str_txt)
'str_txt=Replace(str_txt,"""","'")
'str_txt=Replace(str_txt,"'","")
'str_txt=Replace(str_txt,"%","")
'str_txt=Replace(str_txt,"&","")
'str_txt=Replace(str_txt,"<","")
'str_txt=Replace(str_txt,">","")
'bha_sql_replace=str_txt
'end function 
'---------------------------------------------------
str_txt=Replace(str_txt,"'","''")
bha_sql_replace=str_txt
end function 
%>
在web页面显示留言用这个函数
<%
Function GAMVANHTML(result)
'*************************
'功能:让数据库的文字按原格式输出,实现空格,软硬回车和TAB功能,
'     并支持贴图,居中,斜体和黑体
'     用于小型新闻和文章系统的内容输出
'返回值:字符串
'参数:result(字符串)
'提供者:我容易吗我(今晚在线)
'*************************
if not isNull(result) then
       result = Server.HtmlEncode(result)
       result = replace(result,"''","'")
       result = replace(result,vbcrlf,"<br>")
       result = replace(result," ","&nbsp;")
       result = replace(result,chr(9),"&nbsp;&nbsp;&nbsp;&nbsp;") 'Tab键
       result = Replace(result,"me       result = Replace(result," border=0>"," border=0>")
       result = Replace(result,"","<b>")
       result = Replace(result,"
","</b>")
       result = Replace(result,"","<i>")
       result = Replace(result,"
","</i>")
       result = Replace(result,"
","<center>")
       result = Replace(result,"
","</center>")
       GAMVANHTML=result
else
       GAMVANHTML= "没有内容"
end if
end Function
%>
在编辑的时候,内容又被输入到了文本框里,用这个函数就可以自动换行了。
其实我认为不做任何函数就可以正常显示的
<%
private function bha_display_text(str)
'------------文本框里显示的函数
bha_display_text=replace(str,"''","' ")
bha_display_text=replace(str," "," ")
bha_display_text=replace(bha_display_text,"<br>",chr(10))
bha_display_text=replace(bha_display_text,"</p><p>",chr(10)&chr(10))
end function
%>
如果是用在线编辑器编辑数据库内容的话,把数据库输出到ifrme时调用一下下面的函数
<%
'此函数由今晚在线提供,功能是反html并可以放到ifrme里,保证读出来的东西都放在ifrme里
Function unGAMVANHTML(fString)
    'if fString<>"" then
             fstring=cstr(fstring)
            fString = Replace(fSring,"''",",")
            fString = Replace(fString, "&","&amp;")
            fString = Replace(fString, "<","&lt;")
            fString = Replace(fString, ">","&gt;")
            fString = Replace(fString, CHR(34), "&quot;") '双引号
            fString = Replace(fString, CHR(39), "&#39;")  '单引号
            unGAMVANHTML = fString
    'end if
End Function
%>

新闻个性化推荐系统(python)-(附源码 数据集)

1.背景       最近参加了一个评测,是关于新闻个性化推荐。说白了就是给你一个人的浏览记录,预测他下一次的浏览记录。花了一周时间写了一个集成系统,可以一键推荐新闻,但是准确率比较不理想,所以发到这...
  • gshengod
  • gshengod
  • 2014年09月25日 08:32
  • 10611

如何使用SSM框架写一个新闻管理系统

SSM框架指的是Spring+SpringMVC+Mybatis,是一种比较流行的后台框架。这篇文章主要来讲一下如何使用一个搭建好的SSM框架。 这里用的很多东西是卓音工作室封装好的东西,所以有些东西...
  • Jarvenman
  • Jarvenman
  • 2017年05月22日 15:45
  • 1493

新闻资讯类系统 ---- 文章分类和标签的设计

零. 简介 博客、 CMS(网易新闻、 腾讯新闻) 之类的系统, 核心就是文章, 一切的一切都围绕着文章进行, 所以设计一个好的文章分类和标签的数据库关系模型, 对后续编码及维护将会起到至关...
  • wenniuwuren
  • wenniuwuren
  • 2015年09月13日 09:04
  • 7124

使用jQuery email check插件开发带有email域名拼写错误校验功能的超酷动态留言版系统

使用jQuery email check插件开发带有email域名拼写错误校验功能的超酷动态留言版系统 日期:2012-4-26  来源:GBin1.com 在线演示  本地下载 很多的...
  • OmelasShell
  • OmelasShell
  • 2012年04月26日 23:58
  • 567

留言版系统

  • 2008年05月06日 10:44
  • 48KB
  • 下载

中牟影音单用户留言版系统

  • 2005年07月08日 21:27
  • 0B
  • 下载

中牟影音单用户留言版系统

  • 2006年02月23日 09:05
  • 147KB
  • 下载

有人在酷壳的留言版上询问下面的问题

导读:本文作者陈皓在csdn上发表博客讲述《Java NIO类库Selector机制解析》。以下是他列举学习C语言的一些建议: 有人在酷壳的留言版上询问下面的问题 ...
  • u013563389
  • u013563389
  • 2014年01月26日 16:31
  • 190

struts框架下的留言版

struts1属于三层 架构中的表示层,是目前Java开源社区中最经典的一个Web MVC框架,有了struts框架,简化开发,把主要精力放在业务处理上,提高了效率,前端控制器模式是stuts框架所采...
  • luoxl81
  • luoxl81
  • 2012年05月06日 23:23
  • 444

留言版系统

  • 2013年12月29日 11:46
  • 1.3MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:留言版和新闻系统一些常用的函数
举报原因:
原因补充:

(最多只允许输入30个字)