toususave.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<!--#INCLUDE FILE="conn.asp"-->
<link rel="stylesheet" type="text/css" href="css.css">
        <div align="center">
          <center>
        <table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
          <tr> 
            <td width="380" height="25"> 
              <%
    if request("user_name")="" then
        founderr=true
        errmsg=errmsg&"<br>"+"<li>使用投诉功能要提供用户账号"
        response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
    else
        user_name=request("user_name")
    end if
    
    if request("sub_number")="" then
        founderr=true
        errmsg=errmsg&"<br>"+"<li>使用投诉功能要提供订单号"
        response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
    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>请不要重复提交投诉信息!"
                response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
            end if
            rs1.close
            set rs1=nothing
         end if
         rs.close
     end if

     %>
              <div align="center"><font color="#FFFFFF"><b> 
                <%if founderr<>false then
            response.write "　请确认你的投诉信息"
            response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
        else
            response.write "　您的投诉信息已经确认！"
            response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
        end if
        %>
                </b></font></div></td>
          </tr>
          <tr> 
            <td width="100%" height="25">
            <%
        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 "　我们会尽快的处理给您一个满意的答复"
            response.write "<br><br><SCRIPT SRC=http://duduad2.kisswin.com/main/adview.php?user=14|159&border=0&db=dudukisswin&log=yes></SCRIPT>"
        end if
        'rs.close
        %></td>
          </tr>
        </table>
          </center>
</div>