📄 page.asp
字号:
<!--#include file="function.asp" -->
<SCRIPT language=JavaScript type=text/javascript>
var Startime,Endtime;
var now =new Date()
Startime=now.getTime();
</SCRIPT>
<%
startime=timer()
set conn=server.createobject("ADODB.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("Page.mdb")
Dim Atcion
Action=SafeRequest("Action",0)
If Action="add" then
If Not ChkPost Then
ErrMsg="对不起，请不要从外部提交数据！"
Response.write ErrMsg
Response.End()
End If
for i=1 to 25
Sql="Insert Into page([UserName],[PassWord],[Message]) Values('UserName"& i &"','PassWord','Message')"
Conn.Execute(Sql)
next
ElseIf action="AddOne" then
Sql="Insert Into page([UserName],[PassWord],[Message]) Values('"& SafeRequest("UserName",0) &"','"& SafeRequest("PassWord",0) &"','"& SafeRequest("Message",0) &"')"
Conn.Execute(Sql)
ElseIf action="del" then
conn.execute("delete from page where [UserName]")
end if
Dim Count,Page,OutStr,i
Dim FieldName(1),FieldValue(1)
Dim WStr,TopicList,PageSize
PageSize=15
Page=Request.QueryString ("page")
If Not IsNumeric(Page) Or Page="" Or Page="0" Then
Page=1
End If
'Url参数
WStr=SafeRequest("Flag",0) '得到SQL标志的值
KeyWord=SafeRequest("KeyWord",0) '得到搜索关键字的值
FieldName(0)="Flag"
FieldValue(0)=WStr
FieldName(1)="KeyWord"
FieldValue(1)=KeyWord
Select Case WStr
'Case "1d"
'WStr=" where datediff("&Diff(1)&",adddate,"&NowString&")=0 and "
Case "search"
WStr=" where [UserName] like '%"& SafeRequest("KeyWord",0) &"%' "
'Case Else
'WStr=" where "
End Select
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分页程序</title>
<link href="admin.css" rel="stylesheet" type="text/css">
<script src="function.js" language="JavaScript"></script>
<style type="text/css">
<!--
.style1 {
font-size: 14px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="778" border="1" align="center" class="tablefoot">
<form action="" name="addform" id="addform">
<tr>
<td height="30" colspan="2"><div align="center">用户名:<input name="UserName" type="text" class="TextInput" id="UserName" validator="用户名#DF_NOTNULL">
密 码:
<input name="PassWord" type="text" class="TextInput" id="PassWord2" validator="密码#DF_NOTNULL">
详 细:
<input name="Message" type="text" class="TextInput" id="Message" validator="详细资料#DF_NOTNULL">
<a href="#"><img src="submit.gif" alt="添加信息" width="107" height="21" border="0" onClick="javascript:ExecuteAction('Save',addform,'?Action=AddOne')"></a></div></td>
</tr>
</form>
</table>
<%
'统计条数
SQL="select count(id) from page "&WStr&" "
Set rs=conn.execute(sql)
Count=rs(0)
If Count=<0 Then
OutStr="<tr height='22' bgcolor='ffffff' width='98%'>"
OutStr=OutStr&"<td colspan='5'> <font color='red'>暂无内容</font></td>"
OutStr=OutStr&"</tr></table>"
response.write OutStr
Else
SQL="select top "& Page*PageSize &" * from page "&WStr&" "
Set Rs=Conn.execute(SQL)
If Cint(Page) <>1 Then rs.move Cint(PageSize)*(page-1)
'将所有字段的值存入TopicList数值
TopicList=rs.getrows(PageSize)
rs.close:Set rs=Nothing
%>
<table width="778" border="1" align="center" class="tablefoot">
<tr>
<td width="7%">ID</td>
<td width="32%">用户名</td>
<td width="36%">密码</td>
<td width="25%">详细</td>
</tr>
<%For i=0 To Ubound(TopicList,2)%>
<tr>
<td><%=TopicList(0,i)%></td>
<td><%=TopicList(1,i)%></td>
<td><%=TopicList(2,i)%></td>
<td><%=TopicList(3,i)%></td>
</tr>
<%Next%>
<tr>
<td colspan="4">
<div align="center"><%Response.Write PageList(PageSize,Count,Page,FieldName,FieldValue)%></div>
</td>
</tr>
</table>
<%End If%>
<table width="778" border="0" cellpadding="0" cellspacing="0" align="center" style="border: 1 solid #6bba21">
<form name=Searchform action="">
<tr valign="middle" align="center" height="28" bgcolor="f7fbff">
<td width="423">
<div align="right">快速搜索：
<input name="KeyWord" type="text" class="TextInput" size="30" validator="关键字#DF_NOTNULL">
</div></td>
<td width="353"><div align="left"> <a href="#"><img src="search.gif" alt="查找" width="107" height="20" border="0" onClick="javascript:ExecuteAction('Search',Searchform,'?Flag=search')"></a></div></td>
</tr>
</form>
</table>
<div align="center">
<%EndTime = Timer()%>
Process Time:<%=formatNumber((EndTime - StarTime)*1000,0,-1,-1)%>ms
<script language="JavaScript" type="text/javascript">
var now1 =new Date()
Endtime=now1.getTime()
document.write ('LoadTime: ');
document.write ((Endtime-Startime)+' ms.');
</script>
</div>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -