asp過濾代碼
❶ ASP字元過濾。
username=trim(request.form("username"))
'定義一個數組
badCode="<,%,@,upload"
'分割數據
badCode=split(badCode,",")
'從第一個循環到最後一回個
for i = 0 to ubound(badCode)
username=replace(username,badCode(i),"") '把這些字元替換為答空
next
❷ 求asp字元串過濾防止sql注入等安全選項的過濾代碼
這個函數可以解決
Function SafeRequest(ParaName,ParaType)
'--- 傳入參數 ---
'ParaName:參數名稱-字元型
'ParaType:參數類型-數字型(1表示以版上參數是數權字，0表示以上參數為字元)
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "參數" & ParaName & "必須為數字型！"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
End if
SafeRequest=ParaValue
End function
❸ asp代碼 怎麼過濾臟話呀
a=Split("zh","v")
這里你怎麼會這樣寫啊
應該這樣
a=Split(zh,"v")
*************分隔符***************下面是我改過的
你看看
x=request("title")
y=request("body")
....(中間省略回)
zh="臟話答Av臟話Bv臟話Cv臟話D"
a=Split(zh,"v")
for i=0 to UBound(a)
y=Replace(y,a(i),"***")
next
response.Write y
❹ asp過濾html代碼
<%
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取閉合的<>
objRegExp.Pattern = "<.+?>"
'進行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍歷匹配集合，並替換掉匹配的項目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
'調用
str=RemoveHTML(str)
%>
本文來自CSDN博客，轉載請標明出處：http://blog.csdn.net/qingflyer/archive/2009/03/20/4007901.aspx
❺ asp過濾所有的html代碼函數
應該是可以過掉所有的標簽的.大小寫已經忽略,全局已經打開,多行也打開著,看了一下你的匹配式回也答是正確的啊.你過不掉的可能是因為中間有空間,而[^>]表示的是不包含>的所有字元.怎麼會過濾不掉呢?
"<[\/]?\w+(\s+\w+\=[\"]?\w+[\"]?)*[\/]?>"
這樣試試如何
❻ asp 過濾字元串中的某些字元
循環讀取每一行放在數組裡面
s="[00:02.00]歌曲：月半小夜曲"
s=left(s,5)&right(s,len(s)-8)
response.write s
❼ asp 過濾html代碼 保留div p href 等標記
給你一個我採用的例子，你自己想過濾什麼標簽隨便加就行了。
如下：
<%
'過濾回html標簽函數答
Function Delhtml(Con,Code)
Do while instr(lcase(con),"<"&Code)
ps = instr(lcase(Con),"<"&Code)
pe = instr(ps,Con,">")+1
p = mid(con,ps,pe-ps)
con = replace(Con,p,"")
Loop
Con = replace(Con,"</"&lcase(Code)&">","")
Con = replace(Con,"</"&ucase(Code)&">","")
Delhtml = Con
End Function
'以下是調用 想過濾什麼直接往後加 Str 變數是網頁字元串
Str = Delhtml(Str,"img") '過濾圖片
Str = Delhtml(Str,"br") '過濾換行
……
%>
❽ asp中如何過濾掉特殊字元
|user=replace(trim(request.form("uName")),"'","''")
password=replace(trim(request.form("Password")),"'","''")
if instr(user,"%") or instr(user,"#") or instr(user,"?") or instr(user,"|") or instr(user,"'") then
response.write "<script language=javascript>alert('您的姓名含有非法字元！');this.location.href='login.asp';</script>"
response.end
end if
if instr(password,"%") or instr(password,"#") or instr(password,"?") or instr(password,"|") then
response.write "<script language=javascript>alert('您的密碼含有非法字元！');this.location.href='login.asp';</script>"
response.end
end if 我自己做的，希望對你有幫助
❾ asp過濾html代碼
我給你寫了個方法，你看著用吧。<%Function DropHTML(str)
Dim regEx
Set regEx=New RegExp
regEx.Pattern="<.*>(.+)</\w+>"
regEx.Global=True
regEx.IgnoreCase=True
DropHTML=regEx.Replace(str, "$1")
End Function dim htmlStr, newStrhtmlStr="<font color=#00ff00>依然家族創專始屬</font>"newStr=DropHTML(htmlStr)Response.Write(newStr)'輸出：依然家族創始%>
❿ asp中用過濾html代碼,但要保留p標記
^調用這個方抄法就可以了：
Function replaceWithoutP(ContentStr)
Dim ClsTempLoseStr,regEx
ClsTempLoseStr = Cstr(ContentStr)
Set regEx = New RegExp
regEx.Pattern = "(<(\/){0,1}[^襲<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)"
regEx.IgnoreCase = True
regEx.Global = True
ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
replaceWithoutP = ClsTempLoseStr
Set regEx = Nothing
End Function
兄弟你可以試一下
其中(<(\/){0,1}[^<>p]*>)|(<(\/){0,1}[^<>]+p[^<>]*>)的意思是：以<或者</開頭，內容不包含<和>和p,以>結尾；或者以<或者</開頭內容包含p但是p前面有別的字元p後面為任意字元,以>結尾
把這些字元串都替換掉就得到你要的結果了