ASP程式报错,打开ADMIN后台管理的时候,进不去!为什么? ASP原程式下载:http://www.qddhawy.com/rushsky/bg.rar 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 头错 /rushsky/test/temp/admin/index.asp,行56 把index.asp文件的前60行贴出来看看!~ skyword(网络新丁)什么意思? index 所有程式如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><html><head><title>管理后台</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#9CBAEF"><p> </p><p> </p><p> </p><table width="405" height="6" border="0" align="center" cellspacing="1"> <tr> <td width="100%" height="57" bgcolor="#9DB8E8"> <form method="POST" action="index.asp?action=login"> <table width="71%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="3" align="center"> <tr> <td colspan="2" height="28" bgcolor="#73B2EF"> <div align="center"><font color="#FFFFFF">管理员登陆系统</font></div></td> </tr> <tr> <td width="34%"> <div align="right"><font size="2">管理员帐号</font></div></td> <td width="66%"> <input type="text" name="uid" size="20"> </td> </tr> <tr> <td width="34%"> <div align="right"><font size="2">管理员密码</font></div></td> <td width="66%"> <input name="pwd" type="password" id="pwd" value="" size="20"> </td> </tr> <tr> <td colspan="2" height="28" bgcolor="#73B2EF"> <div align="center"> <input type="submit" name="Submit" value="登陆"> </div></td> </tr> </table> </form></td> </tr> <tr> <td width="100%" height="1"></td> </tr></table><%if request("action")="login" thenuid=request("uid")pwd=request("pwd")%><!--#include file="admin_conn.asp"--><%set rs=server.createobject("adodb.recordset")sql="select * from admin where uid='"&uid&"' and pwd='"&pwd&"'"rs.open sql,conn,3,3 if rs.eof then response.write "<center>用户名和密码不匹配" else session("uid")=rs("uid") response.redirect "admin_index.asp" end ifrs.closeset rs=nothingconn.closeset conn=nothingend if%> 改成if request.QueryString("action")="login" then试试呢? 我觉得没什么错误了!我觉得头错误是不是html语言的错误?你可以把程序admin_conn.asp index.asp 及mdb发给我或者给个连接,我中午看看... 好不?? ASP原程式下载:http://www.qddhawy.com/rushsky/bg.rar 这个我看过了。。我要你的index.asp和admin_conn.asp还有mdb这三个... index.asp 全部程式:<!--#include file="top.asp"--><!--#include file="conn.asp"--><!--#include file="css1.css"--><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>住 在 温 州</title><body><TABLE width=777 border=0 align="center" cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD bgColor=#188eac width=1></TD> <TD align=middle width=773> <TABLE width=187 border=0 align="left" cellPadding=0 cellSpacing=0> <TBODY> <TR align=middle vAlign=top> <TD width=180 height="110"><!--#include file="dlck.asp"--> <TABLE height=2 width="100%"> <TBODY> <TR> <TD></TD> </TR> </TBODY> </TABLE></TD> <TD width=10> </TD> </TR> </TBODY> </TABLE> <table width="577" height="111" border="1" align="left" cellpadding="0" cellspacing="0"> <tr> <td width="22" height="109" bgcolor="#D2D200"><img src="images/xxdd.gif" width="22" height="107"></td> <td width="549"><table width="365" height="27" border="0" align="left" cellpadding="0" cellspacing="2"> <% set rs6=conn.execute("select top 6 * from news where mytype='导读信息 ' order by id desc") if rs6.bof and rs6.eof then response.write "暂时没有内容" else while not rs6.eof %> <tr> <td width="274" bgcolor="#FFFFFF"><font size="2"> <font size="2"><img src="images/jiantou01.gif" width="10" height="8"></font> <a href="news.asp?xiangxi=<% =rs6("id") %>"><font size="2"> <% =rs6("bt") %> </font></a> </font></td> <td width="75"><div align="center"><font size="1"> <% =rs6("riqi") %> </font></div></td> <% rs6.movenext wend end if rs6.close set rs6=nothing %> </tr> <tr> </tr> </table> <table width="138" align="right" cellpadding="0" cellspacing="0"> <tr> <td width="136" height="98"><img src="images/fbxx.gif" width="159" height="74" border="0" usemap="#Map"></td> </tr> </table></td> </tr> </table> <map name="Map"> <area shape="rect" coords="96,10,159,36" href="fb.asp?lb=出售" alt="免费发布出售信息"> <area shape="rect" coords="2,11,65,36" href="fb.asp?lb=出租" alt="免费发布出租信息"> <area shape="rect" coords="4,48,65,72" href="fb.asp?lb=求租" alt="免费发布求租信息"> <area shape="rect" coords="95,49,160,72" href="fb.asp?lb=求购" alt="免费发布求购信息"> </map> </TD> <TD bgColor=#188eac width=1></TD> </TR> </TBODY></TABLE><TABLE width=777 height="93" border=0 align="center" cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD bgColor=#188eac width=1></TD> <TD align=middle width=773><table width="775"> <tr> <td width="191" valign="top"><table width="170"> <tr> <td><div align="center"> <!--#include file="java.asp"--> </div></td> </tr> </table> <table width="170"> <tr> <td><div align="center"> <!--#include file="google.asp"--> </div></td> </tr> </table> <table width="170"> <tr> <td><!--#include file="picture.asp"--></td> </tr> </table></td> <td width="578"><table width="581" cellpadding="2" cellspacing="2"> <tr> <td width="573"><form name="form1" method="post" action="sousuo.asp"> <table width="580" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="23"><img src="images/tiao002.gif" width="23" height="26"></td> <td width="542" bordercolor="#FFFFFF" bgcolor="#D7EAEA"><span class=9size><span style="font-size: 9pt" id="fps0">区域: </span> </span> <span style="font-size: 9pt" id="fps0"> <select name="fw_quyu"> <option value="all" selected>--不限--</option> <option value="鹿城区">鹿城区 </option> <option value="龙湾区">龙湾区</option> <option value="瓯海区">瓯海区 </option> </select> </span><span class=9size><span style="font-size: 9pt" id="fps0"> </span></span><span class=9size><span style="font-size: 9pt">面积: <select name="fw_mianji"> <option value="all" selected>---不 限---</option> <option value=A>50平方以下</option> <option value=B>50-70平方</option> <option value=C>70-90平方</option> <option value=D>90-110平方</option> <option value=E>110-150平方</option> <option value=F>150平方以上</option> </select> </span></span><span class=9size><span style="font-size: 9pt" id="fps0">时间: <select name=fw_fbri> <option value="all" selected>---不 限---</option> <option value=7>七天内信息</option> <option value=15>半月内信息</option> <option value=30>一月内信息</option> <option value=90>三月内信息</option> </select> </span><span class=9size> <input align=middle border=0 name=Submit3 id=Submit5 type=submit value=搜索 width=30 rgb(100,100,255); background-color: height=16 class=txt style="border-style: dotted; border-width: 1"> <span style="font-size: 9pt"> <input align=middle border=0 name=clear2 onClick=clear() id=clear25 type=reset value=清除 width=30 rgb(100,100,255); height=16 class=txt style="border-style: dotted; border-width: 1"> </span></span></span></td> <td width="15"><img src="images/tiao001.gif" width="14" height="26"></td> </tr> </table> </form></td> </tr> <tr> <td><!--#include file="czcszx.asp"--> </td> </tr> <tr> <td><!--#include file="let_zx.asp"--></td> </tr> </table></td> </tr> </table></TD> <TD bgColor=#188eac width=1></TD> </TR> </TBODY></TABLE><!--#include file="let.asp"--></body></html> admin_conn.asp 程式:<%dim dbpath,conn,startime,db,rs,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,fw_chushou,fw_city,fw_quyu,fw_dizhi,fw_jiaotong,fw_leixing,fw_jiegou,fw_louceng,fw_mianji,fw_zhuangxiu,fw_jiage,fw_lxdh,fw_OICQ,fw_lxname,fw_fbri,fw_guoqi,fw_qtsm,fw_peitao,pid,pwd,pwd2,uname,xb,sfz,email,tel,tishi,tsdadb="../data/lyw.mdb"'这里修改数据库路径或名称Set conn = Server.CreateObject("ADODB.Connection")dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)conn.Open dbpath%> MDB的下载地址是http://www.qddhawy.com/rushsky/test/temp/data/lyw.mdb兄弟们,我的错!◎现在贴出来了!请帮助!谢谢大家了! 你从index.asp开始检查,包括他的包含文件。如果你愿意的话,请把你的这几个登录文件和包含文件发给我,我帮你调试一下看看...email: [email protected] IHttpModule如何拦接html请求 datagri与dropdownlist实现分页问题出现无效的 CurrentPageIndex 值。它必须大于等于 0 且小于 PageCount错误!试了很多方法不行! 更新记录问题 生成网站时提示"当前上下文中不存在名称"checkresult",可页面中明明有呀? ======URL====== 关于 sqlhelper.cs aspx首页不显示的原因 求一正则表达式 在web页上能不能做那种弹出式菜单? js 调用问题 一个小问题 请大家帮我看一下,不解决,晚上睡觉都睡不好,晕死...
什么意思?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>管理后台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body bgcolor="#9CBAEF">
<p> </p>
<p> </p>
<p> </p>
<table width="405" height="6" border="0" align="center" cellspacing="1">
<tr>
<td width="100%" height="57" bgcolor="#9DB8E8"> <form method="POST" action="index.asp?action=login">
<table width="71%" border="1" bordercolordark=#9CC7EF bordercolorlight=#145AA0 cellspacing="0" cellpadding="3" align="center">
<tr>
<td colspan="2" height="28" bgcolor="#73B2EF"> <div align="center"><font color="#FFFFFF">管理员登陆系统</font></div></td>
</tr>
<tr>
<td width="34%"> <div align="right"><font size="2">管理员帐号</font></div></td>
<td width="66%"> <input type="text" name="uid" size="20"> </td>
</tr>
<tr>
<td width="34%"> <div align="right"><font size="2">管理员密码</font></div></td>
<td width="66%"> <input name="pwd" type="password" id="pwd" value="" size="20">
</td>
</tr>
<tr>
<td colspan="2" height="28" bgcolor="#73B2EF"> <div align="center">
<input type="submit" name="Submit" value="登陆">
</div></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td width="100%" height="1"></td>
</tr>
</table>
<%
if request("action")="login" then
uid=request("uid")
pwd=request("pwd")
%>
<!--#include file="admin_conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where uid='"&uid&"' and pwd='"&pwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.write "<center>用户名和密码不匹配"
else
session("uid")=rs("uid")
response.redirect "admin_index.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>
if request.QueryString("action")="login" then
试试呢?
admin_conn.asp index.asp 及mdb发给我或者给个连接,我中午看看... 好不??
http://www.qddhawy.com/rushsky/bg.rar
<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="css1.css"--><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>住 在 温 州</title><body>
<TABLE width=777 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#188eac width=1></TD>
<TD align=middle width=773> <TABLE width=187 border=0 align="left" cellPadding=0 cellSpacing=0>
<TBODY>
<TR align=middle vAlign=top>
<TD width=180 height="110"><!--#include file="dlck.asp"-->
<TABLE height=2 width="100%">
<TBODY>
<TR>
<TD></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=10> </TD>
</TR>
</TBODY>
</TABLE>
<table width="577" height="111" border="1" align="left" cellpadding="0" cellspacing="0">
<tr>
<td width="22" height="109" bgcolor="#D2D200"><img src="images/xxdd.gif" width="22" height="107"></td>
<td width="549"><table width="365" height="27" border="0" align="left" cellpadding="0" cellspacing="2">
<%
set rs6=conn.execute("select top 6 * from news where mytype='导读信息 ' order by id desc")
if rs6.bof and rs6.eof then
response.write "暂时没有内容"
else
while not rs6.eof
%>
<tr>
<td width="274" bgcolor="#FFFFFF"><font size="2"> <font size="2"><img src="images/jiantou01.gif" width="10" height="8"></font>
<a href="news.asp?xiangxi=<% =rs6("id") %>"><font size="2">
<% =rs6("bt") %>
</font></a> </font></td>
<td width="75"><div align="center"><font size="1">
<% =rs6("riqi") %>
</font></div></td>
<%
rs6.movenext
wend
end if
rs6.close
set rs6=nothing
%>
</tr>
<tr> </tr>
</table>
<table width="138" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="136" height="98"><img src="images/fbxx.gif" width="159" height="74" border="0" usemap="#Map"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="96,10,159,36" href="fb.asp?lb=出售" alt="免费发布出售信息">
<area shape="rect" coords="2,11,65,36" href="fb.asp?lb=出租" alt="免费发布出租信息">
<area shape="rect" coords="4,48,65,72" href="fb.asp?lb=求租" alt="免费发布求租信息">
<area shape="rect" coords="95,49,160,72" href="fb.asp?lb=求购" alt="免费发布求购信息">
</map> </TD>
<TD bgColor=#188eac width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=777 height="93" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#188eac width=1></TD>
<TD align=middle width=773><table width="775">
<tr>
<td width="191" valign="top"><table width="170">
<tr>
<td><div align="center">
<!--#include file="java.asp"-->
</div></td>
</tr>
</table>
<table width="170">
<tr>
<td><div align="center">
<!--#include file="google.asp"-->
</div></td>
</tr>
</table>
<table width="170">
<tr>
<td>
<!--#include file="picture.asp"--></td>
</tr>
</table></td>
<td width="578"><table width="581" cellpadding="2" cellspacing="2">
<tr>
<td width="573"><form name="form1" method="post" action="sousuo.asp">
<table width="580" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="23"><img src="images/tiao002.gif" width="23" height="26"></td>
<td width="542" bordercolor="#FFFFFF" bgcolor="#D7EAEA"><span class=9size><span style="font-size: 9pt" id="fps0">区域:
</span> </span> <span style="font-size: 9pt" id="fps0">
<select name="fw_quyu">
<option value="all" selected>--不限--</option>
<option value="鹿城区">鹿城区 </option>
<option value="龙湾区">龙湾区</option>
<option value="瓯海区">瓯海区 </option>
</select>
</span><span class=9size><span style="font-size: 9pt" id="fps0"> </span></span><span class=9size><span style="font-size: 9pt">面积:
<select name="fw_mianji">
<option value="all" selected>---不 限---</option>
<option value=A>50平方以下</option>
<option value=B>50-70平方</option>
<option value=C>70-90平方</option>
<option value=D>90-110平方</option>
<option value=E>110-150平方</option>
<option value=F>150平方以上</option>
</select>
</span></span><span class=9size><span style="font-size: 9pt" id="fps0">时间:
<select name=fw_fbri>
<option value="all" selected>---不 限---</option>
<option value=7>七天内信息</option>
<option value=15>半月内信息</option>
<option value=30>一月内信息</option>
<option value=90>三月内信息</option>
</select>
</span><span class=9size>
<input align=middle border=0 name=Submit3 id=Submit5 type=submit value=搜索 width=30 rgb(100,100,255); background-color: height=16 class=txt style="border-style: dotted; border-width: 1">
<span style="font-size: 9pt">
<input align=middle border=0 name=clear2 onClick=clear() id=clear25 type=reset value=清除 width=30 rgb(100,100,255); height=16 class=txt style="border-style: dotted; border-width: 1">
</span></span></span></td>
<td width="15"><img src="images/tiao001.gif" width="14" height="26"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><!--#include file="czcszx.asp"-->
</td>
</tr>
<tr>
<td><!--#include file="let_zx.asp"--></td>
</tr>
</table></td>
</tr>
</table></TD>
<TD bgColor=#188eac width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="let.asp"-->
</body>
</html>
dim dbpath,conn,startime,db,rs,rs1,rs2,rs3,rs4,rs5,rs6,rs7,rs8,fw_chushou,fw_city,fw_quyu,fw_dizhi,fw_jiaotong,fw_leixing,fw_jiegou,fw_louceng,fw_mianji,fw_zhuangxiu,fw_jiage,fw_lxdh,fw_OICQ,fw_lxname,fw_fbri,fw_guoqi,fw_qtsm,fw_peitao,pid,pwd,pwd2,uname,xb,sfz,email,tel,tishi,tsda
db="../data/lyw.mdb"'这里修改数据库路径或名称
Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
%>
http://www.qddhawy.com/rushsky/test/temp/data/lyw.mdb兄弟们,我的错!◎
现在贴出来了!
请帮助!
谢谢大家了!