📄 prod1.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<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 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">

<%
allpages=0
page=1
totalrec=0
per_page_num=5

if request("action")="add" or request("show")="yes" then
 session("sql")=""
end if

url="prod1.asp"
dim ids

action = request("action")
if action="" then
call list()
else

if action="tuijian" then
id=request("id")
call tuijian()
end if

if action="tejia" then
id=request("id")
call tejia()
end if

ids=replace(request("id"),"'","")
if ids="" then mGoBack "您什么也没有选择，单击“确定”返回上一页！"
if action="删除" then
call proddel()
end if

if action="关闭" then 
call prodclose()
end if

if action="打开" then
call prodopen()
end if
end if
sub list()
%>

<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=7 class=td height=18>商品管理</td></tr>
<tr align=center>
<td width=15>选</td> 
<td width=50>编号</td> 
<td>名称 [点击名称预览该商品]</td>
<td width=85 >添加/提升日期</td>
<td width=30>状态</td>
<td width=40>点击数</td>
<td width=220>编辑</td>
</tr>
 
<%
'显示商品列表
set setup=nothing

pages = per_page_num
set rs = server.createobject("adodb.recordset")
if session("sql")="" or request("show")="yes" then'无搜索选项，即显示全部商品
sql = "select * from s_produc where ProdId is not null order by adddate desc "
else'有搜索选项，显示搜索结果
sql=session("sql")
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=7 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

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='../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("online")=true then 
response.write "<td align=center>显示</td>"
else
response.write "<td align=center><font color=red>关闭</font></td>"
end if
response.write "<td align=right>"&rs("ClickTimes")&"</td>"
response.write "<td align=center>"
if rs("remark")=false then
response.write "<input type=button onClick='javascript:location.href=""prod1.asp?page="&currentpage&"&action=tuijian&id="&rs("ProdId")&""";' value='　推荐　'> "
else
response.write "<input type=button style='color:blue;' onClick='javascript:location.href=""prod1.asp?page="&currentpage&"&action=tuijian&id="&rs("ProdId")&""";' value='取消推荐'> "
end if
if rs("tejia")=false then '不是特价商品，则显示“成为特价”的按键
response.write "<input type=button onClick='javascript:location.href=""prod1.asp?page="&currentpage&"&action=tejia&id="&rs("ProdId")&""";' value='　特价　'> "
else   '已经是特价的商品，则显示“取消特价”的按键
response.write "<input type=button style='color:blue;' onClick='javascript:location.href=""prod1.asp?page="&currentpage&"&action=tejia&id="&rs("ProdId")&""";' value='取消特价'> "
end if
response.Write "<input type=button onClick='javascript:location.href=""prod12.asp?page="&currentpage&"&action=detail&id="&rs("ProdId")&""";' value='编辑'> </td></tr>"
pages=pages-1
rs.movenext 
loop
end if

rs.close
conn.close
set rs=nothing
set coon=nothing
%>

<tr><td colspan=7>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选
<input type="submit" name="action" value="删除" onclick="{if(confirm('商品删除后将无法恢复，您确定要删除选定的商品吗？')){this.document.Prodlist.submit();return true;}return false;}"> 
<input type="submit" name="action" value="关闭">
<input type="submit" name="action" value="打开">
<input type="button" name="action" onclick="javascript:location.href='prod12.asp?action=add';" value="添加商品">
</td></tr>
</form>
</table>

<%
call listpage()
end sub

sub listpage()
response.write "<br> &nbsp;&nbsp;&nbsp; 总商品数："&totalrec& "&nbsp;&nbsp; 每页："& per_page_num&" 条记录&nbsp;&nbsp;&nbsp;"
if allpages <= 1 then exit sub 
if page = 1 then
response.write " <font color=#878787>首页 上页</font>"
 else
response.write " <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 "&nbsp;&nbsp;&nbsp;第"&page&"/"&allpages&"页"
end sub

sub prodclose()
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from s_produc where ProdNum in ("&ids&")"
rs.open sql,conn,1,3
Do while not rs.eof
rs("online")=false
rs.update
rs.movenext
loop
rs.close
mGoTo url,"所选商品已经被关闭！"
end sub

sub prodopen()
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from s_produc where ProdNum in ("&ids&")"
rs.open sql,conn,1,3
Do while not rs.eof
rs("online")=true
rs.update
rs.movenext
loop
rs.close
mGoTo url,"所选商品已经被打开！"
end sub

sub proddel()
set rs = server.createobject("adodb.recordset")
sql="select * from s_produc where ProdNum in ("&ids&")"
rs.open sql,conn,1,3
do while not rs.eof
rs.delete
rs.update
rs.movenext
loop
rs.close
set rs=nothing
mGoTo url,"操作成功，所选商品已被删除！"
end sub

'推荐或取消推荐
sub tuijian()
set rs=server.createobject("adodb.recordset")
sql = "select * from s_produc where ProdId='"&id&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("remark")=not rs("remark")
rs("tjdate")=now()
rs("tjdate")=rs("adddate")
rs.update
rs.close
mGoTo url,"所选商品已推荐状态已改变，单击“确定”返回商品列表。"
end if
mGoBack "操作失败，单击“确定”返回。"
end sub


'设置或取消特价
sub tejia()
set rs=server.createobject("adodb.recordset")
sql = "select * from s_produc where ProdId='"&id&"'"
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
rs("tejia")=not rs("tejia")
rs.update
rs.close
mGoTo url,"所选商品特价状态已改变，单击“确定”返回商品列表。"
end if
mGoBack "操作失败，单击“确定”返回。"
end sub
%>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -