用vbs和asp语言编写，写入数据库
我建立了一个用户注册的表，有用户名，密码，密码确认，email，regTIme，想用vbs判断密码和密码确认是不是一样，在用asp语言写到数据库里面，是在dreamwea...
我建立了一个用户注册的表，有用户名，密码，密码确认，email，regTIme，想用vbs判断密码和密码确认是不是一样，在用asp语言写到数据库里面，是在dreamweaver环境下实现，然后写入后，在跳转到登陆页面，登陆到我编写的聊天室里，就是这过程
展开
1个回答
展开全部
判断密码用的是SQL语句，用resquest.form得到表单中密码和账号。
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<html>
<head>
<title> login </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<%
Dim rs
Dim rs_numRows
Dim loginid,password,quanxian,flag
flag=false
loginid=Request.Form("loginid")
password=Request.Form("password")
quanxian=Request.Form("quanxian")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "select * from ztb1 where loginid='"&loginid&"' and password='"&password&"' and quanxian='"&quanxian&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
Do While Not rs.eof
flag=true
rs.movenext
Loop
'response.end
'conn.close
Set conn=Nothing
If flag=false Then
response.redirect("loginid.asp")
Else
Session("loginid")=Request.Form("loginid")
select case quanxian
case "学生"
response.redirect("xueshengkecheng.asp")
case "教师"
response.redirect("cjlrygl.asp")
case "管理员"
response.redirect("glxt.asp")
End select
end if
%>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<html>
<head>
<title> login </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<%
Dim rs
Dim rs_numRows
Dim loginid,password,quanxian,flag
flag=false
loginid=Request.Form("loginid")
password=Request.Form("password")
quanxian=Request.Form("quanxian")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "select * from ztb1 where loginid='"&loginid&"' and password='"&password&"' and quanxian='"&quanxian&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
Do While Not rs.eof
flag=true
rs.movenext
Loop
'response.end
'conn.close
Set conn=Nothing
If flag=false Then
response.redirect("loginid.asp")
Else
Session("loginid")=Request.Form("loginid")
select case quanxian
case "学生"
response.redirect("xueshengkecheng.asp")
case "教师"
response.redirect("cjlrygl.asp")
case "管理员"
response.redirect("glxt.asp")
End select
end if
%>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
追问
这就是我做的表单，就是想其中的密码和密码确认可以通过vbs语言判断，然后在另外的panduan.asp这个网页中，通过asp语言，写入我的C_user数据库，然后在跳转到我的login.asp登陆页面上，就是这么一个过程，您写的，我有些理解，但具体您在给写的详细一些，谢谢
追答
注册的话，点击注册按钮，表单提交到login.asp，把rs.Source = "select * from ztb1 where loginid='"&loginid&"' and password='"&password&"' and quanxian='"&quanxian&"'"
改为"insert into C_user values（'request.form("loginid")','request.form("password"),request.form("email"),request("注册时间")'
这里的loginid，password，email，注册时间都是表单域里的文本域的名字
判断密码的话在前边加一条if语句
if
request.form("password")=request.form("确认password")
then 执行上面插入的SQL语句
else response.write("两次输入的密码不同，请重新输入")
写入数据库和查询之类的都用记录集做，里边有对应的查询 更新 和修改
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
