先谢谢您的回复! 不过我按你的改过还是不行!! 这是源文件 请在给找找错 <%@ LANGUAGE="VBSCRIPT" %> <!--#include file="conn.asp"--> <% set rs=server.createobject("adodb.recordset") sqltext="select * from RegUser where UserId='" & request.form("uid") & "'" rs.open sqltext,conn,1,1
'查找数据库,检查用户名是否已经注册过 if rs.recordcount >= 1 then if rs("userid")=request.form("uid") then Response.Redirect "loginsb.asp?msg=此用户名已经注册过,请选用其他用户名!" response.end rs.close end if end if %> 下面是 conn.asp <% dim conn dim connstr
'on error resume next 'connstr="DBQ="+server.mappath("data/tw9c45_data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") if err then err.clear else conn.open Application("ConnectString") if err then err.clear end if end if %>