我的ASP不工作了,小弟初学,搞不懂,兄弟们指教下

theling 2004-05-07 10:40:58
源代码:
config.asp
dbpath="dd.mdb"
conn.asp
<!--#include file="config.asp" -->
<%
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};"&_
"DBQ=Server.MapPath(Dbpath);"
%>
主文件HOME.ASP
<table width="100%" height="100%" border="0" align="center">
<tr>
<td width="21%" height="101">
<table width="100%" height="95" border="0">
<tr align="center" background="img/loginbar.gif">
<td height="23" colspan="2"><font color="#FF0000" size="4">用户登陆:</font></td>
</tr>
<tr>
<td width="37%" height="20" align="center" valign="middle">帐号:</td>
<td width="63%"><form name="form1" method="post" action="verify.asp">
<input name="usname" type="text" size="10" maxlength="20">
</td>
</tr>
<tr>
<td height="20" align="center" valign="middle">密码:</td>
<td>
<input name="paword" type="password" size="10" maxlength="20">
</td>
</tr>
<tr>
<td height="20"> </td>
<td>
<input type="submit" name="Submit" value="确认">
</form></td>
</tr>
</table></td>
<td width="64%" rowspan="3" align="center" valign="middle"> </td>
<td width="15%"> </td>
</tr>
<tr>
<td width="21%"> </td>
<td width="15%"> </td>
</tr>
<tr>
<td width="21%"> </td>
<td width="15%"> </td>
</tr>
</table>

还有
verify.asp
<%LANGUAGE=VBscript%>
<!--#include file="conn.asp"-->
<%
username=Request.Form("usname")
password=Request.Form("paword")

'校验用户
if username="" then
Response.redirect"error.asp?info=抱歉,好象你用的是空名字!"
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from USERID where Name='"&username&"'",conn,1,3
if not rs.eof then
if rs("pass")<>password then
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
end if
else
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
end if
rs.close
set rs=nothing
session("username")=Name
session("nickname")=nickname
Response.redirect"main.asp"
%>
ERROR.ASP
<table width="100%" height="375" border="0">
<tr>
<td width="23%"> </td>
<td rowspan="3" align="center" valign="middle"><img src="img/error.gif" width="297" height="188" align="middle"></td>
<td width="21%"> </td>
</tr>
<tr>
<td width="23%"> </td>
<td width="21%"> </td>
</tr>
<tr>
<td width="23%" height="223"> </td>
<td width="21%"> </td>
</tr>
<tr>
<td> </td>
<td align="center"><font color="#FF0000" size="5">抱歉,好象出了下面问题!</font></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td align="center"><%=info%></td>
<td> </td>
</tr>
</table>
大家看看有什么问题,还有什么要注意,要补充的,尽管说..
...全文
46 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
theling 2004-05-08
  • 打赏
  • 举报
回复
好把,我自己再看看,谢谢你们指教了
wsh236 2004-05-08
  • 打赏
  • 举报
回复
你的 iis设置有问题了!
xyz1202 2004-05-08
  • 打赏
  • 举报
回复
if rs("pass")<>password then
========================>改成:if trim(rs("pass"))<>trim(password) then
lonelydreamsym 2004-05-08
  • 打赏
  • 举报
回复
在程序前面加上 on error resume next
在最后面加上

if err.nuber<>0 then
response.write(err.description)
end if

会给你详细的错误提示的,不过这种方法不能指出错行。
theling 2004-05-08
  • 打赏
  • 举报
回复
二楼的,我是楼主,我按你说的去改了,还是不行.不过先谢谢你解答问题了,可否说说,你为什么要这样改?
还,这是出错信息
无法显示网页
您要访问的网页有问题,无法显示。

--------------------------------------------------------------------------------

请尝试以下操作:

打开 192.168.0.144 主页,然后查找指向您感兴趣信息的链接。
单击刷新按钮,或以后再试。

单击搜索,寻找 Internet 上的信息。
也可查看相关站点列表。




HTTP 500 - 内部服务器错误
Internet Explorer
zjh13226 2004-05-08
  • 打赏
  • 举报
回复
哪里错呀
fengzilanglang 2004-05-08
  • 打赏
  • 举报
回复
建议1:你对表单的空值判断可以在HOME.ASP对submit内定义一个Sub:Onclick="check()"
在Sub check()对空值进行判断。

建议2:“HTTP 500 - 内部服务器错误 ”---可能是IIS设置问题,尝试浏览一下其它ASP文
件是否会出现同样问题。如果出现同样的报错,则是IIS设置问题;否则跳到下一条。

建议3:你的问题报告太多了,你可以一步步测试,不可能都有问题吧。把出现问题的文件找出来,再提问。
建议4::),你用DreamweaverMX做吧,里面有“应用”--“用户登录”。
祝你好运!



theling 2004-05-08
  • 打赏
  • 举报
回复
你们说的这些我都实验了可是...还是是没有解决啊
lxxstarii 2004-05-07
  • 打赏
  • 举报
回复
if not rs.eof then
if rs("pass")<>password then
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
end if
else
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
end if
rs.close
set rs=nothing
session("username")=Name
session("nickname")=nickname
Response.redirect"main.asp"
改为这个看看:
if rs.eof then
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
rs.close
set rs=nothing
else
if rs("pass")<>password then
Response.redirect"error.asp?info=对不起,你的帐号或密码不正确,请重新输入!"
else
session("username")=Name
session("nickname")=nickname
Response.redirect"main.asp"
rs.close
set rs=nothing
endif
endif

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