📄 recordlist.asp
字号:
<!-- #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 远程数据库管理系统</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 远程数据库管理系统</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">重选数据库</a></td>
<td align="center" width="70"><a href="tablelist.asp">数据库列表</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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -