
在线等,提交表单遇到问题。 50
在本登录页面提交表单,代码如下:<%ifrequest.form("button")="登录"thendimuserdimpassuser=trim(request("u...
在本登录页面提交表单,代码如下:
<%
if request.form("button")="登录" then
dim user
dim pass
user=trim(request("user"))
pass=trim(request("pass"))
Set rs = server.CreateObject("ADODB.RecordSet")
rs.open "Select * from admin where user='" & user & "' and pass='" & pass & "'",conn,1,1
if rs.eof and rs.bof then
response.write("<script>alert('用户名或密码不正确,请检查后重新登录!');history.back()</script>")
response.end
else
session("login")="ok"
response.redirect "admin_admin.asp"
end if
rs.close
set rs=nothing
end if
%>
按理说,登录成功应该转到admin_admin.asp页面,然而程序还是停留在原页面,好像response.redirect "admin_admin.asp"不起用,如果是登录错误的话,弹出对话框正常,麻烦各位解答,在线等,急死我了。
没人回答,自己已搞定,为什么就没有高手愿意回答,都是一些一知半解之人,真晕。 展开
<%
if request.form("button")="登录" then
dim user
dim pass
user=trim(request("user"))
pass=trim(request("pass"))
Set rs = server.CreateObject("ADODB.RecordSet")
rs.open "Select * from admin where user='" & user & "' and pass='" & pass & "'",conn,1,1
if rs.eof and rs.bof then
response.write("<script>alert('用户名或密码不正确,请检查后重新登录!');history.back()</script>")
response.end
else
session("login")="ok"
response.redirect "admin_admin.asp"
end if
rs.close
set rs=nothing
end if
%>
按理说,登录成功应该转到admin_admin.asp页面,然而程序还是停留在原页面,好像response.redirect "admin_admin.asp"不起用,如果是登录错误的话,弹出对话框正常,麻烦各位解答,在线等,急死我了。
没人回答,自己已搞定,为什么就没有高手愿意回答,都是一些一知半解之人,真晕。 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询