<!--#include file="conn.asp" -->
<%
if GetVariable("mnid")="" then 
	ShowMsg "无法访问指定的资料！"
end if
	
if GetKey("seeguest",WebUserID,"guestbook_" & GetVariable("mnid") )="none" then
	ShowMsg "无法访问指定的资料！"
end if
%>
<%
'读取留言本的属性，以确定显示那个字段
strCurrMenu=GetVariable("mnid")
isDW=GetKey("g_dw",WebUserID,"guestbook_" & strCurrMenu )
isTel=GetKey("g_tel",WebUserID,"guestbook_" & strCurrMenu )
isEmail=GetKey("g_email",WebUserID,"guestbook_" & strCurrMenu )
isAdrr=GetKey("g_adrr",WebUserID,"guestbook_" & strCurrMenu )
isOICQ=GetKey("g_oicq",WebUserID,"guestbook_" & strCurrMenu )
isIP=GetKey("g_ip",WebUserID,"guestbook_" & strCurrMenu )							
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<script language="JavaScript" src="common/JS_CheckForm.js"></script>
<script language="JavaScript">
function checkform(theform){
	if(!CheckEmpty(theform.txtName, "您的姓名")) return false;
	if(!CheckEmpty(theform.txtMsg, "留言内容")) return false;
}
</script>
<title>C</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<link href="images/css.css" rel="stylesheet" type="text/css" />
<link rel="stylesheet" href="common/style.css" type="text/css">
<style type="text/css">
<!--
.t4 {font-family: "宋体";
	font-size: 12px;
	font-weight: bold;
	color: #000000;
	text-decoration: none;
}
.t11 {font-family: "宋体";
	font-size: 12px;
	font-weight: normal;
	color: #FFFF00;
	text-decoration: none;
	line-height: 18px;
}
-->
</style>
</head>

<body>
<!--#include file="top.asp" -->

