收集asp的常用函数

2016-02-19 10:05 4 1 收藏

今天图老师小编要向大家分享个收集asp的常用函数教程,过程简单易学,相信聪明的你一定能轻松get!

【 tulaoshi.com - Web开发 】

代码如下:

function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, "", "")
fString = replace(fString, "", "")

fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "/PP ")
fString = Replace(fString, CHR(10), "BR ")

HTMLEncode = fString
end if
end function

Function Safe(str)'该函数用来判断传递过来的变量是否包含特殊字符,没有返回TRUE 
Dim s_BadStr, n, i 
s_BadStr = "'  &?%,;:()`~!@#$^*{}[]|/+-="&Chr(34)&Chr(9)&Chr(32) 
n = Len(s_BadStr) 
Safe = True 
For i = 1 To n 
If Instr(str, Mid(s_BadStr, i, 1))  0 Then 
Safe = False 
Exit Function 
End If 
Next 
End Function 

来源:https://www.tulaoshi.com/n/20160219/1593339.html

延伸阅读
标签: Web开发
ASP函数库 % ''''                   函数目录                    '''' '''...
标签: Web开发
一、 Browser Capabilities 组件众所周知,并不是所有浏览器都支持现今 Internet 技术的方方面面。有一些特性,某些浏览器支持而另一些浏览器却不支持,如 : ActiveX 控件、影像流、动态 HTML、 Flash 以及脚本程序等。使用 ASP 的 Browser Capabilities 组件,就能够设计“智能”的 Web 页,以适合浏览器性能的格式呈现内容。 Browser Cap...
翻译的不好,请见谅。 翻译:鲁小班 文件: ActnList CreateAction 函数 创建一个指定类型的Action,显示在action list editor中。 EnumRegisteredAction 过程 枚举已经注册的Action RegisterAction 过程 注册Action UnRegisterAction 过程 反注册Action 文件: Classes Bounds 函数 输入上...
标签: Web开发
代码如下: %       page=trim(request("page"))       maxperpage=40       first=true       last=true       dim rs       set r...
标签: ASP
  <% sub Jmail(email) Dim JMail,SendMail Set JMail=Server.CreateObject("JMail.SMTPMail") JMail.Logging=True JMail.Charset="gb2312" JMail.ContentType = "text/html" JMail.ServerAddress=SMTPServer JMail.Sender=SystemEmail JMail.Subject=topic JMail.Body=mailbody JMail.AddRecipient email JMail.Priority...

经验教程

776

收藏

12
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部