|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
<% @ LANGUAGE=VBScript % >
<%
option explict
response.expires=0
%>
<! -- metadata name=\"microsoft activex data objects 2.5 library\"
type=\"typelib\" uuid=\"{00000205-0000-0010-8000-00AA006D2EA4}\" -->
%>
const intpagesize=6
dim intcur,inttotal,i
dim cn,rst,strconn,strsql
if request.servervariables(\"CONTENT-LENGTH\")=0 then
intcur = 1
else
incur = cint(request.form(\"curpage\"))
select case request.form(\"page\")
case\"shouye\"
intcur=1
case\"shangyiye\"
intcur=intcur-1
case\"xiayiye\"
intcur=intcur+1
case\"weiye\"
intcur=cint(request.form(\"lastpage\"))
end select
end if
dim conn
dim connstr
on error resume next
connstr=\"DBQ=\"+server.mappath(\"dingdan.mdb\")+\";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};\"
set conn=server.createobject(\"ADODB.CONNECTION\")
conn.open connstr
dim sql
dim rst
Set rst= Server.CreateObject(\"ADODB.Recordset\")
rst.cursorlocation=aduseclient
rst.cursortype=adopenstatic
rst.cachesize=intpagesize
sql=\"select * from dd
rst.open sql,conn,1,1
rst.pagesize=intpagesize
if not rst.eof then
rst.absolutepage=incur
end if
inttotal=rst.pagecount
%>
<html><head><title>fenyexianshibaobiao</title></head>
<body>
<b>dingdanyou<%=rst.recordcount %>ben gong<%=inttotal%>ye dangqianshidi<&=intcur&>ye</b><p>
<form action=\"<%=request.servervariables(\"script_name\")%>\"method=\"post\">
<input type=\"hidden\" name=\"curpage\" value=\"<%=intcur%>\">
<input type=\"hidden\" name=\"lastpage\" value=\"<%=inttotal%>\">
<input type=\"submit\" name=\"page\" value=\"shouye\">
<% if intcur>1 then %>
<input type=\"submit\" name=\"page\" value=\"shangyiye\">
<% end if %>
<% if intcur <> inttotal then %>
<input type=\"submit\" name=\"page\" value=\"xiayiye\">
<% end if %>
<input type=\"submit\" name=\"page\" value=\"weiye\">
</form></p>
<%
i=o
response.write\"<table border cellspacing=1 cellpadding=7>\"
do while not rst.eof and i <rst.pagesize
response.write\"<tr height=12><td width=20>\"& rst.absoluteposition &\"</td>\"&\"<td width=160>\" & rst(\"dhh\") &\"</td>\"& rst(\"zt\") &\"</td>\"& rst(\"kh\") &\"</td>\"& rst(\"gj\") &\"</td>\"& rst(\"cpbh\") &\"</td>\"& rst(\"dgsl\") &\"</td>\"& rst(\"yysl\") &\"</td>\"& rst(\"yusl\") &\"</td>\"& rst(\"ysrq\") &\"</td></tr>\"
rst.movenext
i=i+1
loop
response.write\"</table>\"
rst.close
%>
</body></html> |
|
|
|
|
|
|
|
|
|
发表于 2004-5-28 11:30:33
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
转播
淘帖
支持
反对
变色卡