为什么没有记录显示啊，以上是查看代码啊，请帮帮我看这是为什么？？？modify.asp
请大家帮帮忙啊！！！！１
请大家帮帮忙啊！！！！１
2005-06-18 07:55
2005-06-18 07:57
2005-06-18 08:00
2005-06-18 08:09
2005-06-18 09:26
2005-06-19 21:59
这是里查看的代码 modify.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>硕果累累</title> <style type="text/css"> <!-- .unnamed1 { font-size: 12px; text-decoration: none; } --> </style> <% dim length1,length2 length1=16 length2=14 %> <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> <link href="../css.css" rel="stylesheet" type="text/css"> </head> <!--#include file="../include/strCnn.asp"--> <% dim leixing leixing=cstr(request.QueryString("leixing"))
set rs=server.CreateObject("adodb.recordset") rs.open "select * from yskj where leixing='"&leixing&"'order by id desc",objcnn,3,3 if request.Form("Submit")="删除" then while rs.eof=false if request.Form(cstr(rs("id")))="del" then rs.delete end if rs.movenext wend rs.close rs.open "select * from yskj where leixing='"&leixing&"' order by id desc",objcnn,3,3 end if %> <body bgcolor="D6DFF7"> <div align="center"><b><%=request.QueryString("leixing")%>信息管理</b> </div> <table width="100%" border="1" align="center" bordercolorlight="#006600" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" class="unnamed1"> <form action="modify.asp?leixing=<%=request.QueryString("leixing")%>" method="post" name="form1"> <tr> <td height="18"><div align="center">标题</div> <div align="center"></div> <div align="center"></div> <div align="center"></div></td> <td><div align="center">发布时间</div></td> <td><div align="center">删除</div></td> <td><div align="center">修改</div></td> </tr> <% If Not rs.Bof And Not rs.Eof Then if Request.QueryString("page_no")="" then page_no=1 else page_no=Cint(Request.QueryString ("page_no")) end if page_size=10 rs.PageSize=page_size page_total=rs.PageCount rs.AbsolutePage=page_no Dim I I=page_size dim title,shuoming While Not rs.Eof And I>0 I=I-1 title=cstr(rs("title")) leixing=cstr(rs("leixing")) if len(title)>length1 then title=left(title,length2)&"..." end if if len(leixing)>length1 then leixing=left(leixing,length2)&"..." end if %> <tr> <td height="18"><a href="yskjshow.asp?id=<%=rs("id")%>" target="_blank" ><%=title%></a> <div align="left"></div></td> <td width="116"><div align="center"><%=rs("time")%></div></td> <td width="96"><div align="center"> <input name="<%=rs("id")%>" type="checkbox" id="<%=rs("id")%>" value="del"> </div></td> <td width="112"><div align="center"><a href="../zsjz/edit_addnews.asp?id=<%=rs("id")%>&leixing=<%=rs("leixing")%>&DBase=yskj" target="middle" class="unnamed1">修改</a></div></td> </tr> <% rs.movenext wend end if %> <tr> <td height="18" colspan="2"> <% response.Write("页数:"&page_total&" "&page_no &"/"&page_total&" 每页有"&page_size&"个文件,文件总数:"&rs.recordcount&" ") if page_no>=4 and page_no+4<page_total then response.Write(" ......") for i=page_no-3 to page_no+4 if i=page_no then response.Write i &" " else Response.Write "<samp class='unnamed1'><a href='modify.asp?page_no=" & I & " ' >" & I & "</a></samp> " end if next response.Write(" ......") elseif page_no>=4 and page_no+4>=page_total then response.Write(" ......") for i=page_no-3 to page_total if i=page_no then response.Write i &" " else Response.Write "<samp class='unnamed1'><a href='modify.asp?page_no=" & I & " ' >" & I & "</a></samp> " end if next elseif page_no<4 then dim m if page_total<5 then m=page_total else m=5 end if for i=1 to m if i=page_no then response.Write i &" " else Response.Write "<samp class='unnamed1'><a href='modify.asp?page_no=" & I & " ' >" & I & "</a></samp> " end if next end if %> 第 <select name="menu1" onChange="MM_jumpMenu('self',this,0)"> <%for j=1 to page_total%> <option value="modify.asp?page_no=<%=j%>" <%if page_no=j then%>selected<%end if%>><%=j%></option> <%next%> </select> 页 </td> <td height="18"> <div align="center"> <input type="submit" name="Submit" value="删除"> </div></td> <td height="18"><div align="center"><a href="../zsjz/admin_addnews.asp?DBase=yskj&leixing=<%=request.QueryString("leixing")%>" target="middle"><<发表信息>></a></div></td> </tr> </form> </table> </body> </html> 请各位老大哥们帮帮我，为什么查看的记录显示不出来啊！！！！！． 关键是leixing=cstr(request.QueryString("leixing"))这一句认不到表啊
2005-06-20 06:25
2005-06-20 06:26
