📄 shop_manage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
if request("action")="del" then
dim bhx
bhx="1"
if (request("bh")<>"")then
bhx=request("bh")
sql = "Select * from shops where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
FilePath=Server.MapPath("shop/"&bhx&".html")
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
IF fso.FileExists(FilePath) Then
fso.DeleteFile(FilePath)
End IF
Set fso = Nothing
rs.delete
rs.close
set rs=nothing
response.Redirect("admin_right.asp?url=shop_manage.asp&reason=删除成功,系统将转向管理页面!")
end if
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>shop_manage</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div>
<div align="center">
<table width="899" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td width="891"><form id="form1" name="form1" method="post" action="shop_manage.asp?action=search">
搜索商城名:
<label>
<input name="name" type="text" class="STYLE3" id="name" />
</label>
<label>
<input name="Submit" type="submit" class="STYLE7" value="现在搜索!" />
</label>
</form></td>
</tr>
<tr>
<td class="STYLE8">前台请自行调用shop里的数据，我们已经在下载包里面放了很多帮助文档,请查看</td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">基本调用</td>
</tr>
<tr>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>shop_js.asp?action=<span class="STYLE8">usual</span>&n=3"></script> usual不能更改 普通调用</td>
</tr>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">商城调用和高级调用</td>
</tr>
<tr>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>shop_js.asp?tag=<span class="STYLE8">shop</span>&n=3"></script> shop等都可以更改 </td>
</tr>
<tr>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>shop_js.asp?tag=<span class="STYLE8">shop</span>&xiangguan=<span class="STYLE8">shop</span>&n=3"></script></td>
</tr>
<tr>
<td class="STYLE13"><script language="javascript" src="<span class="STYLE8">修改后系统文件夹名/</span>shop_js.asp?xiangguan=<span class="STYLE8">shop</span>&n=3"></script></td>
</tr>
<tr>
<td class="STYLE13">tag是按tag调用,xiangguan是按相关调用,可以混合调用</td>
</tr>
<tr>
<td><span class="STYLE8">
<%
if request("action")="search" then
name1=trim(request("name"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from shops where shop_name='"&name1&"'"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有搜索的结果!错误原因可能为:你没添加任何商城信息，或者商城的标题不存在!")
else%>
</span>
<table width="861" border="0" class="littlered">
<tr>
<td width="664"><div align="left"><%=rs("shop_name")%></div></td>
<td width="185"><div align="left"><a href="shop_manage.asp?action=del&bh=<%=rs("bh")%>">删除</a></div></td>
</tr>
</table>
<%
end if
end if
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>现有商城系统</td>
</tr>
<tr>
<td><p>
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from shops order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("暂时还没有有关商城的记录")
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
</p>
<table width="100%" border="0" class="STYLE3">
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">id</td>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">class</div></td>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">information</td>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid">manage</td>
</tr>
<tr>
<td width="90"><div align="left"><a href="shop/<%=rs("bh")%>.html" target="_blank"><%=rs("shop_name")%></a> </div></td>
<td width="142"><div align="center"><%=rs("bigclassname")%></div></td>
<td width="541"><form id="form2" name="form2" method="post" action="">
<label>
<div align="left">
<textarea name="textarea" cols="100" rows="5" class="STYLE3" readonly="readonly"><%=rs("shop_infor")%></textarea>
</div>
</label>
</form> </td>
<td width="100"><div align="left"><a href="shop_manage.asp?action=del&bh=<%=rs("bh")%>">删除</a> <a href="modi_shop.asp?bh=<%=rs("bh")%>">修改</a></div></td>
</tr>
</table> </td>
</tr>
<tr>
<td><div align="center">
<%
rs.movenext
if rs.eof then exit for
next
%>
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=admin_info.asp?page=1>首页</a> "
response.write "<a href=admin_info.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=admin_info.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=admin_info.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
<%
end if
rs.close
set rs=nothing
%>
</div></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -