[求助]这个怎么解决
<% @ language="vbs"%><%
dim username,password,truename,sex,eamil,question,answer,counter,authority
username=trim(request.form("username"))
password=trim(request.form("password"))
truename=trim(request.form("truename"))
sex=trim(request.form("sex"))
email=trim(request.form("email"))
question=trim(request.form("question"))
answer=trim(request.form("answer"))
counter=trim(request.form("counter"))
authority=trim(request.form("authority"))
%>
<html>
<head>
<title>注册</title>
</head>
<body>
<h3>在web页中添加记录</h3>
<!-- #include file="adovbs.inc" -->
<%
dim cnn,ssql
Set cnn=Server.Createobject("adodb.Connection")
Set rst=server.createobject("adodb.recordset")
cnn.connectionstring="DBQ="+Server.mappath("user.mdb")+";defaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
cnn.open
ssql="select * from user where username='"&username&"'"
set rst=cnn.execute (ssql,,adcmdtext)
if not rst.eof then
respone.write"这个名字已经存在"
respone.write"<a href=default.htm>返回</a>"
else
ssql="insert into user (username,password)"
ssql=ssql&"values('"&username&"','"&password&"')"
cnn.execute ssql,,adcmdtext
cnn.close
set cnn=noting
end if
%>
注册成功
"<a href=defalut.htm>点击这里进入系统</a>"
</body>
</html>
