程序代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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>
<%
dim connstr,conn,sql,rs
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("ttw.mdb")
set conn=server.createobject("ADODB.Connection")
conn.open connstr
if err then
response.write "数据库连接错误!"
set conn=nothing
response.end
end if
%>
<%
dim zsty
zsty=request("xx")
exec="select * from zs where zstype='"&zsty&"' order by zstime desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="780" border="1">
<tr class="taright1"> <td><h4>知识标题</h4></td>
<td width="14%"><h4>知识类别</h4> </td> </tr>
<%
rs.pagesize=5
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
%>
<%
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<tr> <td width="86%" height="18" class="xline"><%=left(rs("zstitle"),30)%></td>
<td height="18" class="xline"><% =rs("zstype")%></td> </tr>
<%
rs.movenext
next
%>
<tr class="taright1">
<td colspan="2">
<%if curpage=1 then%>