日期:2014-05-17 浏览次数:21029 次
<!--#include file="Conn_1.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <body> <form name="form" action="" method="post"> <% Dim I set rs=Server.CreateObject("adodb.recordset") sql = "select * from xwgg order by shijian desc" rs.open sql,conn,1,1 If Not rs.Bof And Not rs.Eof Then I=rs.PageSize Do While Not rs.Eof And I>0 I=I-1 %> <a href="new/?<%=rs("id")%>.html"><%=rs("title")%></a></td> <% rs.movenext loop end if %> </form> </body> </html>
<!--#include file="../Conn_1.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head> <% Dim value1,value2,id1,id2,id,today value1=replace(Request.ServerVariables("QUERY_STRING"),".html","") '获得?后面的参数 value2=split(value1,"-") '对参数进行过滤,从而获得id1和id2的值 id1=value2(0) id2=value2(1) set xwgg=Server.CreateObject("adodb.recordset") xwgg_sql = "select * from xwgg where id="&id1 xwgg.open xwgg_sql,conn,1,3 %> <body> <form action="" method="post"> <table width="650" height="39" border="0" cellpadding="0" cellspacing="0" style=" border-bottom:1px dashed #333333;"> <tr> <td align="center" valign="middle" class="zi06">标题:<%=xwgg("title")%></td> </tr> <tr> <td align="center" valign="middle" class="zi06">内容:</td> </tr> </table> </form> </body> </html>