userts.asp

ASP入门与提高实用教程 源文件(上传网站)

<!--#include file="top.asp"-->
<center>


<table border="0" width="760" cellspacing="0" cellpadding="0" height="312">
  <tr>
    <td width="190" height="312" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190" valign="top" align="left"><!--#include file="left.asp"--></td>
      </tr>
    </table>
    </td>
</center>
    <%
    if request("user_name")="" then
        founderr=true
        errmsg=errmsg&"<br>"+"<li>使用投诉功能要提供用户账号"
    else
        user_name=request("user_name")
    end if
    
    if request("sub_number")="" then
        founderr=true
        errmsg=errmsg&"<br>"+"<li>使用投诉功能要提供订单号"
    else
        sub_number=request("sub_number")
    end if
    
    if founderr=false then
        sql="select * from sub where sub_number='"&sub_number&"' and user_name='"&user_name&"'"
        'set rs=server.createobject("adodb.recordset")
        rs.open sql,conn,3,3
        if rs.eof then
            founderr=true
            errmsg=errmsg&"<br>"+"<li>用户没有此订单信息"
        else
            set rs1=server.createobject("adodb.recordset")
            sql1="select * from ts where sub_number='"&sub_number&"'"
            rs1.open sql1,conn,3,3
            if rs1.eof then
                rs1.addnew
                rs1("user_name")=rs("user_name")
                rs1("sub_number")=rs("sub_number")
                rs1("ts_date")=now()
                rs1.update
            else
                founderr=true
                errmsg=errmsg&"<BR>"+"<li>请不要重复提交投诉信息!"
            end if
            rs1.close
            set rs1=nothing
         end if
         rs.close
     end if

     %>
        
    <td width="380" valign="top" align="left">
    <table border="0" width="380" cellspacing="0" cellpadding="0" height="5">
      <tr>
        <td width="380" bgcolor="#FF9A31" height="18">
        <%if founderr<>false then
            response.write "请确认你的投诉信息"
        else
            response.write "您的投诉信息已经确认！"
        end if
        %>
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#63CFFF">
    <table border="0" width="100%" cellspacing="1">
      <tr>
        <td width="100%" bgcolor="#FFFFFF">
        <%
        
        
        
        if founderr<>false then
            response.write errmsg
        else
            response.write "您的投诉订单为:"
            response.write "<font color=red>"
            response.write sub_number
            response.write "</font><br>"
            response.write "我们会尽快的处理给您一个满意的答复"
        end if
        'rs.close
        %>
        </td>
      </tr>
    </table>
  </td>
      </tr>

<center>


<tr>
  <td width="100%"></td>
</tr>
      </table>
    </center>
    </td>
    <td width="190" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190"><!--#include file="right.asp"--></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="copy.asp"-->