看看这个程序哪儿有问题，为什么连接不上数据库，运行不完呢！！

sunnyccc0000 2009-08-31 06:56:15

<html>
<head>
<title>验证</title>
</head>
<body>
<%
dim username,userPassword,email
username=Trim(request("username"))
userPassword=Trim(request("password"))
email=Trim(request("email"))
If(username=""or password=""or email="") Then
response.write "<script>alert(""用户名或密码或邮箱不能为空！"");</script>"
response.write "<script>history.go(-1);</script>"
response.end
else
If Request.Form1("Submitted") = "login.asp" Then
strsql="select * from user where user_name='"&username&"'"
strsql=strsql&"and user_pasw='"&password&"'"
strsql=strsql&"and user_email='"&email&"'"
set conn=server.CreateObject("adodb.connection")
conn.open "mydata"
set rs = CreateObject("ADODB.RecordSet")
rs.Open strsql,conn,1,3
if not rs.eof then
response.Write("用户名已经存在")
response.Redirect("index.asp")
response.End
else
rs.AddNew
rs("user_name")=request("username")
rs("user_pasw")=request("password")
rs("user_email")=request("email")
rs.update
response.Write("用户添加成功！")
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
end if
%>
</body>
</html>

...全文

125 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

凡夫与俗子 2009-09-01

打赏
举报

判断if改成if username="" or userPassword="" or email="" then

凡夫与俗子 2009-09-01

打赏
举报

dim username,userPassword,email
username=Trim(request("username"))
userPassword=Trim(request("password"))
email=Trim(request("email"))
If(username=""or password=""or email="") Then
response.write " <script>alert(""用户名或密码或邮箱不能为空！""); </script>"
response.write " <script>history.go(-1); </script>"
response.end

你获取的username,userPassword,email和判断If(username=""or password=""or email="")根本没对牢嘛。所以永远执行这段代码了。

sumjor 2009-09-01

打赏
举报

<html>
<head>
<title>验证 </title>
</head>
<body>
<%
dim username,userPassword,email
username = Trim(request("username"))
password = Trim(request("password"))
email = Trim(request("email"))
If(username="" or password="" or email="") Then
response.write " <script>alert(""用户名或密码或邮箱不能为空！""); </script>"
response.write " <script>history.go(-1); </script>"
response.end
else
If Request("Submitted") = "login.asp" Then
strsql="select * from [user] where user_name='" & username & "'"
strsql=strsql & " and user_pasw='" & password & "'"
strsql=strsql & " and user_email='" & email & "'"
set conn=server.CreateObject("adodb.connection")
conn.open "mydata"
set rs = CreateObject("ADODB.RecordSet")
rs.Open strsql,conn,1,3
if not (rs.eof and rs.eof) then
response.Write("用户名已经存在")
'response.Redirect("index.asp")
response.End
else
rs.AddNew
rs("user_name")= username
rs("user_pasw")= password
rs("user_email")= email
rs.update
response.Write("用户添加成功！")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
%>
</body>
</html>

这样呢？

sunnyccc0000 2009-08-31

打赏
举报

对啊！
控件名字没错

hookee 2009-08-31

打赏
举报

表单中控件的名字是不是 username password email?

sunnyccc0000 2009-08-31

打赏
举报

还是不行，只运行到“用户名或密码或邮箱不能为空”。
用户名，密码和邮箱都填上，也只弹出“用户名或密码或邮箱不能为空”对话框。连不上数据库啊

hookee 2009-08-31

打赏
举报



<!--#include file="conn.asp"--> 

<html> 

<head> 

<title>验证 </title> 

</head> 

<body> 

<% 

dim username,userPassword,email 

username = Trim(request("username")) 

password = Trim(request("password")) 

email = Trim(request("email")) 

If(username="" or password="" or email="") Then 

    response.write " <script>alert(""用户名或密码或邮箱不能为空！""); </script>" 

    response.write " <script>history.go(-1); </script>" 

    response.end 

else 

    If Request("Submitted") = "login.asp" Then

        strsql="select * from user where user_name='" & username & "'" 

        strsql=strsql & " and user_pasw='" & password & "'" 

        strsql=strsql & " and user_email='" & email & "'" 

        set conn=server.CreateObject("adodb.connection") 

        conn.open "mydata" 

        set rs = CreateObject("ADODB.RecordSet") 

        rs.Open strsql,conn,1,3 

        if not (rs.eof and rs.eof) then 

            response.Write("用户名已经存在") 

            'response.Redirect("index.asp") 

            response.End 

        else

            rs.AddNew 

            rs("user_name")= username 

            rs("user_pasw")= password 

            rs("user_email")= email 

            rs.update 

            response.Write("用户添加成功！") 

        end if

        rs.close

        conn.close 

        set rs=nothing 

        set conn=nothing 

    end if

end if 

%> 

</body> 

</html>

liuwei_IT_love 2009-08-31

打赏
举报

<html>
<head>
<title>验证 </title>
</head>
<body>
<%
dim username,userPassword,email
username=Trim(request("username"))
userPassword=Trim(request("password"))
email=Trim(request("email"))
If(username=""or password=""or email="") Then
response.write " <script>alert(""用户名或密码或邮箱不能为空！""); </script>"
response.write " <script>history.go(-1); </script>"
response.end
else
If Request.Form1("Submitted") = "login.asp" Then
strsql="select * from user where user_name='"&username&"'"
strsql=strsql&"and user_pasw='"&password&"'"
strsql=strsql&"and user_email='"&email&"'"
set conn=server.CreateObject("adodb.connection")
conn.open "mydata"
set rs = CreateObject("ADODB.RecordSet")
rs.Open strsql,conn,1,3
if not rs.bof and not rs.eof then
response.Write("用户名已经存在")
response.Redirect("index.asp")
response.End else
rs.AddNew
rs("user_name")=request("username")
rs("user_pasw")=request("password")
rs("user_email")=request("email")
rs.update
response.Write("用户添加成功！")
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end if
end if
%>
</body>
</html>
应该是这样写吧，如果不行，再看看conn.asp与set conn=server.CreateObject("adodb.connection")
conn.open "mydata"
set rs = CreateObject("ADODB.RecordSet")
rs.Open strsql,conn,1,3 这段

MySQL 为关系型数据库(Relational Database Management System), 这种所谓的"关系型"可以理解为"表格"的概念, 一个关系型数据库由一个或数个表格组成, 如图所示的一个表格: 表头(header): 每一列的名称; 列...

在学习本课程的时候，一定要动手实现一个需求，写完了之后一定要多思考原理，并且看看是否有其他的方式实现，这样能快速和深入的学好本课程。课程收获：在学习完本系列中所有的课程后，可以实现日常工作中...

本套课程讲解的知识点是windows管理员和数据库管理员(DBA)必须掌握的... 课程适用于所有版本的Windows（2012/2016/2019）和所有版本的SQL Server数据库（2008/2012R2/2014/2019）相信这套课程学员看完会有很大的收获。

技术选型 1，前端微信小程序原生框架 css JavaScript 2，管理后台云开发Cms内容管理系统 web网页 3，数据后台小程序云开发云函数云数据库 云存储 1，小程序端 1-1，首页首页有以下几个功能点点餐菜单...

看不懂同⾏写的SQL是为什么。 5. 不知道索引的原理。 6. 不知道怎么加索引能够提⾼查询性能纵观全网的教程都只停留在概念解析的层面，没有深入剖析原理，所以看了那么多的教程，可还是不会写。本教程与其他教程...