📄 setpagesize.asp
字号:
<!-- #include file="conn.asp" -->
<%
if session("loginok")="yes" then
set rs=Server.CreateObject("Adodb.recordset")
sql="select * from admin"
rs.open sql,conn,3,2
%>
<head>
<title>设定每页显示记录数</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body background="images/bj.gif">
<center>
<p><a href="modpassword.asp">更改管理密码</a> | <a href="admin.asp">管理稿件</a> | 设定每页显示记录数 | <a href="logout.asp">退出管理</a>
</p> <%
if request("post")="ok" then
if isNumeric(request("pagesize")) then
rs("pagesize")=request("pagesize")
rs.update
response.write "<BR><BR><FONT COLOR=red>更改成功！</FONT>"
else
response.write "<BR><BR><FONT COLOR=red>输入数据不合规范！</FONT>"
end if
end if
%><BR><BR>
<form action="">
<TABLE>
<TR>
<TD>原来设定：</TD>
<TD><INPUT TYPE="text" size=4 NAME="oldpagesize" value="<% =rs("pagesize")%>" readonly>
</TD>
</TR>
<TR>
<TD>更改为：</TD>
<TD><INPUT TYPE="text" size=4 NAME="pagesize" ></TD>
</TR>
<TR>
<TD>
<INPUT TYPE="submit" value="确定更改">
</TD>
<TD><INPUT TYPE="hidden" name="post" value="ok"></TD>
</TR>
</TABLE>
<form>
<% else
response.write "<br><BR>你没有这个权限!"
end if%>
<BR></center>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -