ASP检验用户名是否已经存在的代码怎么写？
请注意我要的是用ASP代码去实现，而不是其他语言。我的ASP页面代码如下：<!--#includefile="db.inc.asp"--><html><head><met...
请注意我要的是用ASP代码去实现，而不是其他语言。我的ASP页面代码如下：
<!--#include file="db.inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>注册结果</title>
<style type="text/css">
<!-
body {
margin-top: 0px;
margin-bottom: 0px;
background-image: url();
background-repeat: no-repeat;
}
-->
</style></head>
<body>
<%
set rs=server.create.Object("ADODB.recordset")
rs.open "select * from user where u_account='"& request.form("f_account") &"'",conn,1,3
if rs.recordcount>0 then
response.write ("用户名："&request.form("f_account") & "已经被占用！")
response.end
else
rs.addnew
rs("u_account")=request.form("f_account")
rs("u_code")=request.form("f_code")
rs("u_name")=request.form("f_name")
rs("u_sex")=request.form("f_sex")
rs("u_age")=request.form("f_age")
rs.update
rs.close
set rs=nothing
end if
%>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<td width="218"> </td>
<td width="376" align="center" valign="middle"><img src="image/succeed.jpg" width="341" height="221" /><br>
<img src="image/fail.jpg" width="336" height="223" /></td>
<td width="200">
</td>
</tr>
</table>
</body>
</html>
<!--#include file="db.inc.asp"-->文件代码如下：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("fifasp.mdb")
%>
我用的数据库为access，表名为user，字段名为u_account。运行后的错误提示为：
Microsoft VBScript 运行时错误 '800a01b6'
对象不支持此属性或方法: 'Server.create'
\www\asp\result.asp, line 18
请教高手这是哪里出错了，谁能帮我修改过来，如果确实解决了问题，我再加分，先谢谢啦..请大虾帮忙！ 展开
<!--#include file="db.inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>注册结果</title>
<style type="text/css">
<!-
body {
margin-top: 0px;
margin-bottom: 0px;
background-image: url();
background-repeat: no-repeat;
}
-->
</style></head>
<body>
<%
set rs=server.create.Object("ADODB.recordset")
rs.open "select * from user where u_account='"& request.form("f_account") &"'",conn,1,3
if rs.recordcount>0 then
response.write ("用户名："&request.form("f_account") & "已经被占用！")
response.end
else
rs.addnew
rs("u_account")=request.form("f_account")
rs("u_code")=request.form("f_code")
rs("u_name")=request.form("f_name")
rs("u_sex")=request.form("f_sex")
rs("u_age")=request.form("f_age")
rs.update
rs.close
set rs=nothing
end if
%>
<table width="800" border="0" align="center" cellspacing="0">
<tr>
<td width="218"> </td>
<td width="376" align="center" valign="middle"><img src="image/succeed.jpg" width="341" height="221" /><br>
<img src="image/fail.jpg" width="336" height="223" /></td>
<td width="200">
</td>
</tr>
</table>
</body>
</html>
<!--#include file="db.inc.asp"-->文件代码如下：
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("fifasp.mdb")
%>
我用的数据库为access，表名为user，字段名为u_account。运行后的错误提示为：
Microsoft VBScript 运行时错误 '800a01b6'
对象不支持此属性或方法: 'Server.create'
\www\asp\result.asp, line 18
请教高手这是哪里出错了，谁能帮我修改过来，如果确实解决了问题，我再加分，先谢谢啦..请大虾帮忙！ 展开
展开全部
set rs=server.create.Object("ADODB.recordset")
中create.Object中间的点去掉
中create.Object中间的点去掉
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
云创
2023-07-25 广告
代码静态分析服务的费用通常是根据项目的功能需求、规模、设计风格、技术难度等因素来确定的。一般来说，代码静态分析服务的费用在几万到几十万之间，具体差异可能会因项目需求和选择的模板系统等因素而有所不同，费用范围在20%-30%之间。需要注意的是...
点击进入详情页
本回答由云创提供
展开全部
18行:
set rs=server.create.Object("ADODB.recordset")
改成
Set rs=Server.CreateObject("ADODB.Recordset")
set rs=server.create.Object("ADODB.recordset")
改成
Set rs=Server.CreateObject("ADODB.Recordset")
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
第18行应该是createobject，你多打了个点。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
