📄 tous.asp

📁 校园二手交易系统,具有完备的后台操作以及应用功能!
💻 ASP
字号:

<HTML>
<HEAD>
<TITLE>投诉店铺</TITLE>


<BODY>
<TABLE width="760" class=page border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD>
<!--#include file="top.asp"-->
<!--#include file="Inc/UserChk.asp"-->
<!--#include file="Inc/formchk.asp"-->
<!--#include file="Inc/msgbox.asp"-->
<%
'****************************************************
' 多多校园电子商务工作室        Power by ddtaobao.com
' Email:kayvin@sohu.com    OICQ:6334278     站长:小羽
' Web: http://www.ddtaobao.com    淘宝旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************
IF Trim(Request("Submit"))<>Empty Then
  Dim typ,body,strsql,rs,id1
  id1=encodestr(request.Form("id"))
  typ=encodestr(request.Form("typ"))
  body=encodestr(request.Form("body"))
  set rs=server.CreateObject("adodb.recordset")
  strsql="select * from [tousu]"
  rs.open strsql,conn,1,3
  rs.addnew()
  rs("shop_id")=id1
  rs("user_id")=session("user_id")
  rs("typ")=typ
  rs("body")=body
  rs("submit_date")=date()
  rs.update
  rs.close
  set rs=nothing
  call msgbox("投诉成功","GoUrl","tous.asp")
  response.End()
End IF

dim id
id=request.QueryString("id")
%>
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR> 
      <TD align="center" vAlign=top>
        <TABLE cellSpacing=0 cellPadding=0 width="637" border=0 class=page>
          <TBODY>
            <TR> 
            
              <TD class=th> 
                    
					&nbsp;<img border="0" src="images/news.gif" width="15" height="15"> 
						举报投诉</TD>
                
             
            </TR>
            <TR> 
              <TD align="center">　</TD>
            </TR>
            <TR> 
              <TD><form name="form1" method="post" action="">
	<input name="id" type="hidden" value="<%=id%>">
      <div align="center">
      <table width="100%" border="0" cellpadding="4" cellspacing="4" class=page>
        <tr>
          <td>类型：</td>
          <td ><select name="typ" id="typ">
            <option value="1" selected>不是我们学校的</option>
            <option value="2">商品价格太离谱</option>
            <option value="3">掌柜没有信用</option>
              <option value="4">资料不够详细</option>
<option value="5">经常坑害顾客</option>
          </select></td>
        </tr>
        <tr>
          <td valign="top">内容：</td>
          <td valign="top"><textarea name="body" cols="70" rows="8" class="input2" id="body"></textarea></td>
        </tr>
        <tr>
          <td>　</td>
          <td><input type="submit" class=input name="Submit" value="提交"></td>
        </tr>
        </table>
    </div>
    </form></TD>
            </TR>
          </TBODY>
        </TABLE>
        </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"-->   </TD>
    </TR>
  </TBODY>
</TABLE>

</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -