<%db="data/" '数据库存放目录on error resume nextset conn=("") "driver={microsoft access driver (*.mdb)};dbq="&(db)if err conn = "数据库连接出错,请检查 中的连接字符串。" iffunction conn=nothingend function%><%dim badwordbadword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|="if <>"" thenchk=split(badword,"|")for each query_name in i=0 to ubound(chk)if instr(lcase((query_name)),chk(i))<>0 "<script language=javascript>alert('传参错误!参数"&query_name&" 的值中包含非法字符串!\n\n');location='"&("http_referer")&"'</script>" ifnextnextend if%><!--#i nclude file=""--><%if request("action")="reg" thenset rs=("") "select * from user where name='"&trim(request("name"))&"'",conn,1,1if >0 "<script language='javascript'>('您输入的用户名已存在,请返回重新输入!');(-1);</script>"()end ifsql="select * from user"set rs=("") sql,conn,1,("name")=trim(("name"))rs("pwd")=trim(("pwd"))rs("wenti")=trim(("wenti"))rs("daan")=trim(("daan"))
登录注册模块代码 来自淘豆网www.taodocs.com转载请标明出处.