⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_post.asp

📁 9seek 留言本源代码5.0版
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file=const.asp -->
<%
if not theUser.master then
	connclose()
	response.redirect ("index.asp")
end if

dim xxid, exec, rs
xxid=encodestr(request("id"))

if xxid="" then
	connclose()
	session("errmsg")="非法操作!!!"
	response.redirect "admin_error.asp"
end if

exec="select * from ly where id=" + CStr(xxid) + " " 
Set RS = Server.CreateObject("ADODB.RecordSet")                        
rs.Open exec, Conn, 1, 1
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>

<body>
<!--#include file="head.asp"-->
<br>
<script>                  
function check()
{          
	if (document.form1.act.value=="")                 
	{
		alert("你想干什么?你到是说呀!");               
		document.form1.act.focus();
		return false;
	}
	return true;
}
</script>
      
<table border="0" width="400" cellspacing="0" cellpadding="10" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" class="table004">
 <tr> 
  <td class="table001" align="center"> 
   <table border="0" width="100%" cellspacing="0" cellpadding="0">
	<tr> 
	 <td width="100%"> 
	  <form method="POST" action="admin_post_do.asp" name="form1">
	   <table border="0" width="100%" cellspacing="0" cellpadding="3" >
		<tr> 
		 <td width="100%" align="center" colspan="3"><b><font color="#FF0000"> 
		  — — 留 言 管 理 — —</font></b></td>
		</tr>
		<tr> 
		 <td width="20%" align="center">文章标题:</td>
		 <td width="51%"><%=rs("title")%></td>
		 <td width="35%">作者:<%=rs("name")%></td>
		</tr>
		<tr> 
		 <td width="20%" align="center">斑竹动作:</td>
		 <td width="80%" colspan="2"> 
		  <select size="1" name="act" class="input1" >
		   <option value="" selected>— —选择动作— —</option>
		   <option value="del">删除留言</option>
		   <option value="best"> 
		   <%if rs("jh")=1 then response.write "取消精华" else response.write "推荐精华" end if %>
		   </option>
		  <% if rs("rt")=0 then %>
			<option value="top"> 
			<%if rs("istop")=1 then response.write "取消固顶" else response.write "固顶留言" end if %>
			</option>
			<option value="lock">
			<%if rs("islock") then response.write "取消锁定" else response.write "锁定留言" end if %>
			</option>
		   <% end if %>
		  </select>
		 </td>
		</tr>
		<tr> 
		 <td width="106%" align="center" colspan="3"> 
		 </td>
		</tr>
		<tr> 
		 <td width="100%" colspan="3"> 
		  <p align="center"> 
		   <input type="submit" value="提交" name="B1" onclick="return check()" class="input2" >
		   &nbsp;&nbsp;&nbsp; 
		   <input type="reset" value="清除" name="B2" class="input2" >
		   <br>
		   <input type="hidden" name="tname" size="17" style="background-color: #FFCC00; border-style: solid; border-width: 1" value="<%=rs("name")%>">
		   <input type="hidden" name="id" size="17" style="background-color: #FFCC00; border-style: solid; border-width: 1" value="<%=xxid%>">
		 </td>
		</tr>
	   </table>
	  </form>
	 </td>
	</tr>
   </table>
   ::: <a href="index.asp">返 回 留 言 首 页 面</a> :::<br>
  </td>
 </tr>
</table>
<!--#include file="foot.asp"-->

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -