<!--#include file="../../fy.Function.asp"-->
<!--#include file="../../../fy_inc/cls_pageview.asp"-->
<!--#include file="fun.asp"-->

<%
Server.ScriptTimeOut=999
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
response.Charset = "gb2312"
ConnectionDatabase
If Not fycms.fycms_QXYZ(0,"lyxt_fy","") Then   Call fycms.Alert("对不起，你没有操作权限！","") 
Dim Rs1,fycms_BookSetting
	Set Rs1=Conn.Execute("Select fycms_SysSetting From Config_fy")
	fycms_BookSetting=Split(Rs1(0),"^@$@^")
	
	Dim arrinfo, i,sql,sqlCount,CID,Sqls,title
	CID=ChkNumeric(fycms.s("CID"))
 	If cid<>0 Then Sqls=" where cid="&cid:title=fycms.bookclasslist(cid,1)
	
	
	%>
<!doctype html>
<html>
<head>
<meta charset="gb2312">
<title>留言系统</title>
<link rel="stylesheet" type="text/css" href="../../css/base.css">
<link rel="stylesheet" type="text/css" href="../../css/content.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="ACT内容管理系统、免费开源的ASP网站新闻发布系统、免费网站管理系统、免费CMS系统、网站设计、搜索引擎排名研究、网站经营理念">
<meta name="description" content="开源CMS,网站管理系统,cms,新闻发布系统,内容管理系统,免费网站管理系统,免费CMS系统,ASP网站开发,网站优化,ASP网站管理系统 ">
 <SCRIPT>function showimage(){document.images.tus.src="../../../Plus/Book/face/"+document.form.xq.options[document.form.xq.selectedIndex].value+".gif";}</SCRIPT>
 </head>
<body>
 
<div class="content"> 
	<div class="breadnav">当前位置：<a href="#">后台首页</a> >>  &gt;&gt; 插件中心 &gt;&gt;<a href="?">留言本管理&gt;&gt;<%=title%></div>
    <div class="opers">
    	<span class="btn">查看选项：</span> 
		<a href="class.index.asp" class="btn">留言栏目</a> 
		<a href="index.asp" class="btn btn_primary">留言系统</a>
		<a href="sys.asp" class="btn">留言设置</a>
		<a href="Listm.asp" class="btn">留言自定义字段</a>
 	 <select name="ClassID" size="1" onChange="javascript:window.location=this.options[this.selectedIndex].value;">
<option value='?' >全部</option>
      <% 	 echo Classmake()
		%>
    </select> 
    </div>

 
 
<%
Dim intDateStart
	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	Dim intPageNow
	intPageNow = request.QueryString("page")
	Dim intPageSize, strPageInfo
	intPageSize =20
	sql = "SELECT [qq],[hidden],[audit],[content],[relcontent],[ip],[addtime],[id],[username]" & _
		" FROM [Book_fy] "  &Sqls& _
		 " ORDER BY [addtime] deSC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM [Book_fy]" &Sqls
		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = "page"
			clsRecordInfo.objConn = Conn		
			arrinfo = clsRecordInfo.arrinfo
			strPageInfo = clsRecordInfo.strPageInfo
			'Set clsRecordInfo = nothing
			'conn.close			
				If IsArray(arrinfo) Then
					For i = 0 to UBound(arrinfo, 2)		
					%>
<form name="form1" method="post" action="Rel_fy.asp?action=hf&id=<%= arrinfo(7,i) %>">
  <table width="100%"  border="0" cellpadding="0" cellspacing="0" class="tb">
    <tr class="breadnav">
      <td width="579" height="20" class="tl">姓名:<%=arrinfo(8,i)%> 第<font color="#993333"><%= arrinfo(7,i) %></font>条留言&nbsp;&nbsp;
        QQ：
        <% if arrinfo(0,i) <> "" then %>
        <%= arrinfo(0,i) %>
        <% 
					 else
					 echo("无")
					  End If %>
        &nbsp;
        
        
        &nbsp;&nbsp;<a  href="Rel_fy.asp?action=sh&id=<%=arrinfo(7,i) %> ">审核</a> <a  href="Rel_fy.asp?action=del&id=<%=arrinfo(7,i) %> " onClick="return confirm('是否确认删除,该操作不可恢复!')">删除</a>
        <% if arrinfo(2,i)="1" then echo "<font color=""#ff8000"">该留言处于审核状态...</font>" %></td>
    </tr>
    <%=ACT_MXEdit(arrinfo(7,i))%>
    <tr>
      <td valign="top"  class="tl"><%
					  if arrinfo(2,i)="0" then
							 echo  "<br>&nbsp;&nbsp;&nbsp;&nbsp;"&arrinfo(3,i)
					  else
					  echo "<font color=""#ff8000"">给管理员的悄悄话...</font><br>"&arrinfo(3,i)
					  end if %>
        <br>
        <br>
        <% if arrinfo(4,i) <> "" then%>
        <IMG 
            src="../../../Plus/Book/face/dot.gif" width="21" height="10" border=0><font color="red">管理员回复</font><FONT color=#ff8000 >：<%= arrinfo(4,i) %></FONT>
        <% End If %></td>
    </tr>
    <tr>
      <td height="20" class="tl">IP:<%=arrinfo(5,i)%> 　　<font color="#CCCCCC"><%=arrinfo(4,i)%></font></td>
    </tr>
    <tr>
      <td height="20" class="tl">
        <textarea name="relcontent" cols="72" rows="5" class="gbinput" id="relcontent" ><%=arrinfo(4,i)%></textarea>
        <br>
        <input name="Submit" type="submit" class="btn btn_primary" value=" 提交 ">
        &nbsp;&nbsp;
        <input name="Submit2" type="reset" class="btn" value=" 重置 ">
        支持HTML回复</td>
    </tr>
  </table>
</form>
<br> 
<%Next
		else
		echo "还没有任何留言<br>"
 End IF	



	Public Function ACT_MXEdit(ID)'表现方式.输出模型
	 Dim RS
	  Set RS=fycms.ACTEXE("Select * from Table_fy  Where ModeID=999  and fycms=4 order by OrderID desc,ID asc")
	  	Do While Not RS.Eof
			ACT_MXEdit=ACT_MXEdit &"<tr>"&vbCrLf&"<td  class=""tl"">"&RS("Title")&"："&EditField(RS,ID)&"</td>"&vbCrLf&"</tr>"&vbCrLf
			
		RS.MoveNext
		Loop
	  RS.Close:Set RS=Nothing
	 ACT_MXEdit=vbCrLf&ACT_MXEdit& vbCrLf 
	End function







 	Function EditField(RSObj,id)
		Dim i,IsNotNull,TitleTypeArr,checked,rs1,FieldName
		Dim arrtitle,arrvalue,titles

		Set RS1=fycms.ACTEXE("Select * from book_fy  Where id="&id&"")
		FieldName= RSObj("FieldName")
		EditField= RS1(FieldName)
 	    RS1.Close
	End Function 

   %>
 <div class="pagelist">
<% echo strPageInfo%>
</div> </div>
</body>
</html>