📄 index.asp
字号:
<tr>
<td align="center">旧密码：</td>
<td><input name="Admin_Gps" type="password" maxlength="16" class="input"></td>
</tr>
<tr>
<td align="center">新密码：</td>
<td><input name="Admin_Nps" type="password" maxlength="16" class="input"></td>
</tr>
<tr>
<td align="center">确 认：</td>
<td><input name="Admin_Pass" type="password" maxlength="16" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input type="submit" value=" 修改 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'新增管理员页面
Case "Admin_Add"
checkadmin
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="778" align="center">
<tr>
<td bgcolor="#FFFFFF" height="300">
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="260" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" style="padding-left:10px;">· 新增管理员 ·</td>
<td align="right" style="padding-right:13px;"><a href="<% =Url %>"><font color="#FF0000">返回</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form name="form2" method="post" Action="?Action=Addadmin" onsubmit="return Addadmin(this);">
<tr>
<td width="30%">管理员名称：</td>
<td><input name="Admin_User" type="text" class="input"></td>
</tr>
<tr>
<td>管理员密码：</td>
<td><input name="Admin_Pass" type="Password" class="input"></td>
</tr>
<tr>
<td>确认密码：</td>
<td><input name="Password" type="Password" class="input"></td>
</tr>
<tr>
<td></td>
<td><input name="Submit3" type="submit" value=" 添 加 " class="button"> <input name="Submit22" type="reSet" value=" 重 置 " class="button"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'管理员列表页面
Case "List"
checkadmin
Set mRs=Server.CreateObject("adodb.recordSet")
Sql="Select * from Admin"
mRs.open Sql,conn,1,1
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="778" align="center">
<tr>
<td bgcolor="#FFFFFF" height="300">
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="700" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" style="padding-left:10px;">· 管理员列表 ·</td>
<td align="right" style="padding-right:13px;"><a href="<% =Url %>"><font color="#FF0000">返回</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr align="center">
<td width="7%" height="25">ID</td>
<td width="25%">管理员名称</td>
<td width="30%">管理员密码</td>
<td colspan="2">操作</td>
</tr>
<% do while not mRs.eof %>
<tr align="center" onmouseover="javascript:this.bgColor='#E7EFF8';" onmouseout="javascript:this.bgColor='#FFFFFF';">
<td height="25"><% =mRs("Admin_Id") %></td>
<td><% =mRs("Admin_User") %></td>
<td><% =mRs("Admin_Pass") %></td>
<td width="10%"><a href="?Action=Admin_Modpass&Id=<% =mRs("Admin_Id") %>&Admin=<% =mRs("Admin_User") %>">修改</a></td>
<td width="10%"><%if "'"& mRs("Admin_User") &"'"<>"'"& Session("Admin") &"'" Then Response.Write"<a href=""?Action=Deladmin&Id="& mRs("Admin_Id") &""" onclick=""return Del(this);"">删除</a>" %></td>
</tr>
<%
mRs.movenext
loop
mRs.close
Set mRs=nothing
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'登陆页面
Case "login"
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="778" align="center">
<tr>
<td bgcolor="#FFFFFF" height="300">
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="260" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" style="padding-left:10px;">· 管理登陆 ·</td>
<td align="right" style="padding-right:13px;"><a href="<% =Url %>"><font color="#FF0000">返回</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" Action="?Action=logincheck" onsubmit="return Login(this);">
<tr>
<td width="80" height="30" align="center">管理员：</td>
<td><input type="text" name="Admin_User" class="input"></td>
</tr>
<tr>
<td height="30" align="center">密 码：</td>
<td><input type="password" name="Admin_Pass" class="input"></td>
</tr>
<tr>
<td height="40" colspan="2" align="center"><input type="submit" value=" 登录 " class="bmit"> <input type="reset" value=" 重置 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'回复页面调用
Case "reply"
checkadmin
Set mRs=conn.execute("select * from [Books] where Books_Id="&Id)
If mRs.eof then
Response.Write "<script>alert('非法操作：留言不存在！');this.location.href='"& Url& "';</SCRIPT>"
Response.End
End If
%>
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="778" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" style="padding-left:10px;">· 回复留言 ·</td>
<td align="right" style="padding-right:13px;"><a href="<% =Url %>"><font color="#FF0000">返回</font></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" Action="?Action=Reply&Id=<% =Id %>">
<tr>
<td width="80" height="25" align="center">昵称：</td>
<td><input name="Books_Name" type="text" value="<% =mRs("Books_Name") %>" class="input"></td>
</tr>
<tr>
<td height="25" align="center">Q Q：</td>
<td><input name="Books_Qq" type="text" value="<% =mRs("Books_Qq") %>" class="input"></td>
</tr>
<tr>
<td height="25" align="center">邮箱：</td>
<td><input name="Books_Mail" type="text" value="<% =mRs("Books_Mail") %>" class="input"></td>
</tr>
<tr>
<td align="center">留言：</td>
<td><textarea name="Books_Info" rows="9" cols="57" class="text"><% =uhtmlencode(mRs("Books_Info") &"") %></textarea></td>
</tr>
<tr>
<td height="25" align="center">回复：</td>
<td height="100" rowspan="2"><textarea name="Books_Reply" rows="6" cols="97" class="text"><% =mRs("Books_Reply") %></textarea></td>
</tr>
<tr>
<td height="70"></td>
</tr>
<tr>
<td height="30" colspan="2" align="center"><input type="submit" value=" 回复留言 " class="bmit"> <input type="reset" value=" 重新输入 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%
mRs.close
Set mRs=nothing
'列表页面调用
Case Else
%>
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="778" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" style="padding-left:10px;">· 写留言 ·</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<form method="post" Action="?Action=add" onsubmit="return Add(this);">
<tr>
<td width="80" align="center">昵称：</td>
<td width="153"><input name="Books_Name" type="text" class="input"><font color="red"> *</font></td>
<td width="48" align="center">内容：</td>
<td rowspan="4"><textarea name="Books_Info" rows="9" cols="73" class="text"></textarea><font color="red"> *</font></td>
</tr>
<tr>
<td align="center">Q Q：</td>
<td><input name="Books_Qq" type="text" class="input"><font color="red"> *</font></td>
<td></td>
</tr>
<tr>
<td align="center">邮箱：</td>
<td><input name="Books_Mail" type="text" class="input"><font color="red"> *</font></td>
<td></td>
</tr>
<tr>
<td colspan="3" align="center"><input type="submit" value=" 添加留言 " class="bmit"> <input type="reset" value=" 重新输入 " class="bmit"></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="778" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td height="25" style="padding-left:10px;">· 留言列表 ·</td>
<td align="right" style="padding-right:13px;"><%
If Session("Admin")<>"" then
Response.Write "欢迎管理员『 <font color='red'>"&Session("Admin")&"</font> 』"
Response.Write " <a href='?Action=List' style='color:black'>管理员列表</a>"
Response.Write " <a href='?Action=Admin_Add' style='color:black'>新增管理员</a>"
Response.Write " <a href='?Action=logout' style='color:black'>退出管理</a>"
Else
Response.Write"<a href='?Action=login' style='color:black'>管理员登录</a>"
End If
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="778" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<%
Sql="select * from [Books] order by Books_Id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
If mRs.bof and mRs.eof then
Response.Write"<span>没有任何记录</span>"
Response.End
Else
mRs.PageSize =6'每页记录条数
iCount=mRs.RecordCount '记录总数
iPageSize=mRs.PageSize
maxpage=mRs.PageCount
page=request("page")
If Not IsNumeric(page) or page="" then
page=1
Else
page=cint(page)
End If
If page<1 then
page=1
ElseIf page>maxpage then
page=maxpage
End If
mRs.AbsolutePage=Page
If page=maxpage then
x=iCount-(maxpage-1)*iPageSize
Else
x=iPageSize
End If
End If
for i=1 to mRs.pagesize
%>
<tr>
<td>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="33" align="center"><font color="#006699" face="wingdings"><% Response.Write(""&CStr(i)&"") %></font></td>
<td>昵称为：<b><% =mRs("Books_Name") %></b>在<font color="#006699"><% =mRs("Books_Time") %></font>的留言：
<%
If Session("Admin")<>"" then
Response.Write " <a href='?Action=reply&Id="&mRs("Books_Id")&"' style='color:red'>回复</a>"
Response.Write " <a href='?Action=del&Id="&mRs("Books_Id")&"'onclick=""return Del(this);"" style='color:red'>删除</a>"
Response.Write " <font color='red'>IP为："&mRs("Books_Ip")&"</font>"
End If
%>
</td>
<td width="180">
<a href="#" title="<% =mRs("Books_Mail") %>"><font color="#006699" face="wingdings">+</font></a>
<a href="#" title="<% =mRs("Books_Qq") %>"><font color="#006699" face="wingdings">''</font></a>
</td>
</tr>
<tr onmouseover="javascript:this.bgColor='#EFEFEF';" onmouseout="javascript:this.bgColor='#FFFFFF';">
<td></td>
<td colspan="2" style="width:730; word-break:break-all; word-wrap:break-word;"><% =htmlInfo(mRs("Books_Info")) %>
<%
'显示回复
If mRs("Books_Reply")<>"" then
Response.Write"<span style='color:#006699'><br><b>回复：</b><br>"& mRs("Books_Reply") &"</span>"
End If
%></td>
</tr>
<tr>
<td colspan="3"><hr noshade size="1" color="#CCCCCC"></td>
</tr>
</table>
<%
mRs.movenext
If mRs.eof then exit for
next
mRs.close
Set mRs=nothing
%></td>
</tr>
</table>
</td>
</tr>
</table>
<%
call PageControl(iCount,maxpage,page)
Sub PageControl(iCount,pagecount,page)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table border='0' cellpadding='3' style='border-collapse: collapse' width='776' align='center'>")
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>")
Response.Write("<td align='center' bgcolor='#FFFFFF'>")
If page<=1 then
Response.Write ("首页 " )
Response.Write ("上一页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> ")
End If
If page>=pagecount then
Response.Write ("下一页 ")
Response.Write ("尾页 ")
Else
Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> ")
Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> ")
End If
Response.Write(" 页次：" & page & "/" & pageCount & " 页")
Response.Write(" 共有 " & iCount & " 条留言")
Response.Write(" 转到 " & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & " 页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>")
Response.Write("</td></tr></form>")
Response.Write("</table>")
End Sub
End Select
conn.close
Set conn=nothing
%>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="778" align="center">
<tr>
<td bgcolor="#FF6600" height="5"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center">页面执行时间：<% =FormatNumber((timer()-startime)*1000,3) %>毫秒
<br>Copyright © 2008 <a href="http://www.ztren.com"><% =Title %></a> All Rights Reserved<br></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -