userts.asp

一个功能很全面占用空间的小商城程序,适合个人网上开店使用

<!--#include file="top.asp"-->
<center>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td align="center" valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" height="520">
                          <tr> 
                            <td width="150" valign="top" align="left"> <table border="0" width="100%" cellspacing="0" cellpadding="0">
                                <tr> 
                                  <td width="150" valign="top" align="left"> 
                                    <!--#include file="left.asp"-->
                                  </td>
                                </tr>


                              </table></td>
<td width="590" height="100%"  valign="top"> 
  <%
    if request("user_name")="" then
        founderr=true
        errmsg=errmsg&"<br>"+"<li>使用投诉功能要提供用户账号"
    else
        user_name=request("user_name")
    end if
        if not(isnumeric(request("sub_number"))) then
        errmsg="<br>"+"<li>定单号应该为数字"
        founderr=true
    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 orders where id="&sub_number&" and memberID='"&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")=user_name
                rs1("sub_number")=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

     %>
 <table border="0" width="590" cellspacing="0" cellpadding="0" height="5">
      <tr>
        <td width="590" bgcolor="#e9a7c4" height="18">
        <%if founderr<>false then
            response.write "请确认你的投诉信息"
        else
            response.write "您的投诉信息已经确认！"
        end if
        %>
        </td>
      </tr>
      <tr>
  <td width="100%" bgcolor="#e9a7c4">
    <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>
</td>
                            
                          </tr>
                        </table> 

</td>
                    </tr>
                  </table>
</td>
              </tr>
            </table>

            <table width="100%" border="0" cellspacing="0" cellpadding="0">

              <tr>
                <td><table width="100%" border="0" cellspacing="0">
                    <tr>
                      <td>
                        <!--#include file="copy.asp"-->
                      </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>