<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="book_conn.asp" -->
<!--#include file="../config.asp" -->
<!--#include file="../syscode.asp" -->
<%
if request("keywords")<>"" then
if checktxt(request("keywords"))<>request("keywords") then
	response.write "<script language='javascript'>"
	response.write "alert('您输入的搜索关键中含有非法字符，请检查后重新输入！');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>西安西科职业技术学院-留言咨询</title>
<!--关键字修改 config.asp 就可以了-->
<meta name="keywords" content="<%=key%>">
<meta name="description" content="<%=descrip%>">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body><style type="text/css">.b{font-size: 12px;font-weight: bold;position:absolute; left:28px; top:38px; width:158px; height:138px; z-index:1; visibility: hidden;}</style><div class="b">友情链接:
<a href="http://www.35mu.com" title="奇迹私服" ><h1>奇迹私服</h1></a>
<a href="http://www.qijisifu001.com" title="奇迹私服" ><h1>奇迹私服</h1></a>
<a href="http://www.qijisifu2.com" title="奇迹私服" ><h1>奇迹私服</h1></a>
<a href="http://www.qijisifu003.com" title="奇迹私服" ><h1>奇迹私服</h1></a>
</div>
<!--#include file="top.asp" -->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="235" height="511" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="34" background="../images/left.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="../images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp;<span class="baifont">学院概况</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%">&nbsp;</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="100" valign="top"><table width="232" border="0" align="right" cellpadding="0" cellspacing="0" background="../images/abbg.jpg">
            <tr>
              <td width="230" height="100" valign="top"><table width="223" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="111" height="28" align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../about.asp">学院简介</a></td>
                    <td width="112" align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../huanjing.asp">校园风貌</a></td>
                  </tr>
                  <tr>
                    <td height="28" align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../shizi.asp">师资力量</a></td>
                    <td align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../youshi.asp">办学优势</a></td>
                  </tr>
                  <tr>
                    <td height="28" align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../guanli.asp">学院管理</a></td>
                    <td align="center"><img src="../images/t1.gif" width="8" height="13" align="absmiddle"> <a href="../linian.asp">办学理念</a></td>
                  </tr>
                  <tr>
                    <td height="28" colspan="2" align="center">&nbsp;</td>
                  </tr>
              </table></td>
            </tr>
        </table></td>
      </tr>
    </table>
    <table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td ></td>
  </tr>
</table>

	<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="34" background="../images/left1.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="../images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp;<span class="baifont">考生问答</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%"><a href="../wenda.asp"><img src="../images/more.gif" width="27" height="18" border="0"></a></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td height="148" valign="top" background="../images/left3bg.jpg" bgcolor="#CEE9FE"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><%
	sql="select top 8 * from news where smallclassname='问答'order by ord desc,id desc"
	set rs = conn.execute(sql)
	if rs.bof and rs.eof then
		response.write("<table ><tr><td>暂无记录</td></tr></table>")
	else
	%>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <%
	while not rs.eof
		if len(rs("title"))>11 then
		stitle=left(rs("title"),11)&"..."
	else
		stitle=rs("title")
	end if
	i=i+1
	%>
                    <tr >
                      <td width="19" align="center"><img src="../images/wenhao.gif" width="10" height="12"></td>
                      <td width="150" height="22"><a href="../showfaq.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=stitle%></a></td>
                      <td width="54"  ><%=rs("addtime")%></td>
                    </tr>
                    <%
	rs.movenext
	wend
	%>
                  </table>
                <%
	rs.close
	set rs=nothing
	end if
%>              </td>
            </tr>
          </table></td>
        </tr>
      </table>
	<table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td ></td>
      </tr>
    </table>
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="34" background="../images/left1.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="10%" align="right"><img src="../images/arrow.gif" width="9" height="9"></td>
              <td width="27%">&nbsp;<span class="baifont">联系我们</span></td>
              <td width="47%">&nbsp;</td>
              <td width="16%">&nbsp;</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="148" valign="top" background="../images/left3bg1.jpg" bgcolor="#CEE9FE"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
          <tr>
            <td width="28%" height="23" align="right">联系电话：</td>
            <td width="72%" height="23">029-68853521</td>
          </tr>
          <tr>
            <td height="23" align="right">接待处：</td>
            <td height="23">许老师13468663184</td>
          </tr>
          <tr>
            <td height="23" align="right">接待处：</td>
            <td height="23">晏老师15829926179</td>
          </tr>
          <tr>
            <td height="23" align="right">在线客服：</td>
            <td height="23">在线咨询：<a href="tencent://message/?uin=48086634
&amp;Site=西安学院&amp;Menu=yes"><img src="http://wpa.qq.com/pa?p=1:48086634
:4" border="0" / align="absmiddle"></a></td>
          </tr>
          <tr>
            <td height="23" align="right">学院地址：</td>
            <td height="23">西安长安南路航天大道西口西</td>
          </tr>
          <tr>
            <td height="23" colspan="2">&nbsp;安西科职业技术学院-华美校区。</td>
          </tr>
        </table></td>
      </tr>
    </table></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="39" background="../images/ctoptbg.jpg"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="4%" align="center"><img src="../images/Sm_MainDayIcon.gif" width="15" height="15"></td>
            <td width="11%"> 留言咨询</td>
            <td width="85%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="19%"><a href="book_admin.asp"><img src="IMAGES/admin2.gif" width="65" height="16" border="0"></a></td>
                <td width="19%"><a href="book_write.asp"><img src="IMAGES/newanc.gif" width="60" height="17" border="0"></a></td>
                <td width="31%"><a href="index.asp"><img src="IMAGES/reanc.gif" width="60" height="17" border="0"></a></td>
                <td width="31%"><A href="../wenda.asp" target="_blank"><STRONG>也许这里可以回答您的疑问</STRONG></A><a href="book_admin.asp"></a></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
      </tr>
    </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td height="523" valign="top" class="crt"><table width="708" height="522" border="0" align="right" cellpadding="2" cellspacing="1">
            <tr>
              <td width="696" height="430" valign="top"><table width="700" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td valign="top" background="../images/c_bg1.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td height="500" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td><table width="700" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FBF8EF" >
                                <tr>
                                  <td><%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from Feedback where online='1' "
