先谢谢您的回复! 不过我按你的改过还是不行!! 这是源文件 请在给找找错 <%@ 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 %>
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> </head>
<body> <% connstr="DBQ="+server.mappath("test.mdb")+ ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr
set rs=server.createobject("ADODB.recordset") rs.open "select * from users",conn while not rs.eof response.Write("你好") rs.movenext wend rs.close conn.close %>
</body> </html> 上述代码经过测试:无误,请参考 还有一个问题:你用的是Access 为什么警告有:Sql server字样
[此贴子已经被作者于2005-9-10 16:40:48编辑过]