帮忙改一个ASP程序

来源：百度知道 编辑：UC知道 时间：2024/05/21 07:31:09
下面是程序的一部分,我运行不起,好多次,但我不又知怎么改了,麻烦哪位帮帮忙吧.
<%
'连接数据库
dim myconn
set myconn=server.CreateObject("adodb.connection")
myconn.open"provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("usermessage.mdb")
'插入用户名和密码记录
myconn.execute("insert into usermessage(name1,password1) values('"&request.form("username")&"','"&request.form("password")&"') ")
'查找有无此用户
sql="select '"&request.form("name1")&"' from usermessage "
myconn.open sql,conn,1,1
if not(myconn.bof) or not(myconn.eof) then
response.redirect"regsubmit.asp"
end if
myconn.close
%>
运行不起哎,提示说'usermessage.name1'不能是零长度的字符串,是插入用户名和密码记录那一行的错:myconn.execute("insert into usermessage(name1,password1) values('"&request.form("username")&"

<%
'定义变量
dim myconn,myrs,mysql
'建立数据库conn对象
set myconn=server.CreateObject("adodb.connection")
'链接数据库
myconn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("usermessage.mdb")
'此SQL语句的作用是用来查询数据库usermessage表中有没有与用户注册提交的用户名相同的记录
mysql="select * from usermessage where name1='"&request.Form("username")&"'"
'建立数据库数据集rs对象
set myrs=server.CreateObject("adodb.recordset")
'用rs对象进行查询，查询数据库中是否已经存在同名用户
myrs.open mysql,myconn,1,1
'如果指针未到记录集的尾端，就表示数据库中已经存在同名用户
if not myrs.eof then
'存在同名用户就让系统跳到regsubmit.asp页
response.Redirect("regsubmit.asp")
else
'否则，就表示数据库中未存在同名用户
'此SQL语句是将用户注册提交的用户名和密码存入到数据库中
mysql="insert into usermessage(name1,password1) values('"&request.form("username")&"','"&request.form("passw