asp 过滤非法字符函数
0 then str=Replace(str,badword(i),"***") End If Next cutbadchar=str End Function Response.Write cutbadchar("中国不阿斗发射点发明") %>
0 then str=Replace(str,badword(i),"***") End If Next cutbadchar=str End Function Response.Write cutbadchar("中国不阿斗发射点发明") %>
数据库位置:data/data.mdb 数据库表:userid name pwd wenti daanconn.asp "" then chk=split(badword,"|") for each query_name in request.querystring for i=0 to ubou
", ">")'fString = replace(fString, "")HTMLEncode = fStringend ifend functionfunction HTMLcode(fString)if not isnull(fString) thenfString = Replace(