questionrep.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0820" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="QuestionMenu.asp"-->
<%
strSQL="Select * from v_Question where UQID='" & Request.QueryString("UQID") & "'"
'Response.Write strSQL
'Response.End
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><br><br><p align='center'>没有找到问题的记录！"
	Rs.Close
	Cn.Close
	Call PrintPageBottom
	Response.End
end if
%>

<table width="550" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>问 题 内 容</strong></font>
    </td>
    <td align="right">
     <a href="#" onclick="javascript:history.go(-1)" class="a2">返回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="80">
            意见标题
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQTitle")%>
          </td>
        </tr>
         <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            问题类别
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("TypeName")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            相关域名
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQDomainAbout")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            相关IP
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQIPAbout")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            问题内容
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=replace(replace(Rs("UQInfo"),chr(13),"<br>")," ","&nbsp;")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            提问用户
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQName")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            提问时间
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQTime")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            提问IP
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("UQIP")%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td height="30" colspan="2">
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>答 复 内 容</strong></font>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
      <form name="form3" action="QuestionRepDo.asp" method="post">
      <input type="hidden" name="UQID" value="<%=Rs("UQID")%>">
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="80">
            回复内容
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <textarea name="ReInfo" cols="48" rows="10" class="input"><%=Rs("ReInfo")%></textarea>
          </td>
        </tr>
        <tr height="28">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 答复 " name="act">
            &nbsp;
            <input type="submit" class="button" value=" 作废 " name="act">
            &nbsp;
            <input type="submit" class="button" value=" 删除 " name="act">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>

<%
Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
Call PrintPageBottom
%>