📄 shopzu.asp

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

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/MsgBox.asp"-->
<%
Dim action
action=Cstr(Request.QueryString("action"))
Select Case action
  Case "del"
    Dim ID
	ID=Request.QueryString("ID")	
    Strsql="DELETE FROM [typ] WHERE ID="&ID
	conn.execute(Strsql)
	conn.Close
	SET conn=Nothing
	Call MsgBox("删除成功","GoUrl","shopzu.asp")
	Response.End()
END Select

Dim Strsql,Rs
SET Rs=Server.CreateObject("Adodb.Recordset")
Strsql="SELECT ID,Name,Taxis FROM [typ] ORDER BY Taxis ASC"
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"-->
<form name="form1" method="post" action="">
 <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
          
         
          <tr align="center">
    <td height=20 class="topbg" colspan="5">多多校园管理</tr>
    <tr bgcolor="#FFF7EE">
      <td width="120" bgcolor="#FFFFFF"><a href="ShopZuBuilt.asp">添加分类</a></td>
      <td width="339" bgcolor="#FFFFFF"><font color="#0066FF">提示:点击该分类名称就可以修改</font></td>
      <td width="232" bgcolor="#FFFFFF">　</td>
      <td width="155" bgcolor="#FFFFFF">　</td>
      <td width="82" bgcolor="#FFFFFF">　</td>
    </tr>
  <%
  IF NOT Rs.EOF AND NOT Rs.BOF THEN
    Dim I
    I=0  
    DO WHILE NOT Rs.EOF
      I=I+1
      Response.Write "<tr>"&_
      "<td>"& I &"</td>"&_
      "<td><a href='ShopZuEdit.asp?ID="& Rs(0) &"'>"& Rs(1)& "</a></td>"&_	  
	  "<td>"& Rs(2) &"</td>"&_
      "<td><a href='?action=del&ID="& Rs(0) &"'>[ 删除 ]</a></td>"&_
      "</tr>" 
      Rs.MoveNext
    Loop
    Rs.Close
    SET Rs=Nothing
    conn.Close
    SET conn=Nothing
  END IF
  %>
  </table>
</form><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -