📄 datalist.asp
字号:
<%@ LANGUAGE="VBScript" %>
<!--#include file="globvars.asp"-->
<!--#include file="commfunc.asp"-->
<%
if session("DataAdmi_Access")=0 then
response.redirect RediPage
end if
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 2.0">
<title>数据列表</title>
<%
Public PageNumb
PageNumb = Request.QueryString("pg") 'The Page Number To Display
if PageNumb="" then
PageNumb=1
else
PageNumb=cint(PageNumb)
end if
Function page_menu(ByVal cp, ByVal npgs)
' Input: cp = current page
' npgs = num pages
' Output: s = "Previous Page - 1 - 2 ... Next Page"
Dim s, n, np
s = ""
if cp > 1 then
n = cp - 1
s = "<a href='datalist.asp?pg=" & n & "'><font size='2' face='Verdana'>上页</font></a>"
else
s = "<font size='2' face='Verdana'>上页</font>"
end if
np = 0 ' P0 == np = number pages added to string thus far
n = cp - 4
do while n <> npgs + 1 AND np <> 9
if 1 <= n then
s = s & "<font size='2' face='Verdana'> - </font>"
if n=cp then
s = s & "<a href='datalist.asp?pg=" & n & "'><font size='2' face='Verdana'><strong>" & _
CStr(n) & "</strong></font></a>"
else
s = s & "<a href='datalist.asp?pg=" & n & "'><font size='2' face='Verdana'>" & CStr(n) & "</font></a>"
end if
np = np + 1
end if
n = n + 1
loop ' n=npgs+1 v np=9
s = s & "<font size='2' face='Verdana'> - </font>"
if cp < npgs then
n = cp + 1
s = s & "<a href='datalist.asp?pg=" & n & "'><font size='2' face='Verdana'>下页</font></a>"
else
s = s & "<font size='2' face='Verdana'>下页</font>"
end if
page_menu = s
End Function
Function head_tabl(ByRef rs)
Dim s, c
s = "<div align='center'><center><table border='1' cellpadding='2' cellspacing='0' width='100%'>"
c = 0
for each f in rs.Fields
if c = 0 then
s = s & "<tr>"
end if
s = s & "<td align='center' width='20%'>"
s = s & f.Name & "</td>"
c = c + 1
if c = 5 then
s = s & "</tr>"
c = 0
end if
next
do while c <> 0 AND c <> 5
s = s & "<td width='20'> </td>"
c = c + 1
loop
s = s & "</table></center></div>"
head_tabl = s
End Function
Function data_tabl(ByRef rs)
Dim s, s2, n, c
s = "<div align='center'><center><table border='1' cellpadding='2' cellspacing='0' width='100%'>"
n = 0
c = 0
for each f in rs.Fields
if c = 0 then
s = s & "<tr>"
end if
if f.Attributes = adAutoIncrement then
s = s & "<td align='center' valign='center' width='20%'>"
s = s & "<a href='editreco.asp?fv=" & f.value & "&pg=" & PageNumb
s = s & "&fn=" & Server.URLEncode(f.Name) & "'><font size='2' face='Verdana'>"
s = s & f.value & "</font></a></td>"
n = 1
else
s = s & "<td align='left' valign='top' width='20%'>"
if IsNull(f.value) then
s2 = " "
else
s2 = CStr(f.value)
end if
if Len(s2) > 30 then
s2 = mid(s2, 1, 30)
s2 = s2 & "..."
end if
s = s & "<font size='1' face='Verdana'>"
s = s & s2 & "</font></td>"
end if
c = c + 1
if c = 5 then
s = s & "</tr>"
c = 0
end if
next
do while c <> 0 AND c <> 5
s = s & "<td width='20'> </td>"
c = c + 1
loop
s = s & "</table></center></div>"
data_tabl = s
End Function
%>
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="10" cellspacing="0" width="100%">
<tr>
<td valign="top" width="11%" bgcolor="#C0C0C0"><a
href="admilogi.asp"><font color="#0000FF" size="2"><strong>重新登陆</strong></font></a>
<p><a href="<%=HomePage%>"><font
color="#0000FF" size="2"><strong>首页</strong></font></a></p>
<p> </p>
</td>
<td valign="top" width="89%">
<p align="center"><font
color="#FF0000" size="4" face="Verdana"><strong>数据列表</strong></font><br>
<font size="2">数据库: </font><font
color="#008000" size="3"><strong><% response.write session("DataAdmi_DataName") %></strong></font><font
size="2"> 表名: </font><font
color="#008000" size="3"><strong><% response.write session("DataAdmi_TablName") %></strong></font></p>
<p align="left"><%
Dim Conn, Nn, Mm, Str, Rec, Val, FielName
call open_data(Conn, session("DataAdmi_DataName"))
RecsPage = 30
Str = "SELECT * FROM " & session("DataAdmi_TablName")
if session("DataAdmi_DescFiel") <> "" then
Str = Str & " ORDER BY " & session("DataAdmi_DescFiel") & " DESC"
elseif session("DataAdmi_AsceFiel") <> "" then
Str = Str & " ORDER BY " & session("DataAdmi_AsceFiel") & " ASC"
end if
Set Rec = Server.CreateObject("ADODB.Recordset")
Rec.Open Str, Conn, 3
Rec.PageSize = NumbRecoPage
LastPage = Rec.PageCount
Rec.AbsolutePage = PageNumb
response.write "页数 = " & LastPage & "<br>"
Str = page_menu(PageNumb, LastPage)
response.write Str & "<br><br>"
Str = head_tabl(Rec)
response.write Str
Nn = 0
do while Nn <> Rec.PageSize AND not Rec.EOF
Str = data_tabl(Rec)
response.write Str
Rec.MoveNext
Nn = Nn + 1
loop
Rec.close
set Rec = nothing
Conn.close
set Conn = nothing
response.write "<br>"
Str = page_menu(PageNumb, LastPage)
response.write Str
%> </p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -