📄 index.asp
字号:
<tr>
<td width="450" height="59" colspan="2" valign="top" bordercolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="unnamed1">
<tr bgcolor="#D5F4D2">
<td width="39%" bgcolor="#FFFFFF"> <font color="#666666">【<%=lou %>楼】姓名</font><b>:<%=rs("name")%>
</b> </td>
<td width="61%" bgcolor="#FFFFFF"> <div align="right"> <span class="texthei">时间:</span> <%=year(Rs("date"))%>年<%=month(Rs("date"))%>月<%=day(Rs("date"))%>日
<% If Session("Admin") = "Login" Then %>
<%=Rs("ip")%> <font color="#666666"><a href="index.asp?action=Edit&id=<%=Rs("id")%>"><img src="reply.gif" alt="编辑回复" width="16" height="16" border="0"></a>
<a href="index.asp?action=Delete&id=<%=Rs("id")%>" onClick="return confirm('确定要删除吗？\n\n该操作不可恢复！')"><img src="del.gif" alt="删除留言" width="15" height="15" border="0"></a></font>
<% end if %>
</div></td>
</tr>
<tr>
<td colspan="2" class="unnamed1"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed1">
<tr>
<td width="15%" valign="top">
<%if rs("head")="" then %>
<% else %>
<% end if %>
</td>
<td width="85%" style="word-break:break-all">
<% if webyn=1 and rs("view")=1 then '##########################################%>
<%=Ubb(unHtml(words))%>
<% if reply<>"" then%>
<hr size="1"> <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26" bgcolor="#F0F0F0" class="texthei"> 回复:</td>
</tr>
</table>
<%=Ubb(unHtml(reply))%>
<%end if %>
<%end if %>
<% if webyn<>1 then '##################################################%>
<%=Ubb(unHtml(words))%>
<% if reply<>"" then%>
<hr size="1"> <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26" bgcolor="#F0F0F0" class="texthei">回复:</td>
</tr>
</table>
<%=Ubb(unHtml(reply))%>
<%end if %>
<%end if %>
<% if webyn=1 and rs("view")=0 then '#########################################%>
<span class="texthei"><strong>您好，留言成功，请等待我们的答复。</strong></span>
<%end if %>
</td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
<br>
<%
lou=lou-1
rs.movenext
loop
Rs.Close
Set Rs = Nothing
%>
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20" align="right" class="texthei"> <div align="right">有<%=gbcount %>条留言 共<%=y %>页 分页
<% if page2>1 then %>
<a href="index.asp?page=<%=((page2-1)*x)-(x-1) %>&k=<%=page2-1%>">前<%=x%>页</a>
<% end if %>
<% For m =((page2)*x)-(x-1) To k %>
[<a href="index.asp?page=<%=m%>&k=<%=page2%>"><%=m%></a>]
<%
Next
%>
<% if page2*x < y then %>
<a href="index.asp?page=<%=((page2+1)*x)-(x-1)%>&k=<%=page2+1%>">后<%=x%>页</a>
<% end if %>
<% If Session("Admin")="Login" Then %>
<a href="index.asp?action=Exit">退出管理</a>
<% Else %>
<a href="index.asp?action=Admin_Login">管理留言</a>
<% End If %>
<% If Session("Admin")="Login" Then %>
<a href="index.asp?action=Edit_web">基本设置</a> <a href="index.asp?action=EditPWD">修改密码</a>
<% End If %>
</div></td>
</tr>
</table>
<span class="texthei">
<% End Sub %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'管理员登陆接口
%>
<% Sub Admin_Login() %>
</span><br>
<table width="450" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center" class="topic"> 管理登陆 </td>
</tr>
<tr class="texthei">
<td width="105" align="right" valign="top"> 用户名： </td>
<td width="226"> <input type="text" name="username" class="input1"> </td>
</tr>
<tr class="texthei">
<td width="105" align="right" valign="top"> 密 码： </td>
<td width="226"> <input type="password" name="password" class="input1">
<input type="hidden" name="action_e" value="admin"> </td>
</tr>
<tr align="center" class="texthei">
<td height="29" colspan="2"> <input type="submit" name="Submit32" value="登陆" class="input1">
</td>
</tr>
</form>
</table>
<br>
<% End Sub%>
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%Sub UbbHelp()%>
<div align="left">
<%End Sub%>
</div>
<%Sub EditPWD()%>
<table width="450" border="0" align="center" cellpadding="4" cellspacing="1" class="texthei">
<form name="editpwd" method="post" action="index.asp">
<tr>
<td colspan="2" align="center"> <b>修改密码</b></td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="24">旧用户名：</td>
<td width="226" height="24" align="left">
<input type="text" name="oldusername" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="24">新用户名：</td>
<td width="226" height="24" align="left">
<input type="text" name="username" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="24">确认新用户名：</td>
<td width="226" height="24" align="left">
<input type="text" name="username_c" class="input1">
</td>
</tr>
<tr>
<td align="right" valign="middle" width="105" height="24"> 旧 密 码： </td>
<td width="226" height="24" 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="27">确认新密码：</td>
<td width="226" align="left" height="27">
<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() %>
<%
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.QueryString("id")
Rs.Open Sql,Conn,1,1
view2=""
if rs("view")=1 then
view2="checked"
end if
%>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" class="texthei">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center" class="topic"><br> 编辑留言内容及回复<br><br>
<span class="texthei">留言者资料</span>
<%
If Rs("sex")=1 Then
Response.Write "<img src='Male.gif' alt='你点到帅哥了' width='16' height='16'>"
Else
Response.Write "<img src='FeMale.gif' alt='你点到美女了' width='16' height='16'> "
End If
%>
<img src="oicq.gif" alt="<%=Rs("qq")%>" width="19" height="16" border="0">
<a href="mailto:<%=Rs("email")%>"><img src="icon_email.gif" alt="<%=Rs("email")%>" width="17" height="16" border="0"></a>
<a href="<%=Rs("web")%>" target="_blank"><img src="homepage.gif" alt="<%=Rs("web")%>" width="16" height="16" border="0"></a>
<img src="come.gif" alt="<%=Rs("name")%>来自:<%=Rs("come")%>" width="16" height="16">
</td>
</tr>
<tr>
<td width="113" align="right" valign="top"> 留言内容： </td>
<td width="450"> <textarea name="words" cols="40" rows="6" class="input1"><%=Rs("words")%></textarea>
</td>
</tr>
<tr align="center">
<td align="right">回复：</td>
<td align="left"> <textarea name="reply" cols="40" rows="6" class="input1"><%=Rs("reply")%></textarea>
<br> <input name="view" type="checkbox" id="view" value="1" <%=view2%>>
通过审批</td>
</tr>
<tr align="center">
<td colspan="2"> <input type="hidden" name="action_e" value="Edit"> <input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
<input type="submit" name="Submit" value="修改留言" id="Submit" class="input1">
<a href="index.asp?action=View_Words">返回</a></td>
</tr>
</form>
</table>
<% End Sub %>
<br>
<% Sub Edit_web() %>
<%
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
if Request.Form("submit")="修改" then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
rs("title")=Request.Form("webtitle")
rs("gl")=Request.Form("webggg")
rs("gbyn")=cint(Request.Form("webyn"))
rs("webname")=Request.Form("webname")
rs.update
'if rs("title")<>"" then webtitle=rs("title")
'if rs("webname")<>"" then webname=rs("webname")
'if rs("gbyn")<>"" then webyn=rs("gbyn")
'if rs("words")<>"" then webgg=rs("words")
rs.close
set rs=nothing
response.redirect"index.asp?action=Edit_web"
response.end
end if
webyn2=""
if webyn=1 then
webyn2="checked"
end if
%>
<table width="450" border="0" align="center" cellpadding="0" cellspacing="0" class="texthei">
<form name="reply" method="post" action="index.asp">
<tr>
<td colspan="2" align="center" class="topic"> 编辑留言板属性</td>
</tr>
<tr>
<td width="202" align="right" valign="top"> 留言板名称</td>
<td width="379"><input name="webname" type="text" id="webname" value="<%=webname%>" size="50" maxLength=25>
</td>
</tr>
<tr align="center">
<td align="right">公告内容：</td>
<td align="left"><input name="webtitle" type="text" id="webtitle" value="<%=webtitle%>" size="50" maxLength=25></td>
</tr>
<tr align="center">
<td align="right" valign="top">词语过滤：</td>
<td align="left"><input name="webggg" type="text" id="webggg" value="<%=webgl%>" size="50" maxLength=300>
<br>
<span class="unnamed1">用"|"分隔过滤的词,例：一标|互动</span> </td>
</tr>
<tr align="center">
<td align="right">经过审批才显示留言：</td>
<td align="left"><input name="webyn" type="checkbox" id="webyn" value="1" <%=webyn2%>>
是</td>
</tr>
<tr align="center">
<td colspan="2"> <input type="hidden" name="action_e" value="Edit_web">
<input type="submit" name="Submit" value="修改" id="Submit" class="input1">
<a href="index.asp?action=View_Words">返回</a></td>
</tr>
</form>
</table>
<% End Sub %>
</body>
</html>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
If Request.Form("name")="" Then
Response.Write "姓名不能为空"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New"">返回</a>"
Response.End
End If
If Len(Request.Form("name"))>20 Then
Response.Write "姓名不能太长"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New"">返回</a>"
Response.End
End If
If Request.Form("email")<>"" Then
If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then
Response.Write "电子信箱格式填写不正确"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New"">返回</a>"
Response.End
End If
End If
If Request.Form("words")="" Then
Response.Write "留言不能为空"
Response.Write "<br>"
Response.Write "<a href=""index.asp?action=Add_New"">返回</a>"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
Rs.Open Sql,Conn,2,3
Rs.AddNew
Rs("name")=Server.HTMLEncode(Request.Form("name"))
Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
Rs("head")=Server.HTMLEncode(Request.Form("head"))
Rs("web")=Server.HTMLEncode(Request.Form("web"))
Rs("email")=Server.HTMLEncode(Request.Form("email"))
Rs("words")=Server.HTMLEncode(Request.Form("words"))
Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
Rs("head")=Server.HTMLEncode(Request.Form("Image"))
Rs("date")=Now()
Rs("ip")=request.servervariables("remote_addr")
Rs("come")=Server.HTMLEncode(Request.Form("come"))
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆
Sub Admin_Login_Execute()
username = Server.HTMLEncode(Request.Form("username"))
password = Server.HTMLEncode(Request.Form("password"))
If username = "" OR password = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -