questionview.asp

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

<% ModuleCode="M0915" %>
<!--#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") & "' and UQUserID=" & Session("UserID")
'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="460" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>问 题 内 容</strong></font>
    </td>
  </tr>
  <tr>
    <td>
      <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>
      </table>
    </td>
  </tr>
<%
if Rs("UQStat")="3" then
%>
  <tr>
    <td height="30">
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>回 复 内 容</strong></font>
    </td>
  </tr>
  <tr>
    <td>
      <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%>">
            <%=replace(replace(Rs("ReInfo"),chr(13),"<br>")," ","&nbsp;")%>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            回复时间
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <%=Rs("ReTime")%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
<%
end if
%>
  <tr>
    <td height="40" align="right">
      <input type="button" class="button" value=" 返回 " Onclick="javascript:history.go(-1)">
    </td>
  </tr>
</table>

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