?? recordlist.asp
字號(hào):
<!-- #include file="connmdb.asp" -->
<%
dim tablename,no,count,page,total,flag
tablename = request("tablename")
rs.close
sql = "select * from ["&tablename&"]"
rs.CursorLocation = 2
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
rs.PageSize = 5
page = request("page")
page = clng(page)
total = rs.PageCount
if page < 1 then
page = 1
end if
if page > total then
page = total
end if
rs.AbsolutePage = page
flag = "ok"
end if
%>
<html>
<head>
<title>SmartCity 遠(yuǎn)程數(shù)據(jù)庫管理系統(tǒng)</title>
<link rel="stylesheet" type="text/css" href="data/css.css">
</head>
<body background="data/background.gif" bgproperties=fixed>
<table width="100%" align="center">
<tr>
<td align="center">
<b><font size="5">SmartCity 遠(yuǎn)程數(shù)據(jù)庫管理系統(tǒng)</font><br><font size="4">Version 1.0 beta</font><br><br></b>
</td>
</tr>
<tr>
<td align="center">
<div style="width: 740;">
<table width="100%">
<tr>
<td align="center" width="80"><a href="index.asp">重選數(shù)據(jù)庫</a></td>
<td align="center" width="70"><a href="tablelist.asp">數(shù)據(jù)庫列表</a></td>
<td align="center" width="70"><a href="createnewtable.asp">新建表格</a></td>
<td align="center" width="70"><a href="recordlist.asp?tablename=<%=tablename%>"><%=tablename%>列表</a></td>
<td align="center" width="70"><a href="addrecord.asp?tablename=<%=tablename%>">添加記錄</a></td>
<td></td>
<td align="center" width="50"><a href="changepsw.asp">修改密碼</a></td>
<td align="center" width="45"><a href="tablelist.asp?tablename=<%=tablename%>">返回</a></td>
</tr>
</table>
</div>
<br>
<%
if flag = "ok" then
%>
<table width="100%">
<tr>
<td>
<%=tablename%> <%=rs.RecordCount%>條記錄
第 <%=page%>/<%=total%> 頁
<%
if page <= 1 then
%>
第一頁 | 上一頁 |
<%
else
%>
<a href="recordlist.asp?tablename=<%=tablename%>&page=1">第一頁</a> |
<a href="recordlist.asp?tablename=<%=tablename%>&page=<%=page-1%>">上一頁</a> |
<%
end if
%>
<%
if page >= total then
%>
下一頁 | 最后一頁
<%
else
%>
<a href="recordlist.asp?tablename=<%=tablename%>&page=<%=page+1%>">下一頁</a> |
<a href="recordlist.asp?tablename=<%=tablename%>&page=<%=total%>">最后一頁</a>
<%
end if
%>
跳至 第<input type="text" size="1" name="page" class="newtxt" onmouseover="this.style.color='FF9966'" onmouseout="this.style.color='#4B69D8'">頁 
<input type="button" class="btn" onmouseover="this.style.color='FF9966'" onmouseout="this.style.color='#4B69D8'" onclick="javascript:location.href='recordlist.asp?tablename=<%=tablename%>&page='+page.value" value="Go">
</td>
</tr>
</table>
<%
end if
%>
</td>
</tr>
<tr>
<td align="center">
<table class="line" width="740">
<tr>
<td align="center" width="70" bgcolor="#CCCFFF">操作</td>
<%
for each field in rs.fields
%>
<td align="center" bgcolor="#CCCFFF"><%=field.name%></td>
<%
next
%>
</tr>
<%
count = 0
do while not rs.eof and count < rs.PageSize
count = count+1
%>
<tr>
<td class="line" align="center">
<%
no = 0
for each field in rs.fields
no = no+1
if no = 1 then
%>
<a href="editrecord.asp?tablename=<%=tablename%>&fieldname=<%=field.name%>&val=<%=rs(field.name)%>&fieldtype=<%=field.type%>">編輯</a>
<a href="deleterecord.asp?tablename=<%=tablename%>&fieldname=<%=field.name%>&val=<%=rs(field.name)%>&fieldtype=<%=field.type%>">刪除</a>
<%
end if
next
%>
</td>
<%
for each field in rs.fields
%>
<td class="line" align="center"><%=rs(field.name)%></td>
<%
next
rs.movenext
%>
</tr>
<%
loop
%>
</table>
<br><br><br>
</td>
</tr>
<tr>
<td align="center">
小城工作室作品 2003.9<br>
歡迎訪問<a href="http://218.4.50.118/smartcity">『SmartCity 小城在線』</a>
</td>
</tr>
</talbe>
<%
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
</body>
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -