日期:2014-05-17 浏览次数:21183 次
<!--#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>