admin_book.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = ""
%>
<!--#include file=admin_login_check.asp-->
<%
Call opendatabase
Call txl_SiteHead (const_txlname&"- 管理员")
If Request.QueryString("action") ="del" Then
	Call del
Else
	Call main
End If

Call CloseDataBase
Call web_end
Sub main
%>
<br><table border="1" cellspacing="0" width="720" bgcolor="#FFFFFF" bordercolorlight="#cccccc" bordercolordark="#FFFFFF" cellpadding="8" align="center">
  <tr> 
    <td height="20" align="center" bgcolor="#efefef">删除单条留言请点<a href="<%=const_txl_HomeUrl%>message_show.asp" target="_blank">这里进入</a>前台进行操作,批量删除请在下面输入天数<b></b></td>
  </tr>
  <tr> 
    <td height="23" align="center"><form name="form1" method="post" action="?action=del">
        请输入要删除几天前的留言: 
        <input name="daynum" type="text" id="daynum" size="12" maxlength="4">
        &nbsp;&nbsp; 
        <input type="submit" name="Submit" value="批量删除">
      </form></td>
  </tr>
</table>
<%End SUb%>
<%
Sub del
	dim rs,daynum,recordnum,tmpstr
	daynum=Trim(Request("daynum"))
	If daynum="" or (not isnumeric(daynum)) Then
		Call printerror("出错！","请输入删除过期天数,数字类型!",779)
		Exit Sub
	End IF
	set Rs=conn.execute ("select count(*) from forum where datediff('d',pubtime,now())>"&daynum)
	recordnum=rs(0)
	rs.close
	set rs=nothing
	If Request("queren")<>"true" Then
			Response.write "<div align=center><br><font color=red>本操作正在"&daynum&"天前的留言记录，影响的记录数为"&recordnum&",且不可恢复。你确实要进行该操作吗？<br>请点击下面的“确定”按钮继续执行操作,点击“取消”来撤消本次操作。</font><br><br>"
			Response.write "<input type=button value='确定' onclick=""javascript:window.location.href='?action=del&daynum="&daynum&"&queren=true'"">&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value='取消' onclick='javascript:history.back()'><br><br></div>"
		Else
			conn.Execute ("delete from forum where datediff('d',pubtime,now())>"&daynum)
			tmpstr="<li>已经成功删除"&daynum&"天前的留言记录，所影响的记录数为"&recordnum&"！</li>"
			tmpstr=tmpstr&"<li>回<a href='?'>留言管理</a>！</li>"
			Call	printsuc("删除成功！",tmpstr,779)
		End IF
End Sub
%>