ASP过滤SQL非法字符并格式化html代码,不错的功能函数集
分类:程序开发 Tags: asp 函数 评论:0 浏览:4268 最近更新时间:2009/7/23 13:27:43
- <%
- '过滤SQL非法字符并格式化html代码
- function Replace_Text(fString)
- if isnull(fString) then
- Replace_Text=""
- exit function
- else
- fString=trim(fString)
- fString=replace(fString,"'","''")
- fString=replace(fString,";",";")
- fString=replace(fString,"--","—")
- fString=server.htmlencode(fString)
- Replace_Text=fString
- end if
- end function
- '会员发布的各种信息过滤
- 'Function Replace_Text(fString)
- 'If Not IsNull(fString) Then
- 'fString = trim(fString)
- 'fString = replace(fString, ";", ";") '分号过滤
- 'fString = replace(fString, "--", "——") '--过滤
- 'fString = replace(fString, "%20", "") '特殊字符过滤
- 'fString = replace(fString, "==", "") '==过滤
- '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), "</P><P> ")
- 'fString = Replace(fString, CHR(10), "<BR> ")
- 'Replace_Text = fString
- 'End If
- 'End Function
- '过滤SQL非法字符
- Function checkStr(Chkstr)
- dim Str:Str=Chkstr
- if isnull(Str) then
- checkStr = ""
- exit Function
- else
- Str=replace(Str,"'","")
- Str=replace(Str,";","")
- Str=replace(Str,"--","")
- checkStr=Str
- end if
- End Function
- '检测传递的参数是否为数字型
- Function Chkrequest(Para)
- Chkrequest=False
- If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
- Chkrequest=True
- End If
- End Function
- '检测传递的参数是否为日期型
- Function Chkrequestdate(Para)
- Chkrequestdate=False
- If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then
- Chkrequestdate=True
- End If
- End Function
- '得到当前页面的地址
- Function GetUrl()
- On Error Resume Next
- Dim strTemp
- If LCase(Request.ServerVariables("HTTPS")) = "off" Then
- strTemp = "http://"
- Else
- strTemp = "https://"
- End If
- strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
- If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
- strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
- If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & CheckStr(Trim(Request.QueryString))
- GetUrl = strTemp
- End Function
- 'Function CheckReferer() '检查用户是否在浏览器里输入了本页的地址
- ' Dim sReferer, Icheck
- ' CheckReferer = True
- ' sReferer = Request.ServerVariables("HTTP_REFERER")
- ' ServerIP = Request.ServerVariables("LOCAL_ADDR")
- ' Icheck = InStr(sReferer, "ServerIP")
- ' If Icheck = 0 Then
- ' CheckReferer = False
- ' End If
- 'End Function
- '日期格式化
- Function FormatDate(DT,tp)
- dim Y,M,D
- Y=Year(DT)
- M=month(DT)
- D=Day(DT)
- if M<10 then M="0"&M
- if D<10 then D="0"&D
- select case tp
- case 1 FormatDate=Y&"年"&M&"月"&D&"日"
- case 2 FormatDate=Y&"-"&M&"-"&D
- end select
- End Function
- '不允许外部提交数据的选择
- Function ChkPost()
- dim HTTP_REFERER,SERVER_NAME
- dim server_v1,server_v2
- chkpost=false
- SERVER_NAME=CheckStr(Request.ServerVariables("SERVER_NAME"))
- HTTP_REFERER=CheckStr(Request.ServerVariables("HTTP_REFERER"))
- server_v1=Cstr(HTTP_REFERER)
- server_v2=Cstr(SERVER_NAME)
- if mid(server_v1,8,len(server_v2))<>server_v2 then
- chkpost=false
- else
- chkpost=true
- end if
- End Function
- '构造上传图片文件名随机数
- function MakedownName()
- dim fname
- fname = now()
- fname = replace(fname,"-","")
- fname = replace(fname," ","")
- fname = replace(fname,":","")
- fname = replace(fname,"PM","")
- fname = replace(fname,"AM","")
- fname = replace(fname,"上午","")
- fname = replace(fname,"下午","")
- fname = int(fname) + int((10-1+1)*Rnd + 1)
- MakedownName=fname
- end function
- 'Email检测
- function IsValidEmail(email)
- dim names, name, i, c
- IsValidEmail = true
- names = Split(email, "@")
- if UBound(names) <> 1 then
- IsValidEmail = false
- exit function
- end if
- for each name in names
- if Len(name) <= 0 then
- IsValidEmail = false
- exit function
- end if
- for i = 1 to Len(name)
- c = Lcase(Mid(name, i, 1))
- if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
- IsValidEmail = false
- exit function
- end if
- next
- if Left(name, 1) = "." or Right(name, 1) = "." then
- IsValidEmail = false
- exit function
- end if
- next
- if InStr(names(1), ".") <= 0 then
- IsValidEmail = false
- exit function
- end if
- i = Len(names(1)) - InStrRev(names(1), ".")
- if i <> 2 and i <> 3 then
- IsValidEmail = false
- exit function
- end if
- if InStr(email, "..") > 0 then
- IsValidEmail = false
- end if
- end function
- 'Jmail邮件发送
- Function SendJmail(Email,Topic,MailBody)
- Dim JMail
- on error resume next
- Set JMail = Server.CreateObject("JMail.SMTPMail")
- JMail.LazySend = true
- JMail.silent = true
- JMail.Charset = "gb2312"
- JMail.ContentType = "text/html"
- JMail.Sender = "wemaster@alibaba.info" '我们网站自己的邮箱
- JMail.ReplyTo = "wemaster@alibaba.info" '我们网站自己的邮箱
- JMail.SenderName = "阿里爸爸邮件发送"
- JMail.Subject = Topic
- JMail.SimpleLayout = true
- JMail.Body = MailBody
- JMail.Priority = 3
- JMail.AddRecipient Email
- JMail.AddHeader "Originating-IP", GBL_IPAddress
- If JMail.Execute() = false Then
- SendJmail = 0
- Else
- SendJmail = 1
- End If
- JMail.Close
- Set JMail = Nothing
- End Function
- '分页
- Function listPages(LinkFile)
- if not (rs.eof and rs.bof) then
- gopage=currentpage
- totalpage=n
- blockPage=Int((gopage-1)/10)*10+1
- ' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then
- ' pos=instr(linkfile,"page=")-2
- ' linkfile=left(linkfile,pos)
- ' end if
- If LCase(Request.ServerVariables("HTTPS")) = "off" Then
- strTemp = "http://"
- Else
- strTemp = "https://"
- End If
- strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
- If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
- strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
- lenstrTemp=len(strTemp)+1
- if instr(left(linkfile,lenstrTemp),"?")>0 then
- if blockPage = 1 Then
- Response.Write "<span disabled>【←前10页</span> "
- Else
- Response.Write("<span disabled>【</span><a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a> ")
- End If
- i=1
- Do Until i > 10 or blockPage > n
- If blockPage=int(gopage) Then
- Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
- Else
- Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ")
- End If
- blockPage=blockPage+1
- i = i + 1
- Loop
- if blockPage > totalpage Then
- Response.Write " <span disabled>后10页→】"
- Else
- Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页→</a><span disabled>】")
- End If
- response.write" 直接到第 "
- response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
- for i=1 to totalpage
- response.write"<option value='" & LinkFile & "&page=" & i & "'"
- if i=gopage then response.write"selected"
- response.write">"&i&"</option>"
- next
- response.write"</select>"
- response.write" 页<Br><Br>"
- else
- if blockPage = 1 Then
- Response.Write "<span disabled>【←前10页</span> "
- Else
- Response.Write("<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a> ")
- End If
- i=1
- Do Until i > 10 or blockPage > n
- If blockPage=int(gopage) Then
- Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
- Else
- Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
- End If
- blockPage=blockPage+1
- i = i + 1
- Loop
- if blockPage > totalpage Then
- Response.Write " <span disabled>后10页→】"
- Else
- Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10页→</a><span disabled>】")
- End If
- response.write" 直接到第 "
- response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
- for i=1 to totalpage
- response.write"<option value='" & LinkFile & "?page=" & i & "'"
- if i=gopage then response.write"selected"
- response.write">"&i&"</option>"
- next
- response.write"</select>"
- response.write" 页<Br><Br>"
- End If
- Startinfo=((gopage-1)*msg_per_page)+1
- Endinfo=gopage*msg_per_page
- if Endinfo>totalrec then Endinfo=totalrec
- Response.Write(" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
- end if
- End Function
- '分页2
- Function listPages2(LinkFile)
- if not (rs.eof and rs.bof) then
- gopage=currentpage
- totalpage=n
- blockPage=Int((gopage-1)/10)*10+1
- If LCase(Request.ServerVariables("HTTPS")) = "off" Then
- strTemp = "http://"
- Else
- strTemp = "https://"
- End If
- strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
- If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
- strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
- lenstrTemp=len(strTemp)+1
- if instr(left(linkfile,lenstrTemp),"?")>0 then
- if blockPage = 1 Then
- Response.Write "<span disabled>前10页</span> "
- Else
- Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10页</a> ")
- End If
- i=1
- Do Until i > 10 or blockPage > n
- If blockPage=int(gopage) Then
- Response.Write("<font color=#FF0000><b>"&blockPage&"</b></font>")
- Else
- Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">"&blockPage&"</a> ")
- End If
- blockPage=blockPage+1
- i = i + 1
- Loop
- if blockPage > totalpage Then
- Response.Write " <span disabled>后10页"
- Else
- Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10页</a><span disabled>")
- End If
- response.write" 直接到第 "
- response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
- for i=1 to totalpage
- response.write"<option value='" & LinkFile & "&page=" & i & "'"
- if i=gopage then response.write"selected"
- response.write">"&i&"</option>"
- next
- response.write"</select>"
- response.write" 页<Br><Br>"
- else
- if blockPage = 1 Then
- Response.Write "<span disabled>【←前10页</span> "
- Else
- Response.Write("<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a> ")
- End If
- i=1
- Do Until i > 10 or blockPage > n
- If blockPage=int(gopage) Then
- Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
- Else
- Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
- End If
- blockPage=blockPage+1
- i = i + 1
- Loop
- if blockPage > totalpage Then
- Response.Write " <span disabled>后10页→】"
- Else
- Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10页→</a><span disabled>】")
- End If
- response.write" 直接到第 "
- response.write"<select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
- for i=1 to totalpage
- response.write"<option value='" & LinkFile & "?page=" & i & "'"
- if i=gopage then response.write"selected"
- response.write">"&i&"</option>"
- next
- response.write"</select>"
- response.write" 页<Br><Br>"
- End If
- Startinfo=((gopage-1)*msg_per_page)+1
- Endinfo=gopage*msg_per_page
- if Endinfo>totalrec then Endinfo=totalrec
- Response.Write(" 共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
- end if
- End Function
- '判断文件类型是否合格
- Function CheckFileExt(FileExt)
- Dim ForumUpload,i
- ForumUpload="gif,jpg,bmp,jpeg,png"
- ForumUpload=Split(ForumUpload,",")
- CheckFileExt=False
- For i=0 to UBound(ForumUpload)
- If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then
- CheckFileExt=True
- Exit Function
- End If
- Next
- End Function
- '格式后缀
- Function FixName(UpFileExt)
- If IsEmpty(UpFileExt) Then Exit Function
- FixName = Lcase(UpFileExt)
- FixName = Replace(FixName,Chr(0),"")
- FixName = Replace(FixName,".","")
- FixName = Replace(FixName,"asp","")
- FixName = Replace(FixName,"asa","")
- FixName = Replace(FixName,"aspx","")
- FixName = Replace(FixName,"cer","")
- FixName = Replace(FixName,"cdx","")
- FixName = Replace(FixName,"htr","")
- End Function
- '文件Content-Type判断
- Function CheckFileType(FileType)
- CheckFileType = False
- If Left(Cstr(Lcase(Trim(FileType))),6)="image/" Then CheckFileType = True
- End Function
- %>
本文地址:/425/
-
• ASP多个关键词搜索代码,关键词以+号或空格隔开
• js兼容IE、谷歌Chrome、火狐Firefox的上传图片预览代码
• 忽略JS错误代码,网页屏蔽js错误代码
• ASP将汉字转为拼音代码
• ASP保存远程图片文件到本地代码
• ASP搜索关键词时结果用红色显示代码
• ASP如何获取当前网站地址,网页地址代码及div+css菜单应用
• ASP按字段中首字母输出所有数据代码
• rs.open sql,conn,1,1和rs.open sql,conn,1,3的意思
• opencart 3.0 PayPal Payments Standard支付没有传递收货地址解决办法
-
• 手把手教你如何开通163邮箱和QQ邮箱的POP3/SMTP服务
• 该如何赚钱?如何赚大钱的13个步骤!
• 搭建一个好的网站内部结构
• 交谊舞视频教程大全,免费下载,泡妞必学(狐步、慢四、华尔兹、快三、伦巴、恰恰)
• 2009胡润百富榜榜单1-100名
• 访问网站时出现Service Unavailable问题及解决方法
• 使用Aspjpeg组件,自动按宽高比例生成产品缩略图ASP代码
• 如何去掉网页的横向滚动条,竖向滚动条?
• 如何有效增加网站外链?
• 去除windows 2003系统的登录界面
-
• Google Workspace gmail企业邮箱老板监控员工邮件操作方法
• zoho企业邮箱开启手机验证码双重认证教程
• 外贸网站如何使用Google Search Console谷歌管理员工具
• 腾讯企业邮箱开启安全登录后,如何登录foxmail收发信
• 获取小红书无水印图片的原理
• iis如何支持.webp图片格式访问
• FireFox火狐浏览器有用的设置方法记录
• 最新政策 Google免费版企业邮箱个人用途可以继续保留免费版
• MySQL报Field‘***’doesn’t have a default value错误的解决办法
• 抖音国际版TikTok注册过程记录