shoptous.asp

来自「校园二手交易系统,具有完备的后台操作以及应用功能!」· ASP 代码 · 共 84 行

ASP
84 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/AdminChk.asp"-->
<%
Dim action,id2
action=cstr(request.QueryString("action"))
select case action
  case "del"
  id2=request.QueryString("id")
  strsql="delete * from [tousu] where id="&id2
  conn.execute(strsql)
  response.Redirect "shoptous.asp"
end select

function typ(str)
  select case str
   case "1"
     response.Write "不是我们学校的"
   case "2"
     response.Write "商品价格太离谱"
   case "3"
     response.Write "掌柜没有信用"
  case "4"
     response.Write "资料不够详细"
  case "5"
     response.Write "经常坑害顾客"
  end select
end function

function title(str)
  dim strsq1,rs1
  strsq1="select title from [dduser] where user_id="&cint(str)
  set rs1=conn.execute(strsq1)
  title=rs1("title")
end function

Dim strsql,rs
set rs=server.CreateObject("adodb.recordset")
strsql="select * from [tousu] order by id desc"
rs.open strsql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>多多校园产品后台管理官方网站http://www.ddtaobao.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="多多校园产品后台管理官方网站http://www.ddtaobao.com">
<meta name="description" content="多多校园产品后台管理官方网站http://www.ddtaobao.com">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><link rel="stylesheet" type="text/css" href="img/admin_style.css">
</head>
<body><!--#include file="top.asp"-->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#62C0FF" class="border" style="border-width: 0">
          
         
          <tr align="center">
    <td height=20 class="topbg" colspan="5">多多校园管理</tr>
  <tr bgcolor="#FFF7EE">
    <td width="47" bgcolor="#FFFFFF"><font class=font>序号</font></td>
    <td width="97" bgcolor="#FFFFFF"><font class=font>类型</font></td>
    <td width="43" bgcolor="#FFFFFF"><font class=font>内容</font></td>
    <td width="43" bgcolor="#FFFFFF"><font class=font>查看</font></td>
    <td width="40" bgcolor="#FFFFFF"><font class=font>删除</font></td>
  </tr>
  <%
  dim I
  I=0
  do while not rs.eof
  I=I+1
  %>
  <tr>
    <td bgcolor="#FFFFFF"><%=I%></td>
    <td bgcolor="#FFFFFF"><%=typ(rs("typ"))%></td>
    <td bgcolor="#FFFFFF"><a href="TouShow.asp?ID=<%=rs("id")%>"><%=(rs("body"))%></a></td>
    <td bgcolor="#FFFFFF"><a href="../shop_info.asp?user_ID=<%=rs("shop_id")%>" target="_blank">查看</a></td>
    <td bgcolor="#FFFFFF"><a href="?action=del&id=<%=rs("id")%>">删除</a></td>
  </tr>
  <%
  rs.movenext
  loop
  %>
</table>
</body>
</html>

shoptous.asp - 源码说明

本页面展示了「校园二手交易系统,具有完备的后台操作以及应用功能!」中的 shoptous.asp 源码文件，采用 ASP 编程语言编写，共 84 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web Development相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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