📄 index.asp
字号:
</table>
<br>
<% End Sub %>
<% Sub Main_Menu() %>
<table width="700" border="0" align="center" class="unnamed1">
<tr>
<td width="287"> <a href="../guestbook/index.asp"><img src="<%=imdeximg%>back.gif" width="99" height="25" border="0"></a><a href="<%=indexfilename%>?action=Add_New"><img src="<%=imdeximg%>post.gif" width="99" height="25" border="0"></a></td>
<td width="353"> <div align="right">
<% If Session("Admin")="Login" Then %>
<a href="<%=indexfilename%>?action=Exit">退出管理</a>
<% Else %>
<a href="<%=indexfilename%>?action=Admin_Login">管理留言</a>
<% End If %>
<% If Session("Admin")="Login" Then %>
<a href="<%=indexfilename%>?action=Edit_web">基本设置</a>
<a href="<%=indexfilename%>?action=EditPWD">修改密码</a>
<% End If %>
</div></td>
</tr>
</table>
<% End Sub
'''''''''''''''''''''''
'查看留言
Sub View_Words()
dim gbcount,y,j,k
set rs = conn.execute("select COUNT(*) as gbcount From words")
gbcount=rs("gbcount")
rs.close
if gbcount/n = int(gbcount/n) then '计算出分页数
y=int(gbcount/n)
else
y=int(gbcount/n)+1
end if
page2= int(page/x)
if page/x>page2 then page2=page2+1
k=page2*x
if k>y then k=y
'打开留言字段'
if page=1 then
sql="select top "&n&" id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
else
sql="select id,name,sex,head,web,email,title,words,date,reply,ip,come,view,qq From words Order By id Desc"
end if
if Page >100 then
rs.Open sql,Conn,1
else
Set Rs=Conn.Execute(sql)
end if
if Page>1 then RS.Move n*page-n
%>
<table width="700" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td width="667" height="20" align="right" class="unnamed1">有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页
<a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
<% if len(webtitle)>2 then %>
<tr>
<td height="20" align="right" class="unnamed1">
<marquee onMouseOut=start(); onMouseOver=stop(); scrollamount=3>
</marquee></td>
</tr>
<% end if %>
</table>
<% if rs.bof and rs.eof then Response.Write "当前没有留言记录" %>
<%
dim lou,words,reply,email,qq,web,come
if Request.QueryString("page")<2 then
lou=gbcount
else
lou=gbcount-((Request.QueryString("page")-1)*n)
end if
i=0
do while not rs.eof and i<n
i=i+1
reply=""
words=""
words=rs("words")
reply=rs("reply")
%>
<TABLE width=700 border=0 align="center"
cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
<TBODY>
<TR>
<TD width="2%"><IMG src="<%=imdeximg%>T_left.gif" border=0></TD>
<TD width="96%" background=<%=imdeximg%>Tt_bg.gif></TD>
<TD width="2%"><IMG src="<%=imdeximg%>T_right.gif"
border=0></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=700 height=51 border=1 align=center cellPadding=3 cellSpacing=0 bordercolor="#85ACE0" style="border-collapse:collapse" >
<TBODY>
<TR >
<TD colSpan=2 height=25><table width="686" border="0" class="unnamed1">
<tr>
<td width="28%" height="21">留言者:<b><%=rs("name")%></b></td>
<td width="60%"> <div align="right">发表于:<%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日
<% if len(trim(rs("web")))>8 then %>
<a href="<%=rs("web")%>" target="_blank"><img src="<%=imdeximg%>homepage.gif" alt="我的主页是:<%=rs("web")%>" width=16 height=16 border="0"></a>
<% end if %>
<% if len(trim(rs("email")))>6 then %>
<a href="mailto:<%=rs("email")%>"><img src="<%=imdeximg%>email.gif" alt="我的EMAIL是:<%=rs("email")%>" width="16" height="16" border="0"></a>
<% end if %>
<% if len(trim(rs("qq")))>3 then %>
<img src="<%=imdeximg%>oicq.gif" alt="我的QQ号:<%=Rs("qq")%>" width="16" height="16" border="0">
<% end if %>
<% if len(trim(Rs("come")))>1 then %>
<img src="<%=imdeximg%>come.gif" alt="我来自:<%=Rs("come")%>" width="16" height="16">
<% end if %>
<% If Session("Admin") = "Login" Then %>
<img src="<%=imdeximg%>ip.gif" align=absMiddle> <%=Rs("ip")%>
<font color="#666666"><a href="<%=indexfilename%>?action=Edit&id=<%=Rs("id")%>">
<img src="<%=imdeximg%>reply.gif" alt="编辑回复" width="16" height="16" border="0"></a>
<a href="<%=indexfilename%>?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')">
<img src="<%=imdeximg%>del.gif" alt="删除留言" width="15" height="15" border="0"></a></font>
<% end if %>
</div></td>
<td width="12%"><div align="right">第 <font color="#ff0000"><%=lou %></font> 条留言</div></td>
</tr>
</table> </TD>
</TR>
<TR>
<TD width="100" height="21" align=middle valign="top"><table width="100" border="0" align="center" >
<tr>
<td width="94">
<%if rs("head")="" then %>
<%if rs("sex")=1 then %>
<img src="<%=imdeximg%>101.gif">
<% else %>
<img src="<%=imdeximg%>001.gif">
<% end if %>
<% else %>
<img src="<%=imdeximg & rs("sex") & rs("head") %>.gif">
<% end if %></td>
</tr>
</table></TD>
<TD width="582" height="21" valign="top" class=unnamed2 style="word-break:break-all">
<table width="582" border="0" style="TABLE-LAYOUT: fixed" class=unnamed2>
<tr>
<td width="576" style="word-break:break-all">
<% if webyn=1 and rs("view")=1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1"> <span class="style1">斑竹回复:</span><br><font color="#990000"> <%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn<>1 then %>
<%=Ubb(unHtml(words))%>
<% if len(trim(reply))>1 then%>
<hr size="1"> <span class="style1">斑竹回复:</span><br> <font color="#990000"><%=Ubb(unHtml(reply))%> </font>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then%>
留言需要经过审批才能查看
<%end if %>
</td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=700 border=0 align="center"
cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE:collapse">
<TBODY>
<TR>
<TD width="1%"><IMG src="<%=imdeximg%>T_bottomleft.gif" border=0></TD>
<TD width="97%" background=<%=imdeximg%>T_bottombg.gif></TD>
<TD width="2%"><IMG src="<%=imdeximg%>T_bottomright.gif"
border=0></TD>
</TR>
</TBODY>
</TABLE>
<br>
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
<table width="700" border="0" cellspacing="1" cellpadding="4" align="center">
<tr>
<td height="20" align="right" class="unnamed1">
有<%=gbcount %>条留言 <%=page %>/<%=y %>页 分页
<a href="?page=1"><<</a>
<% if page2>1 then %>
<a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
<a href="?page=<%=y %>">>></a>
</td>
</tr>
</table>
<% End Sub %>
<%
'''''''''管理员登陆接口
%>
<% Sub Admin_Login()
dim num1
dim rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("jd100_rn")=rndnum
%>
<br>
<table width="499" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> 管理登陆 </td>
</tr>
<tr>
<td width="122"> <div align="right">用户名： </div></td>
<td width="358"> <input name="username" type="text" class="input1" maxlength="25"> </td>
</tr>
<tr>
<td width="122"> <div align="right">密 码： </div></td>
<td width="358"> <input name="password" type="password" class="input1" maxlength="25">
<input type="hidden" name="action_e" value="admin"> </td>
</tr>
<tr>
<td><div align="right">输入验证码：</div></td>
<td>
<table width="258" border="0">
<tr>
<td width="175"><input name="jd100rz" type="text" class="input1" maxlength="4"></td>
<td width="60" bgcolor="#cccccc"><div align="center"><%=session("jd100_rn")%></div></td>
</tr>
</table> </td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" name="Submit32" value="登陆" class="input1">
</td>
</tr>
<tr>
<td height="49" colspan="2" align="center"> </td>
</tr>
</form>
</table>
<br>
<% End Sub%>
<%
'''''''''''
%>
<%Sub UbbHelp()%>
<div align="left">
<%End Sub%>
</div>
<%Sub EditPWD()%>
<table width="499" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="editpwd" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> <b>修改密码</b></td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">旧用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="oldusername" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">新用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">确认新用户名：</td>
<td width="226" height="38" align="left">
<input type="text" name="username_c" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38"> 旧 密 码： </td>
<td width="226" height="38" align="left">
<input type="password" name="oldpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105">新 密 码： </td>
<td width="226" align="left">
<input type="password" name="newpwd" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="38">确认新密码：</td>
<td width="226" align="left" height="38">
<input type="password" name="newpwd_c" class="input1">
<input type="hidden" name="action_e" value="EditPWD">
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" name="EditPWD" value="修改密码" class="input1">
</td>
</tr>
</form>
</table>
<%End Sub%>
<% Sub Edit() %>
<%
Sql="Select * From words Where id="&Request.QueryString("id")
set rs=conn.execute(sql)
view2=""
if rs("view")=1 then
view2="checked"
end if
%>
<table width="690" border="0" align="center" cellpadding="4" cellspacing="1" class="unnamed1">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> 编辑留言内容及回复</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -