?? shoptous.asp
字號:
<%@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 "不是我們學(xué)校的"
case "2"
response.Write "商品價格太離譜"
case "3"
response.Write "掌柜沒有信用"
case "4"
response.Write "資料不夠詳細(xì)"
case "5"
response.Write "經(jīng)常坑害顧客"
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>多多校園產(chǎn)品后臺管理官方網(wǎng)站http://www.ddtaobao.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="多多校園產(chǎn)品后臺管理官方網(wǎng)站http://www.ddtaobao.com">
<meta name="description" content="多多校園產(chǎn)品后臺管理官方網(wǎng)站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>內(nèi)容</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -