📄 prod1.asp
字号:
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("03")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
function JM_wu(ob){
ob.style.display="none";
}
function JM_you(ob){
ob.style.display="";
}
function uppic(model,frmname) {
id=document.prodtable.ProdId.value;
if (id=='') {
alert("请先填写商品编号！");
document.prodtable.ProdId.focus();
return false;}
window.open("upload.asp?fuptype=pic&fupname="+id+model+"&frmname="+frmname,"blank_","scrollbars=yes,resizable=no,width=650,height=450")
}
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</head>
<BODY background="../images/admin/back.gif">
<%
if request("action")="add" or request("show")="yes" then
response.cookies("buyok")("sql")=""
end if
url="prod1.asp"
action = request("action")
if action="" then
%>
<table width="750" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<form name=Prodlist action=prod1.asp method=post>
<tr>
<td colspan=9 class=td height=18><b><font color="#FF0000"><font color="#FFFFFF">抱歉,您使用的是未注册版本,未提供本功能.
</font></font></b></td>
</tr>
<tr>
<td width=15 align=center>选</td>
<td width=50 align=center>编号</td>
<td width=200 align=center>名称 [点击名称预览该商品]</td>
<td width=85 align=center>添加/提升日期</td>
<td width=265 align=center colspan=3>编辑</td>
<td width=30 align=center>状态</td>
<td width=40 align=center>点击数</td>
</tr>
<%
'显示商品列表
Set setup = conn.Execute("select * from shopsetup")
per_page_num=setup("per_page_num")'读取每页商品数
if per_page_num="" or per_page_num<=1 then per_page_num=20
paixu=setup("paixu")'读取排序方式
set setup=nothing
pages = per_page_num
set rs = server.createobject("adodb.recordset")
if request.cookies("buyok")("sql")="" then'无搜索选项，即显示全部商品
if paixu="1" then orderby=" order by adddate desc"
if paixu="2" then orderby=" order by adddate"
if paixu="3" then orderby=" order by prodid desc"
if paixu="4" then orderby=" order by adddate"
if paixu="5" then orderby=" order by prodname"
if paixu="6" then orderby=" order by ClickTimes desc"
sql = "select * from buyok_produc where ProdId is not null " + orderby
else'有搜索选项，显示搜索结果
sql=request.cookies("buyok")("sql")
end if
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<tr><td colspan=9 align=center height=50>没有找到相关商品</td></tr>"
end if
if not (rs.eof and rs.bof) then
totalrec = RS.RecordCount
rs.pageSize = pages
allPages = rs.pageCount
page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or int(page) <= 1 then
page = 1
elseif int(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page
do while not rs.eof and pages>0
%>
<tr><td colspan=9 height=5 onMouseOver="bgColor='#FF8899'" onMouseOut="bgColor='E7E7E7'"></td></tr>
<%
adddate=split(rs("adddate")," ")
response.write "<tr><td><input type='checkbox' value='"&rs("ProdNum")&"' name=id></td>"
response.write "<td>"&rs("ProdId")&"</a></td><td><a target='_blank' href='../gotourl.asp?list.asp?ProdId="&rs("ProdId")&"' alt='查看<font color=red> "&rs("ProdName")&" </font>的前台页面'>"&lleft(rs("ProdName"),32)&"</a></td>"
response.write "<td><span title="&replace(rs("adddate")," ",",")&">"&adddate(0)&"</span></td>"
if rs("remark")="0" then
tjian="../images/admin/prodgif1.gif"
else
tjian="../images/admin/prodgif3.gif"
end if
if rs("tejia")="0" then
tjia="../images/admin/prodgif2.gif"
else
tjia="../images/admin/prodgif4.gif"
end if
response.write "<td align=center><input type=button onClick='javascript:location.href=""prod1.asp?page="¤tpage&"&action=detail&id="&rs("ProdId")&""";' value='编辑'> <input alt='执行此操作，将实现：<br>前台：此商品将成为首页第一个商品<br>后台：出现在列表顶端' type=button onClick='javascript:location.href=""prod1.asp?action=tisheng&id="&rs("ProdId")&""";' value='提升'></td><td align=center><img border=0 src="&tjian&" onClick='javascript:location.href=""prod1.asp?action=tuijian&id="&rs("ProdId")&""";'></td><td align=center><img border=0 src="&tjia&" onClick='javascript:location.href=""prod1.asp?action=tejia&id="&rs("ProdId")&""";'></td>"
response.write "<td align=center>"
if rs("online")=true then
response.write "显示</td>"
else
response.write "<font color=red>关闭</font></td>"
end if
response.write "<td align=right>"&rs("ClickTimes")&"</td></tr>"
pages=pages-1
rs.movenext
loop
end if
rs.close
conn.close
set rs=nothing
set coon=nothing
%>
<tr><td colspan=9>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>
全选
<input type="submit" name="action" value="关闭">
<input type="submit" name="action" value="打开">
</td>
</tr>
</form>
</table>
<%
call listpage()
end if
if action="detail" then
id=request("id")
call proddetail()
end if
if action="tisheng" then
id=request("id")
call tisheng()
end if
if action="tuijian" then
id=request("id")
call tuijian()
end if
if action="tejia" then
id=request("id")
call tejia()
end if
if action="删除" then
delid=replace(request("id"),"'","")
call proddel()
end if
if action="关闭" then
ProdNum=replace(request("id")," ","")
call prodclose()
end if
if action="打开" then
ProdNum=replace(request("id")," ","")
call prodopen()
end if
if action="add" then
call prodadd()
end if
if action="delother" then
call delother()
end if
sub listpage()
if allpages <= 1 then exit sub
if page = 1 then
response.write "<br><font color=#878787>首页 上页</font>"
else
response.write "<br> <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
end if
if page = allpages then
response.write "<font color=#878787>下页 末页</font>"
else
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page+1&"'>下页</a> "
response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
end if
response.write " 第"&page&"页 共"&allpages&"页 商品总数："&totalrec& " 每页商品数："& per_page_num
end sub
sub prodclose()
if ProdNum="" or isnull(ProdNum) then
response.write "<script language='javascript'>"
response.write "alert('您什么也没有选择，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_produc where ProdNum in ("&ProdNum&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该商品并不存在，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
Do while not rs.eof
rs("online")=false
rs.update
rs.movenext
loop
end if
response.write "<script language='javascript'>"
response.write "alert('所选商品已经被关闭！');"
response.write "location.href='"&url&"';"
response.write "</script>"
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end sub
sub prodopen()
if ProdNum="" or isnull(ProdNum) then
response.write "<script language='javascript'>"
response.write "alert('您什么也没有选择，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from buyok_produc where ProdNum in ("&ProdNum&")"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该商品并不存在，单击“确定”返回上一页！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
Do while not rs.eof
rs("online")=true
rs.update
rs.movenext
loop
end if
response.write "<script language='javascript'>"
response.write "alert('所选商品已经被打开！');"
response.write "location.href='"&url&"';"
response.write "</script>"
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
end sub
sub delother()
'删除多图
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -