questionedt.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 122 行

<% ModuleCode="M0915" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="QuestionMenu.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form3.UQTitle, "意见标题"))			return false;
	if (!CheckEmpty(form3.UQInfo, "问题内容"))			return false; 
	//全部通过
	//submitonce(form3);
	return true;
}
-->
</script>
<%
strSQL="Select * from T_DNS_UserQues Where UQID='" & Request.QueryString("UQID") & "' and UQUserID=" & Session("UserID")
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>
    <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%>">
       <form name="form3" action="QuestionAddDo.asp" method="post" onSubmit="return(CheckAll());">
       <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%>">
            <input type="text" name="UQTitle" size="50" maxlength="100" class="input" value="<%=Rs("UQTitle")%>">
          </td>
        </tr>
         <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            问题类别
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="TypeCode" class="input">
<%
strSQL="Select * from T_DNS_QuestionType"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn
While Not Rs1.Eof
	%>
	<option value="<%=Rs1("TypeCode")%>" <% if Rs1("TypeCode")=Rs("TypeCode") then Response.Write "Selected" %>><%=Rs1("TypeName")%></option>
	<%
	Rs1.MoveNext
WEnd
Rs1.Close
Set Rs1=Nothing
%>
            </select>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            相关域名
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="UQDomainAbout" size="50" maxlength="100" class="input" value="<%=Rs("UQDomainAbout")%>">
          </td>
        </tr>
        
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            相关IP
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="UQIPAbout" size="50" maxlength="100" class="input" value="<%=Rs("UQIPAbout")%>">
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            问题内容
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <textarea name="UQInfo" cols="48" rows="10" class="input"><%=Rs("UQInfo")%></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">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>

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