📄 school.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 [School] WHERE ID="&ID
	conn.execute(Strsql)
	conn.Close
	SET conn=Nothing
	Call MsgBox("删除成功","GoUrl","School.asp")
	Response.End()
END Select

Dim Strsql,Rs
SET Rs=Server.CreateObject("Adodb.Recordset")
Strsql="SELECT ID,Name,Taxis FROM [School] 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"-->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
          
         
          <tr align="center">
    <td height=20 class="topbg" colspan="4">多多科技管理</tr>

  <tr bgcolor="#FFF7EE">
    <td width="97" bgcolor="#FFFFFF"><a href="SchoolBuilt.asp">
	<font color="#FF0000">添加学校</font></a></td>
    <td width="439" bgcolor="#FFFFFF"><font color="#0066FF">提示:点击该学校名称就可以修改</font></td>
    <td width="175" bgcolor="#FFFFFF">　</td>
    <td width="79" 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='SchoolEdit.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><!--#include file="copy.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -