[attach]1207[/attach]
文件包里有几个很很简单的文件,登陆的用户名密码都是admin,其中listart.asp老是出错。。好头疼啊,asp真的好难哦
好的。。这是出错文件中的全部代码,错误总是在红色的那一行~~~
<!--#include file="const.asp"--> <!--#include file="check.asp"--> <!--#include file="dbconn.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>文章管理</title> <link href="images/style2.css" rel="stylesheet" type="text/css"> <script language="JavaScript" type="text/JavaScript"> <!-- function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } //--> </script> <script language=javascript> //function alertbox(){ //if (window.document.form1.findcase.value=="") //window.alert("请输入搜索内容!"); //window.document.form1.findcase.focus(); //} </script> </head>
<body TOPMARGIN=0> <table width="529" height="223" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="529" height="223" valign="top"> <table width="100%" height="244" border="0" cellpadding="0" cellspacing="0" class="tab_border"> <!--DWLayoutTable--> <tr> <td width="11" height="24" valign="top" background="images/top.gif"> <div align="left"> </div></td> <td width="75" valign="top" background="images/top.gif"><a href="listart.asp?type2='news'"><font color="#FFFFFF">最新动态</font></a></td> <td width="74" valign="top" background="images/top.gif" class="td_height"><a href="listart.asp?type='guide'"><font color="#FFFFFF">就业指导</font></a></td> <td width="76" valign="top" background="images/top.gif"><a href="listart.asp?type2='law'"><font color="#FFFFFF">国家政策</font></a></td> <td width="75" valign="top" background="images/top.gif"><a href="listart.asp?type2='regu'"><font color="#FFFFFF">学院规章</font></a></td> <td width="75" valign="top" background="images/top.gif"><a href="listart.asp?type2='job'"><font color="#FFFFFF">单位招聘</font></a></td> <td width="70" valign="top" background="images/top1.gif"><a href="addart.asp"><font color="#FFFFFF">添加文章</font></a></td> <td width="71" valign="top" background="images/top2.gif"><a href="logout.asp"><font color="#FFFFFF">退出管理</font></a></td> </tr> <tr> <td height="96" colspan="8" valign="top" background="images/blockbg.gif"> <form name="form1" method="post" action="listart.asp?con=' '"> <br> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="506" height="29" bgcolor="#ebf4fe"> 当前管理内容: <%if con="" then set rs=server.createobject("adodb.recordset") sql="select head,kindname,date from article where kindid='news'" if (type2<>"") then sql="select head,kindname,date from article where kindid='"&type2&"'" end if rs.open sql,dbconn,3,1 response.write rs.kind rs.close else response.write con end if%> </td> </tr> <% findlist=request("findlist") findcase=request("findcase") if con=" " then set rs=server.createobject("adodb.recordset") if findlist="head" then sql="select head,kindname,date from article where" &findlist&" like '%"&findcase&"%' order by date desc" else if findlist="content" then sql="select head,kindname,date from article where" &findlist&" like '%"&findcase&"%' order by date desc" else if findlist="date" then sql="select head,kindname,date from article where" &findlist&"='"&findcase&"' order by date desc" end if end if %> <tr> <td height="51" valign="top" bgcolor="#DFEDFD"> 搜索: <select name="findlist" size="1" onChange="MM_jumpMenu('parent',this,0)"> <option value=head selected>文章标题</option> <option value=content >文章内容</option> <option value=date >更新日期</option> </select> <input type="text" name="findcase"> <input name="find" type="submit" class="button" value="搜索"> </td> </tr> </table> </form></td> </tr> <tr> <td height="121" colspan="8" valign="top" background="images/blockbg.gif"> <form name="form2" method="post" action="listart.asp"> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="2%"><img src="images/left.gif" width="19" height="22"></td> <td width="94%" bgcolor="#23438c"> </td> <td width="4%"><img src="images/right.gif" width="22" height="22"></td> </tr> </table> <table width="96%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#23438c" bordercolordark="#E8E8E8"> <tr> <td width="40%" height="17" bgcolor="#dfedfd" class="td_height2"> <div align="center">文章标题</div></td> <td width="20%" bgcolor="#dfedfd"> <div align="center">所属栏目</div></td> <td width="17%" bgcolor="#dfedfd"> <div align="center">更新日期</div></td> <td width="23%" bgcolor="#dfedfd"> <div align="center">管理选项</div></td> </tr> <% rs.open sql,dbconn,3,1 '***************************分页功能 rs.PageSize=15 pagecount=rs.PageCount page=int(request.QueryString ("page")) if page<=0 then page=1 end if if request.QueryString("page")="" then page=1 end if rs.AbsolutePage=page '**************************输出结果 do while not rs.eof and i<=15 biaoti=rs("head") lanmu=rs("kindname") riqi=rs("date") if len(biaoti)>13 then titleshow=left(title,13)&"…" end if %> <tr> <td bgcolor="#dfedfd" class="td_height2"><div align="center"><%=titleshow%></div></td> <td bgcolor="#dfedfd"><div align="center"><%=lanmu%></div></td> <td bgcolor="#dfedfd"><div align="center"><%=riqi%></div></td> <td bgcolor="#dfedfd"><div align="center"> <a href="modart.asp">修改</a> <input type="checkbox" name="idd" value='<%=rs("id")%>'> <a href="delart.asp">删除</a></div></td> </tr> <% i=i+1 rs.movenext loop %> </table> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td> </td> </tr> </table> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="20"> <div align="center"> <input name="Submit" type="submit" class="button" value="提交"> <input name="reset" type="reset" class="button" value="重置"> </div></td> </tr> </table> <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"> <% if page>1 then %> <a href="listart.asp?page=<%=page-1%>"><<上一页</a> <%end if%> <% if page < pagecount then %> <a href="listart.asp?page=<%=page+1%>">下一页>></a> <% end if %> 【共有文章<font color=red><%=rs.recordcount%></font>篇】【页数:<font color=red><%=page%></font>/<%=pagecount%>】跳转到 <select size="1" name="wzpg" onchange="tz();"> <%for i=1 to pagecount%> <option value='<%=i%>'<%if page=i then response.write " selected"%>><%=i%></option> <%next%> </select> 页</div></td> </tr> </table> <br> </form></td> </tr> </table></td> </tr> </table> <script language=javascript> function tz(){ this.location.href="listart.asp?page="+document.form2.wzpg.value; return true; } </script> <% rs.close call rsclose call dbconnclose %> </body> </html>