<table width="782" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="205" valign="top" background="images/eo_09.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><table width="205" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="29" background="images/eo_07.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="14%">&nbsp;</td>
                    <td width="86%" class="t1">网上调查</td>
                  </tr>
              </table></td>
            </tr>
            <tr>
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="100%" scope="row"><!--Vote Begin-->
                        <%
							isVote=GetKey("Enable",WebUserID,"vote")
							if isVote="Yes" then
							%>
                        <table width="73%" border="0" align="center" cellpadding="7" cellspacing="0">
                          <tr>
                            <td height="100"  valign="top" class="cn"><script language="JavaScript" src="admin/vote/viewvote.asp"></script></td>
                          </tr>
                        </table>
                      <span class="t1">
                        <%
							  end if
							  %>
                        <!--Vote End-->
                        <!--Link Begin-->
                        <%
							isLink=GetKey("Enable",WebUserID,"link")
							if isLink="Yes" then
							%>
                      </span></td>
                  </tr>
              </table></td>
            </tr>
          </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td height="29" background="images/eo_07.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="13%">&nbsp;</td>
                      <td width="87%" class="t1">友情链接</td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr align="center">
                    <td width="100%" scope="row"><table width="76%" border="0" align="center" cellpadding="7" cellspacing="0">
                        <tr>
                          <td height="107" align="center"  valign="top" class="t1"> 　 <span class="cn"><br>
                                <script language="JavaScript" src="admin/link/link.asp"></script>
                          </span></td>
                        </tr>
                      </table>
                        <span class="t1">
                        <%
							  end if
							  %>
                        <!--Link End-->
                      </span></td>
                  </tr>
                </table></td>
              </tr>
          </table></td>
      </tr>
    </table></td>
    <td width="581" valign="top"><table width="577" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="29" background="images/eo_08.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="7%">&nbsp;</td>
            <td width="93%" class="t2">查看留言</td>
          </tr>
        </table></td>
      </tr>
    </table>
      <table width="99%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#EFEFEF">
        <tr>
          <td valign="top" bgcolor="#FFFFFF"><table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="16">&nbsp;</td>
              <td width="490" height="300" valign="top"><span class="cn">
                <!--GuestBook Begin-->
                <%
					strSQL="Select * From web_guestbook Where mn_id=" & GetVariable("mnid") & " And Not(g_hfmsg is null) Order by ID Desc"
					rs.open strSQL,conn,1,1
					'分页显示初始化
					page=GetVariable("page")
					if page="" then
						page=1
					else
						page=Cint(page)
					end if
					
					Section=GetVariable("section")
					if Section="" then
						Section=1
					else
						Section=Cint(Section)
					end if
					'变量赋值
					intPageSize=10		'每页显示记录数
					intSectionSize=5		'多少页为一段，像GOOGLE一样
					PrevSectionText="<FONT face=webdings>7</FONT>"		'上一段的链接文字
					NextSectionText="<FONT face=webdings>8</FONT>"		'下一段的链接文字
					PrevPageText="<FONT face=webdings>3</FONT>"			'上页的链接文字	
					NextPageText="<FONT face=webdings>4</FONT>"			'下页的链接文字
					
					strPageUrl="?mnid=" & strCurrMenu
					
					rs.pagesize=intPageSize
					intCount=rs.RecordCount 
					intPageCount=rs.pagecount
					intSectionCount=(intPageCount - 1) \ intSectionSize + 1
					if intCount>0 then
						rs.AbsolutePage=page  
					else
						response.Write("没有可查看的内容！")
					end if
					 '循环输出
					 for i=1 to intPageSize
						if rs.eof then exit for
					%>
                </span>
                  <table width="490" border="0" cellspacing="0" cellpadding="0">
                    <tr class="11">
                      <td width="465" colspan="4"><table width="482" border="0" cellpadding="0" cellspacing="0">
                          <%if isDW<>"none" then%>
                          <tr>
                            <td width="69" height="25" align="right" bgcolor="F9F9F9" class="cn">单　位：</td>
                            <td height="25" colspan="3" bgcolor="F9F9F9" class="cn"><%=trim(rs("g_dw"))%></td>
                          </tr>
                          <%end if%>
                          <tr>
                            <td width="69" height="25" align="right" class="cn">姓　名：</td>
                            <td height="25" class="cn"><%=trim(rs("g_Name"))%></td>
                            <%if isOICQ<>"none" And isOICQ<>"Null"  then%>
                            <td height="25" align="right" class="cn">OICQ：</td>
                            <td height="25" class="cn"><%=trim(rs("g_ip"))%></td>
                            <%end if%>
                          </tr>
                          <%if isTel<>"none" Or isEmail<>"none" then %>
                          <tr>
                            <%if isTel<>"none" then%>
                            <td width="69" height="25" align="right" bgcolor="F9F9F9" class="cn">电　话：</td>
                            <td width="224" height="25" bgcolor="F9F9F9" class="cn"><%=trim(rs("g_Tel"))%></td>
                            <%end if%>
                            <%if isEmail<>"none" then%>
                            <td width="81" height="25" align="right" bgcolor="F9F9F9" class="cn">&nbsp;Email：</td>
                            <td width="108" height="25" bgcolor="F9F9F9" class="cn"><%=trim(rs("g_email"))%></td>
                            <%end if%>
                          </tr>
                          <%end if%>
                          <%if isAdrr<>"none" And isAdrr<>"Null" then%>
                          <tr>
                            <td width="69" height="25" align="right" class="cn">地　址：</td>
                            <td height="25" colspan="3" class="cn"><%=trim(rs("g_addr"))%></td>
                          </tr>
                          <%end if%>
                          <tr>
                            <td width="69" height="14" align="right" class="cn"><strong>留　言：</strong></td>
                            <td colspan="3" valign="top" class="cn"><%=trim(rs("g_msg"))%><br>
                                <font color="#666666">[<%=trim(rs("g_time"))%>] </font></td>
                          </tr>
                          <% if trim(rs("g_hfmsg")) <> "" then %>
                          <tr bgcolor="F9F9F9">
                            <td width="69" height="13" align="right" class="cn">回　复：</td>
                            <td colspan="3" valign="top" class="cn"><%=trim(rs("g_hfmsg"))%></td>
                          </tr>
                          <%end if%>
                        </table>
                          <hr></td>
                    </tr>
                  </table>
                <span class="cn">
                  <%
	rs.movenext
next
%>
                  </span>
                  <table width="490" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="20" bgcolor="#F9F9F9"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="32" align="right" class="cn"> 共有<font color=ff6600><%=intCount%></font>条记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录
                              <%
			'计算每一段的开始页
			intStarPage=(Section-2) * intSectionSize + 1
			'前一段
			if Section<=1 then
				response.Write(PrevSectionText & " ")
			else
				response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section-1 & "'>" & PrevSectionText & "</a> ")
			end if 
			
			'显示页码列表
			response.Write("第")
			intStarPage=(Section-1) * intSectionSize + 1
		    for p=intStarPage to intStarPage + intSectionSize - 1
				if p > intPageCount then exit for
				if p=page then
		    		response.Write("<strong>[" & p & "]</strong> ")
				else
		    		response.Write("<a href='" & strPageUrl & "&page=" & p & "&section=" & Section & "'>[" & p & "]</a> ")
				end if	
		    next
			response.Write("页")
			'后一段
			intStarPage=(Section) * intSectionSize + 1
			if Section>=intSectionCount then
				response.Write(" " & NextSectionText)
			else
				response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section+1 & "'>" & NextSectionText & "</a> ")
			end if 
		  %>
                            </td>
                          </tr>
                      </table></td>
                    </tr>
                  </table>
                <br>
                  <br>
                  <!--GuestBook End-->
              </td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="end.asp" -->
<script language="JavaScript" src="common/init.js"></script><br><script language=Javascript src="common/tranbig5.Js"></script>
</body>
</html>


