中文字幕高清视频,欧美黑人巨大videos精品,国产午夜av

ASP過(guò)濾SQL中的非法字符并格式化相關(guān)的html代碼

天極網(wǎng) 2008/3/15 20:34:15 深山行者字體:大中小瀏覽 8281

以下是引用片段：

<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13)," ")," "," ")
changechr=replace(replace(replace(replace(changechr,"[sayyes]","<div align=center><img src="),"[b]",""),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/sayyes]","></img></div>"),"[/b]",""),"[/red]",""),"[/big]","")
end function

'過(guò)濾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

'會(huì)員發(fā)布的各種信息過(guò)濾
'Function Replace_Text(fString)
'If Not IsNull(fString) Then
'fString = trim(fString)
'fString = replace(fString, ";", "；") '分號(hào)過(guò)濾
'fString = replace(fString, "--", "——") '--過(guò)濾
'fString = replace(fString, "%20", "") '特殊字符過(guò)濾
'fString = replace(fString, "==", "") '==過(guò)濾
'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), "'") '單引號(hào)過(guò)濾
'fString = Replace(fString, CHR(13), "")
'fString = Replace(fString, CHR(10) & CHR(10), " ")
'fString = Replace(fString, CHR(10), " ")
'Replace_Text = fString
'End If
'End Function

'過(guò)濾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

'檢測(cè)傳遞的參數(shù)是否為數(shù)字型
Function Chkrequest(Para)
Chkrequest=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
Chkrequest=True
End If
End Function

'檢測(cè)傳遞的參數(shù)是否為日期型
Function Chkrequestdate(Para)
Chkrequestdate=False
If Not (IsNull(Para) Or Trim(Para)="" Or Not IsDate(Para)) Then
Chkrequestdate=True
End If
End Function

'得到當(dāng)前頁(yè)面的地址
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()   '檢查用戶(hù)是否在瀏覽器里輸入了本頁(yè)的地址
'     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

'不允許外部提交數(shù)據(jù)的選擇
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

'構(gòu)造上傳圖片文件名隨機(jī)數(shù)
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檢測(cè)
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郵件發(fā)送
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             = "[email protected]" '我們網(wǎng)站自己的郵箱
JMail.ReplyTo             = "[email protected]" '我們網(wǎng)站自己的郵箱
JMail.SenderName       = "阿里爸爸郵件發(fā)送"
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

'分頁(yè)
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 "【←前10頁(yè) "
Else
 Response.Write("【<a href=" & LinkFile & "&page="&blockPage-10&">←前10頁(yè)</a> ")
End If
 i=1
 Do Until i > 10 or blockPage > n
 If blockPage=int(gopage) Then
 Response.Write("["&blockPage&"]")
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 " 后10頁(yè)→】"
Else
 Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10頁(yè)→</a>】")
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" 頁(yè) "

else

if blockPage = 1 Then
 Response.Write "【←前10頁(yè) "
Else
 Response.Write("【<a href=" & LinkFile & "?page="&blockPage-10&">←前10頁(yè)</a> ")
End If
 i=1
 Do Until i > 10 or blockPage > n
 If blockPage=int(gopage) Then
 Response.Write("["&blockPage&"]")
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 " 后10頁(yè)→】"
Else
 Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10頁(yè)→</a>】")
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" 頁(yè) "

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
Response.Write("  共 "&totalrec&" 條信息當(dāng)前顯示第 "&Startinfo&" - "&Endinfo&" 條每頁(yè) "&msg_per_page&" 條信息共 "&n&" 頁(yè)")
end if
End Function

'分頁(yè)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 "前10頁(yè) "
Else
 Response.Write("<a href=" & LinkFile & "&page="&blockPage-10&">前10頁(yè)</a> ")
End If
 i=1
 Do Until i > 10 or blockPage > n
 If blockPage=int(gopage) Then
 Response.Write(""&blockPage&"")
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 " 后10頁(yè)"
Else
 Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">后10頁(yè)</a>")
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" 頁(yè) "

else

if blockPage = 1 Then
 Response.Write "【←前10頁(yè) "
Else
 Response.Write("【<a href=" & LinkFile & "?page="&blockPage-10&">←前10頁(yè)</a> ")
End If
 i=1
 Do Until i > 10 or blockPage > n
 If blockPage=int(gopage) Then
 Response.Write("["&blockPage&"]")
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 " 后10頁(yè)→】"
Else
 Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">后10頁(yè)→</a>】")
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" 頁(yè) "

End If

Startinfo=((gopage-1)*msg_per_page)+1
Endinfo=gopage*msg_per_page
if Endinfo>totalrec then Endinfo=totalrec
Response.Write("  共 "&totalrec&" 條信息當(dāng)前顯示第 "&Startinfo&" - "&Endinfo&" 條每頁(yè) "&msg_per_page&" 條信息共 "&n&" 頁(yè)")
end if
End Function