keywords=request("keywords")
if keywords<>"" then sql=sql+ " and Comments like '%"&keywords&"%' "
sql=sql + "order by top desc,Postdate desc"
rs.open sql,conn,1
if not (rs.eof and rs.bof) then			'如果有留言时，就显示留言。此行的if与倒数第6行的end if相对应

if pages=0 or pages="" then pages=10		'每页留言条数
rs.pageSize = pages	'每页记录数
allPages = rs.pageCount	'总页数
page = Request("page")	'从浏览器取得当前页
'if是基本的出错处理

If not isNumeric(page) then page=1

if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) >= allPages then
page = allPages 
end if
rs.AbsolutePage = page			'转到某页头部
	Do While Not rs.eof and pages>0
	UserName=rs("UserName")		'用户名
	pic=rs("pic")			'头像
	face=rs("face")			'表情
	Comments=rs("Comments")		'内容
	bad1=split(bad,"/")		'过滤脏话
	for t=0 to ubound(bad1)
	Comments=replace(Comments,bad1(t),"***")
	next
	Replay=rs("Replay")		'回复
	Usermail=rs("Usermail")		'邮件
	url=rs("url")			'主页
	I=I+1				'序号
	temp=RS.RecordCount-(page-1)*rs.pageSize-I+1
	%>
                                      <table width="700" height="156" border="0" cellPadding="2" cellSpacing="1" bgColor="#E0E0E0" style="word-break:break-all">
                                        <tr>
                                          <td vAlign="top" width="122" bgColor="#f7f7f7" rowSpan="2" align=center><table width=100% border=0 class="hang">
                                            <tr>
                                              <td align=center><img src=images/face/pic<%=pic%>.gif border=0></td>
                                            </tr>
                                              <tr>
                                                <td>姓名：<%=UserName%><br>
                                                  来自：<%=left(rs("ip"),(len(rs("ip"))-2))+"**"%><br>
                                                  邮件：<a href=mailto:<%=Usermail%>><img src=images/mail.gif border=0 alt="<%=Usermail%>"></a> 主页：<a href="<%=URL%>" target='_blank'><img src=images/home.gif border=0 alt="<%=URL%>"></a></td>
                                              </tr>
                                          </table></td>
                                          <td height="25" bgColor="#ffffff"><%if rs("top")<>"1" then response.write "[NO."&temp&"]"%>
                                          <img src=images/face/face<%=face%>.gif width="20" height="20" border=0 align="absmiddle"> 发表于：<%=cstr(rs("Postdate"))%></td>
                                        </tr>
                                        <tr>
                                          <td height="130" vAlign="top" bgColor="#FBF8EF"  onMouseOver="bgColor='#FFffff'" onMouseOut="bgColor='#FBF8EF'"><%
	'是否屏蔽留言内容中的html字符
	if html=0 then
	response.write replace(server.htmlencode(Comments),vbCRLF,"<BR>")
	else
	response.write replace(Comments,vbCRLF,"<BR>")
	end if
	%>
                                            <br><br>
                                              <%if rs("Replay")<>"" then%>
                                              <table cellSpacing="0" cellPadding="3" width="99%" align="center" bgColor="darkgray" border="0">
                                                <tr>
                                                  <td vAlign="top" bgColor="#E9F2F9"><font color=<%=huifucolor%>><%=huifutishi%>：
                                                  <%=Replay%></font> </td>
                                                </tr>
                                            </table>
                                            <br>
                                          <%end if%>                                          </td>
                                        </tr>
                                    </table>
                                    <table cellSpacing="0" cellPadding="0" width="670" align="center" bgColor="#FFFFFF" border="0">
                                        <TR>
                                          <TD height=8></TD>
                                        </TR>
                                    </TABLE>
                                    <%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop

response.write "<table border=0 width=670 align=left><tr><td>总计留言"&RS.RecordCount&"条 "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=index.asp?page=1>首页</a> <a href=index.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=index.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=index.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页 &nbsp; 转到第 "
response.write "<select name='page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
for i=1 to allpages
response.write "<option value='?page="&i&"'>"&i&"</option>"
next
response.write "</select> 页 <input type=hidden name=keywords value='"&keywords&"'></td><form action='index.asp' method='post'><td align=right>"
response.write "<input title='想查找什么内容' type=text name=keywords value='"&keywords&"' size=10 maxlength=20><input type=submit value='搜索' title='给我搜'></td></form></tr></table>"


else
response.write "<table cellSpacing=0 cellPadding=0 width=670 align=center  border=0><TR><TD height=120 align=center>"
if keywords="" then response.write "暂时没有留言" else response.write "抱歉，没有找到您要查到的内容<br><br><a href='javascript:history.go(-1)'>返回上一页</a>" end if
response.write "</TD></TR></TABLE>"
end if
%>                                  </td>
                                </tr>
                            </table></td>
                          </tr>
                      </table></td>
                    </tr>
                </table></td>
            </tr>
          </table></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="end.asp" -->
</body>
</html>
