Request语句

dim selstr,rqstr as string
if trim(request("sword")) = "" then
rqstr = ""
else
rqstr = trim(request("sword"))
rqstr = rqstr.replace("=","")
rqstr = rqstr.replace("%","")
rqstr = rqstr.replace(chr(32),"")
rqstr = rqstr.replace("?","")
rqstr = rqstr.replace(";","")
rqstr = rqstr.replace(",","")
rqstr = rqstr.replace("'","")
rqstr = rqstr.replace(chr(34),"")
rqstr = rqstr.replace(chr(9),"")
rqstr = rqstr.replace(" ","")
rqstr = rqstr.replace("$","")
end if