<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Const dbdns = "./"
Const Htmldns = "./"
Const Base_Target = ""
Const ChannelID = 1
ClassID = ""
%>
<!--#include file="AppCode/Conn.asp"-->
<!--#include file="AppCode/fun/function.asp"-->
<!--#include file="AppCode/Pager.asp"-->
<!--#include file="inc/vbs.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>留言交流 - <%=Application(SiteID & "_Ok3w_SiteName")%></title>
<link rel="stylesheet" type="text/css" href="themes/v1/style.css">
<script type="text/javascript" src="js/js.js"></script>
<script type="text/javascript" src="js/ads.js"></script>
</head>

<body>
<!--#include file="inc/head.asp"-->
<div class="list_twidth">
     <!--left-->
      <div class="mframe mR">
   	    <div class=tm>
   	      <div class=tit><SPAN class=tt><a href="<%=Htmldns%>">网站首页</a> &gt;&gt; 留言交流</SPAN></div>
   	    </div>
        <div class=wrapper>
        <DIV class=mm id=bodyTd>
<%
PageSize = 15
Sql = "select * from Ok3w_Guest where TypeID=100"
If Application(SiteID & "_Ok3w_SiteIsGuest")="1" Then Sql = Sql & " and IsPass=1"
Sql = Sql & " order by IsTop desc,ID desc"
Set Page = New TurnPage
Call Page.GetRs(Conn,Rs,Sql,PageSize)
%>
<table width="670" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="150" align="center">共有<strong><%=Rs.RecordCount%></strong>条留言</td>
    <td><%Call Page.PageAspList("./book.asp?")%><br /></td>
  </tr>
</table>
<table width="670" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td bgcolor="#F5F5F5">公告：<%=Application(SiteID & "_Ok3w_SiteGuestNews")%></td>
  </tr>
</table>
<br />
<%
Do While Not Rs.Eof And Not Page.Eof
%>
<table width="670" border="0" cellspacing="0" cellpadding="0" style="table-layout: fixed; word-wrap:break-word; border-bottom:1px dotted #CCC;">
  <tr>
    <td width="150" align="center" valign="top"><img src="images/user.jpg" width="100" style="border:1px solid #CCC; padding:1px; margin-bottom:8px;" /><br />
    <%=OutStr(Rs("UserName"))%><br /><font color="#666666"><%=Format_Time(Rs("AddTime"),6)%></font><br /><br /></td>
    <td valign="top" style="font-size:14px; line-height:170%;"><%=Rs("Content")%>
	<%If Rs("Ad_Ask")<>"" Then%><div style="border-top:1px solid #DDD; color:#FF0000; margin-top:8px; padding-top:8px;">管理员回复：<%=OutStr(Rs("Ad_Ask"))%></div><%End If%>
	</td>
  </tr>
</table>
<br />
<%
	Rs.MoveNext
	Page.MoveNext
Loop
%>
<table width="670" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="150" align="center">共有<strong><%=Rs.RecordCount%></strong>篇留言</td>
    <td><%Call Page.PageAspList("./book.asp?")%><br /></td>
  </tr>
</table>
<%Rs.Close%>
      </DIV>

     </div>
    <DIV class="mframe mR mt8">
         <div class="style_02_ht tm_1">
		       <div class="style_01_nr">我要留言</div>
	     </div>     
     	 <DIV class=wrapper>
     	 <DIV class="mm box1">
<form method="post" action="./inc/savebook.asp" style="margin:0px; padding:0px; color:#333;">
<script type="text/javascript" src="./fckeditor/fckeditor.js"></script>
<textarea name="Content" id="Content" style="display:none;"></textarea>
<script type="text/javascript">
Ok3w_CreateFCKeditor(1,"Content","User","670","200");
</script>
<br />
我的名字：
<input name="UserName" type="text" id="UserName" maxlength="25" />
<input type="button" name="bntSubmit" id="bntSubmit" value="立即发表" onclick="chkbook(this.form);" />
<input name="TableID" type="hidden" id="TableID" value="0" />
<input name="TypeID" type="hidden" id="TypeID" value="100" />
<input name="sID" type="hidden" id="sID" value="<%=Session.SessionID%>" />    
</form> 		 
         </DIV>
       </DIV>
     </DIV>
    </div>
    
     <!--right-->
	<div style="float:right; width:250px;">
      <div class=lframe>
      	<div class=tm><SPAN class=tt>最新添加</SPAN> </div>
      	<div class=wrapper>
     		 <div class="mm box1">
     		 <UL>
       			 <%Call Ok3w_Article_List("",10,16,False,False,False,0,False,"new","li")%>  
             </UL>
             </div>
        </div>
      </div>    
      <div class=lframe>
     	 <div class=tm><SPAN class=tt>热门阅读</SPAN> </div>
     	 <div class=wrapper>
     		 <div class="mm box1">
      		 <UL>
       			 <%Call Ok3w_Article_List("",10,16,False,False,False,0,False,"hot","li")%>
             </UL>
             </div>
          </div>
       </div>
	</div>
</div>
<!--#include file="inc/foot.asp"-->
</body>
</html>