| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1425 人关注过本帖
标题:[求助]这个文件的内容有什么语法错误吗?
取消只看楼主 加入收藏
jd4105
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-14
收藏
 问题点数:0 回复次数:4 
[求助]这个文件的内容有什么语法错误吗?
<!--#include file="../include/conn.asp"-->
<%
sql = "select id,username,password,flag,state from admin where username='"&trim(rs("UserName"))&"'"
rs.open sql,conn,3
if not rs.eof then
if rs("state")=0 then
response.write "该帐号已经停用!!!"
response.end
end if
if trim(request("PassWord"))=trim(rs("password")) then
session("username")=trim(rs("username"))
session("flag")=rs("flag")
session("id")=rs("id")
%>
<script language="javascript">
window.navigate("main.asp");
</script>
<%
else
%>
<script language="javascript">
alert("用户密码错误!");
window.navigate("index.asp");
</script>
<%
end if
else
%>
<script language="javascript">
alert("用户名错误!");
window.navigate("index.asp");
</script>
<%
end if
%>

没有语法错误吗,数据库路径是对的.admin表也有的

http://www.fz911.cn/1/24ol.cn
登陆
admin
admin

只要一check就500错误了.
懂的帮我下,谢谢
搜索更多相关主题的帖子: 语法 username trim 文件 
2007-09-14 19:04
jd4105
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-14
收藏
得分:0 
以下是引用madpbpl在2007-9-14 20:13:56的发言:

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x209c Thread 0x1c7c DBC 0x1713fe4 Jet'。

/1/include/conn.asp,行 4
这是你的文件报错的代码,检查一下数据库路径

这个错误是怎么得到的呢?? include/conn.asp 的内容是这样的.MDB的路径就是主目录下的/db/mxwedding.mdb

<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("./db/mxwedding.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath &";"
set rs=server.createobject("adodb.recordset")

Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符) 

Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "参数" & ParaName & "必须为数字型!"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
ParaValue=replace(ParaValue,";",";")
End if
SafeRequest=ParaValue
End function
%>



另外,楼上的仁兄,能说具体点吗?RS.CLOSE加了也没有用.
首页调用数据正常的。

http://www.fz911.cn/1/

为什么后台登陆, login检查ID密码的时候会出现500的错误呢?

http://www.fz911.cn/1/24ol.cn/index.asp
登陆
admin
admin

index.asp 文件内容是
<HTML>
<HEAD>
<TITLE>网后台管理系统</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="hs.css" type="text/css">
<link rel="stylesheet" href="../css/font.css" type="text/css">
</HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!--
function check(){
if (document.formlogin.UserName.value.length == 0) {
alert("请输入用户名!");
document.formlogin.UserName.focus();
return false;
}else if (document.formlogin.PassWord.value.length == 0) {
alert("请输入密码!");
document.formlogin.PassWord.focus();
return false;
}
return true;
}
//-->
</SCRIPT>
<BODY bgcolor="#3E3E3E" leftmargin="0" topmargin="0" onload="document.formlogin.UserName.focus();" background="../images/bgpic.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<table border="0" cellspacing="0" cellpadding="0" align="center" width="60%">
<tr>
<td height="300">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp; </td>
<td valign="bottom">
<div align="right"></div>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="../images/2line.gif" height="2">
<tr>
<td> </td>
</tr>
</table>
<br>
<br>
<table width="50%" border="0" align="center" cellspacing="1" cellpadding="10">
<form name="formlogin" method="post" action="checklogin.asp" onSubmit="return check();">
<tr>
<td colspan="2">
<div align="center"></div>
</td>
</tr>
<tr>
<td bgcolor=>
<div align="right">用 户 名:</div>
</td>
<td width="65%" bgcolor=>
<input type="text" name="UserName" value="" class="button">
</td>
</tr>
<tr>
<td bgcolor=>
<div align="right">密  码:</div>
</td>
<td width="65%" bgcolor=>
<input type="password" name="PassWord" value="" class="button">
</td>
</tr>
<tr>
<td bgcolor=>&nbsp;</td>
<td width="65%" bgcolor=>
<input type="submit" name="Submit" value="登录" class="button">
 
<input type="reset" name="Reset" value="取消" class="button">
</td>
</tr>
</form>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="../images/2line.gif" height="2">
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
</BODY>
</HTML>

到底是哪个文件出了问题呢?
搜了下论坛,有类似的,但也不能解决.
我刚学asp,实在头疼.各位请指教啊



2007-09-14 22:47
jd4105
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-14
收藏
得分:0 

谢谢楼上的,但是改成 DBPath = Server.MapPath("../db/mxwedding.mdb")
连首页都无法访问,出现

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x209c Thread 0x1c7c DBC 0x1713fe4 Jet'。

/1/include/conn.asp,行 4

的错误

是不是连接数据库的语句不对,或者服务器认不出路径呢???

2007-09-15 08:59
jd4105
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-14
收藏
得分:0 

现在全部按源文件上传了.
目录是这样的

/1/include/conn.asp
/1/db/mxwedding.mdb

conn.asp文件内容是这样的

[CODE]<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../db/mxwedding.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath &";"
set rs=server.createobject("adodb.recordset")
Function SafeRequest(ParaName,ParaType)
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符) 
Dim ParaValue
ParaValue=Request(ParaName)
If ParaType=1 then
If not isNumeric(ParaValue) then
Response.write "参数" & ParaName & "必须为数字型!"
Response.end
End if
Else
ParaValue=replace(ParaValue,"'","''")
ParaValue=replace(ParaValue,";",";")
End if
SafeRequest=ParaValue
End function
%>[/CODE]

但是这样的话,首页都无法访问,路径应该没有问题啊???
http://www.fz911.cn/1/

2007-09-15 10:43
jd4105
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-9-14
收藏
得分:0 
非常感谢楼上的详细解释.
但是按照这样的目录
/1/include/conn.asp
/1/db/mxwedding.mdb

conn.asp文件里面路径 ../db/里指向数据库的路径不是 ../db/mxwedding.mdb 也不是 db/mxwedding.mdb
而是 /db/mxwedding.mdb 是什么意思啊?
2007-09-15 12:55
快速回复:[求助]这个文件的内容有什么语法错误吗?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022592 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved