?? admin_gbook.asp

?? FLASH留言本后臺地址： MxGbook/index.asp 后臺用戶名：admin 后臺密碼： stonemx.com
?? ASP
字號:
<!--#include file="../MxGbook_conn.asp" -->
<!--#include file="admin_chk.asp" -->
<%
function changeStr(Str)
	if len(Str)>0 then
		Str=Replace(Str,"&","&amp;")
		Str=Replace(Str,"<","&lt;")
		Str=Replace(Str,">","&gt;")
		Str=Replace(Str,"""","&quot;")
		Str=Replace(Str,"'","&apos;")
	end if
	changeStr=Str
end function
function changeStrb(Str)
	if len(Str)>0 then
		'Str=Replace(Str,"&amp;","&")
		Str=Replace(Str,"&lt;","<")
		Str=Replace(Str,"&gt;",">")
		Str=Replace(Str,"&quot;","""")
		Str=Replace(Str,"&apos;","'")
	end if
	changeStrb=Str
end function
if request("editsh")<>"" then
	session("editsh")=request("editsh")
end if
if session("editsh")=1 then
	session("editshname")="已審核"
else
	session("editshname")="未審核"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= webname %>-MxGbook后臺管理</title>
<link href="css.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
var checkflag = "false";
function check(field) {
if (checkflag == "false") {
for (i = 0; i < field.length; i++) {
field[i].checked = true;}
checkflag = "true";
return "false"; }
else {
for (i = 0; i < field.length; i++) {
field[i].checked = false; }
checkflag = "false";
return "true"; }
}
</script>

</head>
<body>
<!--#include file="admin_top.asp" -->
<div id="MxGbookMain">

  <table width="790" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="#333333">
    <tr valign="top">
      <td width="100" bgcolor="#333333"><!--#include file="admin_left.asp" --></td>
      <td bgcolor="#333333">
	  <div id="MxGbookT">留言管理 （<%= session("editshname") %>）</div>
	  <%
select case request("action")
	case "manage"
		call manage()
	case "edit"
		call edit()
	case "save_edit"
		call save_edit()
	case "del"
		call del()
	case "cz_all"
		call cz_all()
end select
sub save_add()
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_gbook"
	rs.open sql,conn,1,3
	rs.addnew
	rs("bclassname")=Trim(Request.Form("bclassname"))
	rs("title")=Trim(Request.Form("title"))
	rs("newskeyword")=Trim(Request.Form("newskeyword"))
	rs("content")=Trim(Request.Form("content"))
	rs("hits")=Trim(Request.Form("hits"))
	rs("addDate")=Trim(Request.Form("addDate"))
	rs.update
	rs.close
	set rs=nothing
	response.write "<script language=javascript>alert('操作成功！');location.href('?action=manage');</script>"
	response.End()
end sub
sub save_edit()
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_gbook where id in("&request("id")&")"
	rs.open sql,conn,1,3
	rs("pxid")=Trim(Request.Form("pxid"))
	if Trim(Request.Form("title"))<>"" then
		rs("title")=changeStr(Trim(Request.Form("title")))
	end if
	if Trim(Request.Form("gmcontent"))<>"" then
		rs("gmcontent")=changeStr(Trim(Request.Form("gmcontent")))
		rs("gmaddDate")=now()
	end if
	rs.update
	rs.close
	set rs=nothing
	response.write "<script language=javascript>alert('操作成功！');location.href('?action=manage');</script>"
	response.End()
end sub
sub del()
	conn.execute("delete from st_gbook where id in("&request("id")&")")
	response.write "<script language=javascript>alert('操作成功！');location.href('?action=manage');</script>"
	response.End()
end sub
sub cz_all()
	if Trim(Request.Form("btdel"))<>"" then
	conn.execute("delete from st_gbook where id in("&Trim(Request.Form("id"))&")")
	end if
	if Trim(Request.Form("btsh"))<>"" then
	conn.execute("update st_gbook set shenhe=1 where id in("&Trim(Request.Form("id"))&")")
	end if
	if Trim(Request.Form("btbsh"))<>"" then
	conn.execute("update st_gbook set shenhe=0 where id in("&Trim(Request.Form("id"))&")")
	end if

	response.write "<script language=javascript>alert('操作成功！');location.href('?action=manage');</script>"
	response.End()
end sub
%>
<%sub edit()%>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from st_gbook where id in("&request("id")&")"
	rs.open sql,conn,1,1
%>
<form action="?action=save_edit" method="post" name="formedit" id="formedit">
  <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
    <tr>
      <td bgcolor="#4D4D4D">排序：</td>
      <td bgcolor="#4D4D4D"><input name="pxid" type="text" id="pxid" value="<%=rs("pxid")%>" size="6" maxlength="6"> 
        <span class="font1">(只能是數字，留言順序從大到小排列)          </span>
        <input type="submit" name="Submit" value="確定"></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">ip</td>
      <td bgcolor="#4D4D4D"><%=rs("ip")%></td>
    </tr>
    <tr>
      <td width="17%" bgcolor="#4D4D4D">姓名</td>
      <td width="83%" bgcolor="#4D4D4D"><%=changeStrb(rs("name"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">性別</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("sex"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">qq</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("qq"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">email</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("email"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">主頁</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("homepage"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">留言時間</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("addDate"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">標題</td>
	  <%
	  dim mytitle
	  mytitle=rs("title")
	  'mytitle=changeStrb(mytitle)
	  mytitle=Replace(mytitle,"&apos;","'")
	  %>
      <td bgcolor="#4D4D4D"><input name="title" type="text" id="title" value="<%=mytitle%>" size="50" maxlength="50"></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">內容</td>
      <td bgcolor="#4D4D4D"><%=changeStrb(rs("content"))%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">回復內容</td>
	  <% 
	  dim mygmcontent
	  mygmcontent=rs("gmcontent")
	  mygmcontent=changeStrb(mygmcontent)
	   %>
      <td bgcolor="#4D4D4D"><textarea name="gmcontent" cols="50" rows="5" id="gmcontent"><%=mygmcontent%></textarea></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">回復時間</td>
      <td bgcolor="#4D4D4D"><%=rs("gmaddDate")%></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">&nbsp;</td>
      <td bgcolor="#4D4D4D"><input name="id" type="hidden" id="id" value="<%=rs("id")%>">
        <input type="submit" name="Submit" value="回復">
        <input type="reset" name="Submit" value="重置"></td>
    </tr>
    <tr>
      <td bgcolor="#4D4D4D">&nbsp;</td>
      <td bgcolor="#4D4D4D"><input name="Submit" type="button" value="返回" onClick="javascript:history.back()"></td>
    </tr>
  </table>
</form>
<%
	rs.close
	set rs=nothing
%>
<%end sub%>
  <% sub manage() %>
          <%
dim idcount
dim pages
dim pagec
dim page
dim pagenc
dim pagenb
dim datafrom
dim taxis
'taxis="order by id asc" '正排序
taxis="order by pxid desc,addDate desc,id desc"
pages=20
datafrom="st_gbook"
pagenb=7 
pagenc=(pagenb-1)/2
dim pagenmax 
dim pagenmin
page=clng(request("page"))
dim sqlid
dim myself
myself = request.servervariables("path_info")
dim tiaojian
tiaojian=" where shenhe="&session("editsh")&" "
	sql="select count(id) as idcount from ["& datafrom &"] " & tiaojian
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,0,1
idcount=rs("idcount")
dim i
if(idcount>0) then
	if(idcount mod pages=0)then
		pagec=int(idcount/pages)
	else
		pagec=int(idcount/pages)+1
	end if
	
	sql="select id from ["& datafrom &"] " & tiaojian & taxis
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1

	   rs.pagesize = pages
	   if page < 1 then page = 1
	   if page > pagec then page = pagec
	   if pagec > 0 then rs.absolutepage = page  

	for i=1 to rs.pagesize
	if rs.eof then exit for  
		if(i=1)then
			sqlid=rs("id")
		else
			sqlid=sqlid &","&rs("id")
		end if
	rs.movenext
	next
	
end if
if(idcount>0 and sqlid<>"") then
	
	sql="select * from ["& datafrom &"] where id in("& sqlid &")"&taxis
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,0,1
%><form action="?action=cz_all" method="post" name="form" id="form">
          <table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<%
while(not rs.eof)
%><tr bgcolor="#4D4D4D" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#000000'">
              <td width="70" ><input name="id" type="checkbox" id="id" value="<%=rs("id")%>"><% If rs("shenhe")=1 Then %>
                <span class="font1">已審核</span>
              <% Else %>未審核
              <% End If %></td>
              <td width="40" ><% If rs("gmcontent")<>"" Then %><span class="font1">已回復</span><% Else %>未回復<% End If %></td>
            <td width="100"><%=changeStrb(rs("name"))%></td>
            <td><%=changeStrb(rs("title"))%></td>
            <td width="105"><%=rs("addDate")%></td>
              <td width="60"><a href="?action=edit&page=<%= page %>&id=<%=rs("id")%>">回復</a> | <a href="?action=del&page=<%= page %>&id=<%=rs("id")%>" onClick="{if (confirm('您確定要刪除？')){return true;}return false;}">刪除</a></td>
            </tr><%
rs.movenext

wend
%>
          </table>
		  <table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><input type=checkbox value="全選" onClick="this.value=check(this.form.id)">
    全選 
      <input name="btsh" type="submit" id="btsh" value="審核選擇的留言">
      <input name="btbsh" type="submit" id="btbsh" value="取消審核選擇的留言">
      <input name="btdel" type="submit" id="btdel" value="刪除選擇的留言" onClick="{if (confirm('您確定要刪除？')){return true;}return false;}"></td>
  </tr>
</table>

		  </form>
		  <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#999999">
            <tr>
              <td bgcolor="#4D4D4D"> 共有 <font class="font2"><%=idcount%></font> 條數據,第 <font class="font2"><%=pagec%> / <%=page%></font> 頁,每頁 <font class="font2"><%=pages%></font> 條&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                  <%
pagenmin=page-pagenc
pagenmax=page+pagenc
if(pagenmin<1) then
	pagenmin=1
end if
if(page>1) then
%>
                  <a href="<%= myself %>?action=manage&page=1">首頁</a>&nbsp;&nbsp;
                  <%
end if
if(pagenmin>1) then
%>
                  <a href="<%= myself %>?action=manage&page=<%= page-(pagenc*2+1) %>">上一頁</a>&nbsp;&nbsp;
                  <%
end if
if(pagenmax>pagec) then
	pagenmax=pagec
end if
for i = pagenmin to pagenmax
	if(i=page) then
%>
                [<%= i %>]&nbsp;
                <%
else
%>
                <a href="<%= myself %>?action=manage&page=<%=i%>">[<%= i %>]</a>&nbsp;
                <%
end if
next
if(pagenmax<pagec) then
%>
                <a href="<%= myself %>?action=manage&page=<%= page+(pagenc*2+1) %>">下一頁</a>&nbsp;&nbsp;
                <%
end if
if(page<pagec) then
%>
                <a href="<%= myself %>?action=manage&page=<%= pagec %>">尾頁</a>&nbsp;&nbsp;
                <%
	end if
	
	%>
                轉到
                <script language="javascript">
<!--
function gopage() {
window.location.href="<%=myself%>?action=manage&page="+ page.value;
}
//-->
      </script>
                <input name="page" type="text" value="<%=page%>" size="2" onmouseover='this.focus();this.select()'>
                頁
              <input name="submit" type="button" onClick="gopage()" value="G O">              </td>
            </tr>
          </table>      <% Else %>
        <table width="200" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>無記錄! </td>
          </tr>
        </table>
    <%
End If
rs.close
set rs=nothing
%>
		  <% End sub %>
      </td>
    </tr>
  </table>
</div>
<!--#include file="admin_bottom.asp" -->
</body>
</html>
?? 文件大小 57 K
?? 上傳用戶 libhzsmo
?? 所屬分類 FlashMX/Flex源碼
??? 相關標簽

#MxGbook #stonemx #FLASH #index
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? admin_gbook.asp

?? 快捷鍵說明
