guestbook.asp 中网景企业网站源码时尚版 2009.73码程序 - ASP源码程序

www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/guestbook.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
'Call CnkAdminRight(1)

thispage=request("page_code")
if thispage="" then
	thispage=1
else
	thispage=clng(thispage)
end if
if thispage<1 then thispage=1
PagePara="?tmp="


if  Request.Form("action")="del" then
	Call AdminRight("DelAdmin",ChannelID,session("admin"))
	dim theitem
	for each theitem in Request.Form("delid")
	conn.execute("delete from cnk_guestbook where id="&theitem)
	next
end if

Call Head()
%>
<script language="javascript">
<!--

function mOvr(src,clrOver){
	if (!src.contains(event.fromElement)) {
		//src.style.cursor = 'hand';
		src.bgColor = clrOver;
	}
}
function mOut(src,clrIn)  {
	if (!src.contains(event.toElement)) {
		src.style.cursor = 'default';
		src.bgColor = clrIn;
	}
}
function mClk1(src,id) {
		window.location .href =src;
 }

//-->
</script>
<script language="JavaScript">
<!--
function cform(){
 if(!confirm("真的删除吗?"))
 return false;
}//-->
</script>
<script language="javascript" src="inc/cnkgl.js"></script>
<body>
<div class="cnkbox">
  <div class="title">留言簿</div>
  <div class="content">
   <% Dim ipage,yuyan
      rs.open "select id,lytype,contactname,title,initime,Lang,ispass from cnk_guestbook order by initime desc",conn,1,3
	  if rs.recordcount=0 then
	  Response.Write "未有内容"
	  Response.end
	  else
		rs.pagesize=20
		if thispage>rs.pagecount then thispage=rs.pagecount
		rs.AbsolutePage = thispage
	%>
  <form name="form1" method="post" action="guestbook.asp">
  <table width="96%" border="0" cellspacing="1">
    <tr bgcolor="#CCCCCC"> 
      <td width="14%" align="center">日期时间</td>
      <td width="12%" align="center"> 姓名</td>
      <td width="9%" align="center">语言</td>
      <td width="11%" align="center">留言类型</td>
      <td width="31%">标题</td>
      <td width="13%" align="center">看详细内容</td>
      <td width="10%" align="center">删除</td>
    </tr>
	 <% for ipage=1 to rs.pagesize
	 if rs("Lang")=0 then yuyan="中文" else yuyan="英文"
	 %>
    <tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');" <% If rs("ispass")=0 Then Response.Write("class=""strong""")%>> 
      <td align="center"> <a href="guestbook_info.asp?ChannelID=<%= ChannelID %>&id=<% =rs("id")%>"><% =zhuan_time(rs("initime"))%></a></td>
      <td align="center"><% =rs("contactname")%></td>
      <td align="center"><% =rs("lytype")%></td>
      <td align="center"><% =yuyan%></td>
      <td><% =rs("title")%></td>
      <td align="center"><a href="guestbook_info.asp?ChannelID=<%= ChannelID %>&id=<% =rs("id")%>">看详细/回复</a></td>
      <td align="center"> <input name="delid" type="checkbox" id="delid" value="<%=rs("id")%>"></td>
    </tr>
	<%rs.movenext
      if rs.eof then exit for
      next%>
  </table> 
  <div align="right" style="padding:5px 100px 5px">
    全选：<input type="checkbox" name="checkbox" value="Check All" onClick="mm()">
	<input name="ChannelID" type="hidden" value="<%=ChannelID%>">
	<input name="action" type="hidden" value="del">
    <input type="submit" name="Submit" value="删除" class="button" onClick="return cform()">
  </div>
  </form> 

  <table width="96%" height="21" border="0" background="images/bg-xg.gif" bgcolor="#EFEFEF">
    <tr>
	<td width="50%"><% = GetPageList(rs.pagecount,thispage,PagePara,0) %></td>
    <td width="50%" align="right"> 共<strong><%=rs.recordcount%></strong> 条
      <% = GetPage(rs.pagecount,thispage,PagePara,0) %></td>
    </tr>
  </table> 
	  <% rs.close
		set rs=nothing
		End If %>	
</div>
</div>
<% Call Foot()
Call Closedb()%>