asp程序一些过滤函数，简单实用

做网站时常使用的一些asp函数，希望对大家有用，今天把源码公开，希望对初学者有用，此代码是开发淘一宝时经常使用的代码。请大家认真学习。


<%
'call aspsql()
UserId=request.form("UserId")
User_Password=request.form("pw1")
userpassword=md5(user_password)
UserMail=request.form("UserMail")
Username=request.form("Username")
UserQQ=request.form("UserQQ")
UserICQ=request.form("UserICQ")
UserMSN=request.form("UserMSN")
Sex=request.form("Sex")
Birthday=request.form("Birthday")
CompPhone=request.form("CompPhone")
HomePhone=request.form("HomePhone")
Country=request.form("Country")
Province=request.form("Province")
City=request.form("City")
Address=request.form("Address")
ZipCode=request.form("ZipCode")
Memo=request.form("Memo")
tjr=request.form("tjr")


jptxt="ゴ|ガ|ギ|グ|ゲ|ザ|ジ|ズ|ヅ|デ|ド|ポ|ベ|プ|ビ|パ|ヴ|ボ|ペ|ブ|ピ|バ|ヂ|ダ|ゾ|ゼ"
jptext=split(jptxt,"|")
for jp=0 to ubound(jptext)
userid=replace(userid,jptext(jp),"")
Username=replace(Username,jptext(jp),"")
next
'过滤日文字符及其它常见的非法文字
if request("UserId")<>UserId or request("Username")<>Username then
response.write ""
response.end
end if

if instr(lcase(userid),"admin")>0 or instr(userid,"管理员")>0 or instr(userid,"游客")>0 then
response.write ""
response.end
end if

if buyoktxtcheck(userid)<>userId then
response.write ""
response.end
end if
set rs = conn.execute ("SELECT * FROM buser where UserId= '" & UserId & "'")
if not (rs.Bof or rs.eof) then
set rs=nothing

response.write ""
response.end
else
call buyok_check_path()
sqlinfo = "select * from buser"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sqlinfo,conn,1,3
rs.AddNew
rs("UserId")=UserId
rs("UserPassword")=UserPassword
rs("Username")=Username
rs("UserQQ")=UserQQ
rs("UserICQ")=UserICQ
rs("UserMSN")=UserMSN
rs("Sex")=Sex
rs("Birthday")=Birthday
rs("HomePhone")=HomePhone
rs("CompPhone")=CompPhone
rs("UserMail")=UserMail
rs("Country")=Country
rs("Province")=Province
rs("City")=City
rs("Address")=Address
rs("ZipCode")=ZipCode
rs("Memo")=Memo
rs("tjr")=tjr
rs("IP")=Request.serverVariables("REMOTE_ADDR")
rs.Update
rs.close
set rs = nothing

response.cookies("buyok")("userid")=userid

'登陆完成

淘一宝网,(www.googlc.net.cn),数码,热门话题,精品推荐,新品上市,热门评测,,手机数码,淘一宝,手机数码频道-提供热门手机数码新品精品,asp程序开发.
response.write ""
response.write ""
end if
%>
此代码摘自手机数码专卖淘一宝