'判斷文件類(lèi)型是否合格
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
%>

后一頁(yè):熟記ASP+Access數(shù)據(jù)庫(kù)的18條安全法則

相關(guān)閱讀: sql語(yǔ)句中怎么按照in語(yǔ)句里的id原有的順序進(jìn)行排序輸出,可以做成瀏覽記錄、查看、觀看記錄; 蒸汽消音器; 鼠標(biāo)放在表格區(qū)域內(nèi)，當(dāng)前格的一整行和一整列變色; jQuery設(shè)置提交表單disabled屬性所有input、button、extarea、select、checkbox、radio都生效; 網(wǎng)頁(yè)鏈接十字顯示就像CAD十字做標(biāo)一樣,效果非常好; Google的265導(dǎo)航站上頂部右邊的logo上的眼珠特效 (兼容IE,FF); 獲取客戶(hù)真實(shí)IP地址; 會(huì)員系統(tǒng)

共有0條關(guān)于《ASP過(guò)濾SQL中的非法字符并格式化相關(guān)的html代碼》的評(píng)論: 發(fā)表評(píng)論

正在加載評(píng)論......

返回頂部發(fā)表評(píng)論

呢稱(chēng):
表情:
內(nèi) 容:	評(píng)論內(nèi)容:不能超過(guò) 1000 字,需審核,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。
驗(yàn)證碼:

網(wǎng)友評(píng)論聲明,請(qǐng)自覺(jué)遵守互聯(lián)網(wǎng)相關(guān)政策法規(guī)。

您發(fā)布的評(píng)論即表示同意遵守以下條款:
一、不得利用本站危害國(guó)家安全、泄露國(guó)家秘密,不得侵犯國(guó)家、社會(huì)、集體和公民的合法權(quán)益;
二、不得發(fā)布國(guó)家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對(duì)自己在本站的言論和行為負(fù)責(zé);
三、本站對(duì)您所發(fā)布內(nèi)容擁有處置權(quán)。

更多信息>>欄目類(lèi)別選擇: 百度小程序開(kāi)發(fā); 微信小程序開(kāi)發(fā); 微信公眾號(hào)開(kāi)發(fā); uni-app; asp函數(shù)庫(kù); ASP; DIV+CSS; HTML; python

更多>>同類(lèi)信息: ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問(wèn)題的解決方法頁(yè)面編碼聲明; asp顯示隨機(jī)密碼; 通過(guò)阿里云服務(wù)接口獲得ip地址詳細(xì)信息; iis點(diǎn)開(kāi)后任務(wù)欄上有顯示，但是窗口看不到的解決辦法; RSA加密解密插件; 微軟Encoder加密解密函數(shù)

更多>>最新添加文章: dw里面查找替換使用正則刪除sqlserver里面的CONSTRAINT; Android移動(dòng)端自動(dòng)化測(cè)試：使用UIAutomatorViewer與Selenium定位元素; 抖音直播音掛載小雪花懂車(chē)帝小程序; javascript獲取瀏覽器指紋可以用來(lái)做投票; 火狐Mozilla Firefox出現(xiàn)：無(wú)法載入您的Firefox配置文件它可能已經(jīng)丟失或是無(wú)法訪問(wèn) 問(wèn)題解決集合處理辦法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路徑; python通過(guò)代碼修改pip下載源讓下載庫(kù)飛起; python里面requests.post返回的res.text還有其它的嗎

更多>>隨機(jī)抽取信息: 網(wǎng)上頁(yè)面java圖片循環(huán)滾動(dòng)特效; asp截取字符串：根據(jù)右邊第一個(gè)點(diǎn)(.)去掉擴(kuò)展名; 拖動(dòng)效果封裝已經(jīng)修改，適應(yīng)火狐; 耒陽(yáng)華天國(guó)際旅行社; 刪除程序頁(yè)面代碼中的注釋標(biāo)簽; 利用javascript來(lái)靜態(tài)添加表格行

更多標(biāo)簽熱門(mén)標(biāo)簽

調(diào)用計(jì)劃彈窗按鈕設(shè)計(jì) submit textarea 過(guò)濾容器個(gè)性預(yù)覽應(yīng)用憂(yōu)化 PSD 自動(dòng)隱藏生成器 adobe css 后臺(tái) 項(xiàng)目框鎯還原變化 mssql 灰色動(dòng)畫(huà) 對(duì)話(huà)框 css 透明 clear javascript 物理右擊比例字節(jié)數(shù) 路徑選項(xiàng) 收縮 xhtml CAD 放大 innerHTML 尺寸 ResponseXML IP 編輯 IE8 省市 DIV+CSS做的透明菜單兼容IE、FF等排序

能看的av_午夜黄色av_在线观看国产视频_天天爱综合_国产精品亚洲成在人线_日韩一

ASP過(guò)濾SQL中的非法字符并格式化相關(guān)的html代碼