asp的登陆页面 那里错了?

来源:百度知道 编辑:UC知道 时间:2024/07/04 07:10:04
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn.asp" -->
<!--#include file="md5.asp" -->
<%
mpassword=request.form("loginpassword")
u_password=md5(mpassword)
%>
<%
Dim cx
If Request.Form("name")="" Then
cs=Request.Form("name")
Else
Response.Write("<script>alert('August Studio企业电费管理系统提示:\n对不起,系统出现异常,请您及时联系管理员,或尝试重新登陆!');location.href='login.asp'</script>")
end if
%>

<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT * FROM admin where name = 'cx'"
rs.CursorType = 1
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
%>
<%
Response.Expires = 0
A=Request.S

还真是有点乱

1、你的表单textbox名到底是“name”还是“usename”?

2、你定义的变量到底是“cx ”还是“cs”?

3、这句:rs.Source = "SELECT * FROM admin where name = 'cx'"

你把变量用单引号括起来了就不再是变量了,而是变成字面常量了。正确的写法应该是:
rs.Source = "SELECT * FROM admin where name = ' & cx & '"

4、你的代码段:
Dim cx
If Request.Form("name")="" Then
cs=Request.Form("name")
Else
Response.Write("<script>alert('August Studio企业电费管理系统提示:\n对不起,系统出现异常,请您及时联系管理员,或尝试重新登陆!');location.href='login.asp'</script>")
end if
逻辑好像不是很对吧?如果从表单获取到空串则赋值给cs?如果获取的不是空串就出错提示转向???

5、if session("usename"="") then
错误有二:正确的应该是:if session("usename")="" then
另外,session("usename")尚未赋值就参与判断是错误的

总体上来说,顺序有点乱,小错不少。先把上面的改了以后再看一下错误提示吧

检查和数据库是不是匹配