config_re_answer.asp

鄂尔多斯建站网全站程序(冬季修正版)

<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub re_answer
set rs=server.createobject("adodb.recordset")
sql="select * from control_4 where web_name='"&session("d_webname")&"' order by id desc"
rs.open sql,conn,3,3
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
  <tr>
    <td width="8%" height="20" align="center">
      <p align="center"><font color="#FFFFFF">编号</font></td>
    <td width="48%" height="20" align="center">
      <font color="#FFFFFF">查看回复</font></td>
    <td width="13%" height="20" align="center">
      <font color="#FFFFFF">操作情况</font></td>
    <td width="23%" height="20" align="center">
      <font color="#FFFFFF">提交时间</font></td>
    <td width="8%" height="20" align="center">
      <font color="#FFFFFF">删除</font></td>
  </tr>
<%if rs.eof then%> 
  <tr>
    <td width="100%" height="20" bgcolor="#FFFFFF" colspan="5">
      <p align="center"><a href="control.asp">未提交过问题，有问题请点击这里提问</a></p>
    </td>
  </tr>
<%else
pgsize=20
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%>  
  <tr>
    <td width="8%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("id")%></td>
    <td width="48%" height="20" bgcolor="#FFFFFF" align="center"><a class="red" href="re_answer_2.asp?id=<%=rs("id")%>&action=reply">查看管理员答复</a></td>
    <td width="13%" height="20" bgcolor="#FFFFFF" align="center"><%if rs("c_4")="0" then%><font color="#FF0000">未答复<%else%></font>答复<%end if%></td>
    <td width="23%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("t_4")%></td>
    <td width="8%" height="20" bgcolor="#FFFFFF" align="center"><a href="del.asp?action=del_question&id=<%=rs("id")%>">删除</a></td>
  </tr>
<%
count=count+1
rs.movenext
loop                                                                                            
end if
rs.close
set rs=nothing
%></table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%">
      <table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
        <tr>
          <td width="100%" height="20">
            <font color="#FFFFFF"><p align="center">
<a class="white" href=re_answer.asp?page=<%=page-1%>>上一页</a>&nbsp;┊&nbsp;<a class="white" href=re_answer.asp?page=<%=page+1%>>下一页</a></p></font>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%end sub%>
<%sub re_answer_2
if request("Action")="reply" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from control_4 where id="&request("id")
rs.open sql,conn,3,3
%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
  <tr>
    <td width="15%" height="20">
      <p align="center"><font color="#FFFFFF">发表的问题</font></td>
    <td width="50%" height="20" bgcolor="#EEEEEE">　</td>
  </tr>
  <tr>
    <td width="100%" colspan="2" bgcolor="#FFFFFF">
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" width="95%" style="border-collapse:collapse; word-break:break-all">
          <tr>
            <td width="100%">&nbsp;</td>
          </tr>
          <tr>
            <td width="100%"><%=rs("name_1")%></td>
          </tr>
          <tr>
            <td width="100%">&nbsp;</td>
          </tr>
        </table>
        </center>
      </div>
    </td>
  </tr>
  <tr>
    <td width="15%" height="20">
      <p align="center"><font color="#FFFFFF">管理员答复</font></td>
    <td width="50%" bgcolor="#EEEEEE" height="20">　</td>
  </tr>
  <tr>
    <td width="100%" colspan="2" bgcolor="#FFFFFF">
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" width="95%" style="border-collapse:collapse; word-break:break-all">
          <tr>
            <td width="100%">&nbsp;</td>
          </tr>
          <tr>
            <td width="100%"><%=rs("c_4_answer")%></td>
          </tr>
          <tr>
            <td width="100%">&nbsp;</td>
          </tr>
        </table>
        </center>
      </div>
    </td>
  </tr>
</table>
<p align="center">[ <a href="re_answer.asp">返回上页</a> ]</p> 
<%
rs.close
set rs=nothing
end if
end sub%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>