ASP+HTML+Dreamweaver+Access问题
我做好了会员登陆页面,可加入了如下代码后,所有页面的东西都不显示了,请高手帮我看下程序哪有问题!!!谢谢了!!!<!--#includefile="conn.asp"#-...
我做好了会员登陆页面,可加入了如下代码后,所有页面的东西都不显示了,请高手帮我看下程序哪有问题!!!谢谢了!!!
<!--#include file="conn.asp"#-->
<%
Dim rs
Dim sql
Dim name
Dim pwd
name=Trim(Request.Form("name"))
pwd=Trim(Request.Form("pwd"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from userinfo where name='"&name&"'"
Rs.Open Sql,conn,2,3
if name="" or pwd="" then
Response.Write"<script>alert('用户或密码不能为空!');history.go(-1);</script>"
Response.End
Else
If Rs.eof And Rs.bof Then
Response.Write"<script>alert('没有此用户,请返回注册!');history.go(-1);</script>"
Response.End
Else
If name=Rs("name") And pwd=Rs("pwd") Then
Rs("online")="1"
Rs("logintime")=now()
Rs.Update
Session("name")=name
Response.Redirect "denglu.asp"
Else
Response.Write"<script>alert('用户名或密码错误!');history.go(-1);</script>"
Response.End
End If
End If
End If
Rs.Close
Set Rs=nothing
%> 展开
<!--#include file="conn.asp"#-->
<%
Dim rs
Dim sql
Dim name
Dim pwd
name=Trim(Request.Form("name"))
pwd=Trim(Request.Form("pwd"))
Set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from userinfo where name='"&name&"'"
Rs.Open Sql,conn,2,3
if name="" or pwd="" then
Response.Write"<script>alert('用户或密码不能为空!');history.go(-1);</script>"
Response.End
Else
If Rs.eof And Rs.bof Then
Response.Write"<script>alert('没有此用户,请返回注册!');history.go(-1);</script>"
Response.End
Else
If name=Rs("name") And pwd=Rs("pwd") Then
Rs("online")="1"
Rs("logintime")=now()
Rs.Update
Session("name")=name
Response.Redirect "denglu.asp"
Else
Response.Write"<script>alert('用户名或密码错误!');history.go(-1);</script>"
Response.End
End If
End If
End If
Rs.Close
Set Rs=nothing
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询