最先进的传感器:提交的表单里如果有预先设定的词的话,就终止写进数据库,这段程序错在哪?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/03 07:57:41
<%
dim UserName_xu,NickName,OfficePhone,SQL
UserName_xu=Request.Form("UserName_xu")
NickName=Request.Form("NickName")
OfficePhone=request.Form("OfficePhone")
dim guolv
guolv="a|b|c|d|e"
guolvci=split(guolv,"|")
n=ubound(guolvci)
for i=0 to n
shan=guolvci(i)
next
if instr(officephone,shan)>0 then
response.write "哈哈哈哈"
response.end
else

SQL="Insert into user_xu (username_xu,NickName,OfficePhone,regdate) Values('"&UserName_xu&"','"&NickName&"','"&OfficePhone&"','"&date()&"')"
conn.Execute (SQL)
conn.Close
set Conn = nothing
end if
%>