请教各位一下?
我刚用asp做的“用户登录”栏。但怎么调试都不会出来,现附代码于下,请各位帮忙查看一下是那步出了问题。还有在index.asp页中应该怎么写代码。等待!!!
<%@ LANGUAGE = "VBScript" %>
<%
function checklogin(login,password)
set cnndb=server.CreateObject("adodb.connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _ server.MapPath("../database/class.mdb")
cnndb.open strcon
set rstlogin=server.CreateObject("adodb.recordset")
strsql="select*from login " & _ "where 用户名='" & login & "'"
rstlogin.open strsql,cnndb
if rstlogin.eof then
checklogin="无此用户名"
elseif rstlogin("密码") <> password then
checklogin="密码错误"
else
checklogin="成功登录"
endif
end function
username=request("username")
userpassword=request("userpassword")
strchecklogin=checkloing(username,userpassword)
if strchecklogin="成功登录" then
session("username") = request("username")
session("userpassword") = request("userpassword")
response.Redirect("page/dengluchenggong.asp)
end if
%>
<html>
<head>
<title>用户登录</title>
</head>
<body>
<center>
<font size= 5 color=blue>用户登录</font>
</center>
<hr>
<center>
<% strchecklogin %><a href="index.asp">请重新登录</a>
</center>
</body>
</html>
问题点数:0、回复次数:6Top
1 楼tigerlgf(南湖学士)回复于 2003-11-02 09:07:28 得分 0
错误提示是什么?在哪一行?Top
2 楼Struggling(Leo)回复于 2003-11-02 09:09:14 得分 0
strsql="select*from login " & "where 用户名='" & login & "'"
rstlogin.open strsql,cnndb,1,1Top
3 楼jackycxg(黑白灰)回复于 2003-11-02 09:24:54 得分 0
没显示错误提示,但就是运行的时候根本就不会出现效果。
比如随便输入 一个不存在的用户名 和密码,运行的时候就是什么都不会出现的一个界面。Top
4 楼jackycxg(黑白灰)回复于 2003-11-02 09:28:36 得分 0
还有我单击登录按钮的时候,会出现一个文件下载的对话框,请问这是什么原因呀??Top
5 楼tommerxx(tommer)回复于 2003-11-02 09:33:09 得分 0
sql语句有错咯。
strsql="select*from login " & _ "where 用户名='" & login & "'"
你最后的login值由哪里传入?现在的语句相当于查询结果为空,当然没效果咯。Top
6 楼jackycxg(黑白灰)回复于 2003-11-02 09:40:38 得分 0
最后的login??这个值的最后传入我都不知道该怎么写的呢
是不是可以这样写呀
login.value=request("username","userpassword")
应该写在什么位置呢??谢谢!!!
Top




