management_1.asp
来自「1. 硬件环境：MS WINDOWS NT PACK 4 OR LATER /W」· ASP 代码 · 共 276 行
ASP
276 行
<!-- #include file="setup.asp" -->
<%
validate "Login.asp",1
'----------------------------------------------读取价格名称--------------------------------------------
id=Request.QueryString("id")
page=Request.QueryString("page")
menu=Server.HTMLEncode(Trim(Request.QueryString("menu")))
if IsNumEric(id)=False Then Error 2,"参数非法传递！",""
ThSort=Conn.Execute("Select SortMan From Product_Sort where SortID = "&id)(0)
if instr(ThSort,Request.Cookies("User"))=0 Then Error 2,"您无权限管理此类别！",""
sql="Select FunctionInfo From Functions where FunctionID Between 13 and 15"
Set Rs = Conn.Execute(sql)
ProductI=Rs("FunctionInfo")
rs.movenext
ProductII=Rs("FunctionInfo")
rs.movenext
ProductIII=Rs("FunctionInfo")
rs.close
Set Rs = Nothing
if Request.ServerVariables("request_method")="POST" then
Send=trim(Request.Form("B1"))
Select case Send
case "单项修改"
editid=request.form("pid")
if editid="" then error 2,"请选择产品后再点击修改！",""
if instr(editid,",")>0 then error 2,"一次只能修改一个产品\n请返回重新选择！",""
response.redirect "AddProduct.asp?menu=edit&id="&editid&"&Sortid="&request.form("Sortid")&"&page="&Request.QueryString("page")
case "整页更新"
for each nums in request.form("editid")
if conn.execute("Select count(ProductID)from Product_Info where DelThis=False and ProductNum='"&trim(request.form("ProductNum"&nums))&"'")(0)>1 Then Error 2,"商品货号"&trim(request.form("ProductNum"&nums))&"不能重复！",""
ProductI=trim(request.form("ProductI"&nums))
ProductII=trim(request.form("ProductII"&nums))
ProductIII=trim(request.form("ProductIII"&nums))
if ProductI = "" Then ProductI = 0
if ProductII = "" Then ProductII = 0
if ProductIII = "" Then ProductIII = 0
Conn.Execute("Update Product_Info Set ProductNum='"&Server.HTMLEncode(trim(request.form("ProductNum"&nums)))&"',ProductCnName='"&Server.HTMLEncode(trim(request.form("ProductCnName"&nums)))&"',ProductEnName='"&Server.HTMLEncode(trim(request.form("ProductEnName"&nums)))&"',ProductI="&Server.HTMLEncode(ProductI)&",ProductII="&Server.HTMLEncode(ProductII)&",ProductIII="&Server.HTMLEncode(ProductIII)&",ProductSf='"&Server.HTMLEncode(trim(request.form("ProductSf"&nums)))&"',ProductPacking='"&Server.HTMLEncode(trim(request.form("ProductPacking"&nums)))&"',ProductArrange="&Server.HTMLEncode(trim(request.form("ProductArrange"&nums)))&" where ProductID="&nums)
next
case "排序递增"
Arrange=request.form("pid")
Arrange1=request.form("pid1"&Arrange)
i=Cint(request.form("ProductArrange"&Arrange))
if request.form("Sortid")="" then error 2,"搜索结果不可递增变量！",""
if Arrange="" then error 2,"请选择递增起点！",""
if instr(Arrange,",")>0 then error 2,"递增起点只能有一个\n请返回重新选择！",""
if isnumeric(i)=false then error 2,Arrange1&"序号非法输入！\请重新填写！",""
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select ProductArrange From Product_Info where ProductSort="&request.form("Sortid")&" and ProductConceal=false and DelThis=False order by ProductArrange"
rs.open sql,conn,1,3
Rs.Move Arrange1
do while not rs.eof
rs("ProductArrange")=i
i=i+1
rs.movenext
loop
rs.close
Set Rs = Nothing
case "隐 藏"
for each nums in request.form("pid")
conn.execute("update Product_Info set ProductConceal=true where ProductID="&nums)
next
Application(registered&"NewP")=""
case "取消隐藏"
for each nums in request.form("pid")
conn.execute("update Product_Info set ProductConceal=false where ProductID="&nums)
next
Application(registered&"NewP")=""
case "上新品架"
for each nums in request.form("pid")
conn.execute("update Product_Info set ProductNew=True where ProductID="&nums)
next
Application(registered&"NewP")=""
case "下新品架"
for each nums in request.form("pid")
conn.execute("update Product_Info set ProductNew=False where ProductID="&nums)
next
Application(registered&"NewP")=""
case "删 除"
for each nums in request.form("pid")
conn.execute("update Product_Info set DelThis=true where ProductID="&nums)
next
Application(registered&"NewP")=""
case "移动到"
for each nums in request.form("pid")
conn.execute("update Product_Info set ProductSort="&request.form("ProductSort")&" where ProductID="&nums)
next
end Select
end if
Call top
Call table()
SortName=Conn.execute("Select SortCnName from Product_Sort where SortID="&id)(0)
%>
<script>
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;
}
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
if(selObj.options[selObj.selectedIndex].value!=""){
eval(targ+".location='"+"?menu=ment&id="+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
}
</script>
<style type="text/css">
TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}
<!--
.unnamed1 {
border-top: 1px solid #a4b6d7;
border-right: 1px solid #a4b6d7;
border-bottom: 1px solid #a4b6d7;
border-left: 1px solid #a4b6d7;
background-color: #FFFFFF;
}
-->
</style>
<form method="POST" name="form">
<table borderColor="#a4b6d7" border="1" cellSpacing="0" cellPadding="0" width="100%" style="border-left: 0px none; border-top: 0px none; border-bottom: 1px none; border-collapse:collapse" height="49">
<tr>
<td height="23" align="center" background=images/title_sub.gif width="975" colspan="3">
<b>
</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23" align="left" width="224"><b> <img src="images/2.gif" width="60" height="9">
<%=SortName%></b> </td>
<td height="23" align="left" >
<p align="right">
<select name="menu1" onChange="MM_jumpMenu('parent.main',this,0)" ><option selected> 类别跳转</option><%TTmenu%></select>
</td>
</tr>
</table>
<table width="100%" cellspacing=0 cellpadding=4 borderColor="#a4b6d7" border="1" height="21" style="border-collapse: collapse" bgcolor="#DDECFF">
<tr>
<td height="1" align="center" width="5%">
<input type=checkbox name=chkall value=on onclick=CheckAll(this.form)></td>
<td height="1" align="center" width="6%">
<p align="center">货号</td>
<td height="1" align="center" width="17%">中文名称</td>
<td height="1" align="center" width="9%"><%=ProductI%></td>
<td height="1" align="center" width="8%"><%=ProductII%></td>
<td height="1" align="center" width="8%"><%=ProductIII%></td>
<td height="1" align="center" width="11%">产品规格</td>
<td height="1" align="center" width="12%">产品包装</td>
<td height="1" align="center" width="7%"> 排序</td>
<td height="1" align="center" width="17%">状态</td>
</tr>
</table>
<%
sql="Select ProductID,ProductNum,ProductCommend,ProductConceal,ProductNew,ProductArrange,ProductPacking,ProductCnName,ProductSf,ProductEnName,ProductImgI,ProductImgII,ProductI,ProductII,ProductIII From Product_Info where ProductSort="&id&" and DelThis=False order by ProductArrange"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1
rs.pagesize=20
if page = "" Then page = 1
if page<1 then page=1
if cint(page) > rs.pagecount then page=rs.pagecount
num=rs.recordcount
maxpage=rs.pagecount
i=1
if rs.eof then
writeln "<center><br>此类尚无产品！</center>"
else
showonepage rs,page,i
end if
rs.close
Set rs = Nothing
%>
<table width="100%" cellspacing=0 cellpadding=0 borderColor="#a4b6d7" border="1" height="14" style="border-collapse: collapse" >
<tr bgcolor="#FFFFFF" align="center">
<td height="1" valign="middle" colspan="2" >
<p align="left">
<input name="SortID" type="hidden" value="<%=id%>">
<input type="button" value="增加产品" name="add" onClick="JavaScript:location.href='AddProduct.asp?menu=sort&sortid=<%= id %>&sortname=<%= sortname %>'">
<input type="submit" value="单项修改" name="B1">
<input type="submit" value="整页更新" name="B1">
<input type="submit" value="排序递增" name="B1">
<input type="submit" value="上新品架" name="B1">
<input type="submit" value="下新品架" name="B1">
<input type="submit" value="隐 藏" name="B1">
<input type="submit" value="取消隐藏" name="B1">
<input type="submit" value="删 除" name="B1">
<input type="submit" value="移动到" name="B1">
<select size="1" name="ProductSort">
<option value="">产品所在类别</option>
<%Response.write "<option value="&id&" selected>"&SortName&"</option>"
Call TTmenu%>
</select>
</td>
</tr>
<tr >
<td >页码:此类共有<%=num%>个产品,共有<%=maxpage%>页, 当前在<%=page%>页 跳转到第 <input type="text" name="pagel" size="2" maxlength=3 value=<%=page%>> 页
<input name="go" type="button" value="GO!" Onclick=javascript:location.href='?menu=ment&id=<%=id%>&sortname=<%=sortname%>&page='+form.pagel.value;>
</td>
<td align=right>
<%
npage="menu=ment&id="&id&"&sortname="&sortname&"&"
if page <> 1 then
response.write "<a href=?"&npage&"page=1>第一页</a></font> "&_
"<a href=?"&npage&"page="&(page-1)&">上一页</a></font> "
end if
if page<>maxpage then
response.write "<a href=?"&npage&"page="&(page+1)&">下一页</a> "&_
"<a href=?"&npage&"page="&maxpage&">最后一页</a>"
end if
Set Rs = Nothing
%>
</td>
</tr>
</table>
</form>
<%
htmlend
Sub TTmenu
TMenu=Split(Request.Cookies("UserMaster"),",")
For i = 0 to Ubound(TMenu)-1
if Conn.Execute("Select count(SortID) From Product_Sort where SortID="&TMenu(i))(0) > 0 Then
TSort=Conn.Execute("Select SortCnName From Product_Sort where SortID="&TMenu(i))(0)
Response.write " <option value="&TMenu(i)&"> "&TSort&"</option>"
end if
Next
End Sub
sub showonepage(rs,page,i)
rs.absolutepage=page
For ipage=1 to rs.pagesize
rsToGbook rs,ipage,i
rs.MoveNext
if rs.EOF Then Exit For
i=i+1
Next
end sub
sub RsToGbook(rs,ipage,i)
if rs("ProductCommend") then zt=zt&"<font color=#ff0000>(推荐)</font>"
if Rs("ProductConceal") Then zt=zt&"<font color=#000000>[隐藏]</font>"
if Rs("ProductNew") Then zt=zt&"<font color=#009966>{上架}</font>"
%> <table width="100%" cellspacing=0 cellpadding=0 height="21" style="border-collapse: collapse" borderColor="#a4b6d7" border="1" >
<tr><td height="1" align="center" width="5%"><input name="editid" type="hidden" value=<%=rs("ProductID")%>><input type="checkbox" name="pid" value="<%=rs("ProductID")%>" class="unnamed1"><input name="pid1<%=rs("ProductID")%>" type="hidden" value=<%= i-21+page*20 %>></td>
<td height="1" align="center" width="6%"><p align="center"><INPUT TYPE=text NAME=ProductNum<%=rs("ProductID")%> value="<%=rs("ProductNum")%>" size=5 maxlength=20 class="unnamed1"></td>
<td height="1" align="center" width="17%"><INPUT TYPE=text NAME=ProductCnName<%=rs("ProductID")%> value="<%=rs("ProductCnName")%>" size=10 maxlength=20 class="unnamed1"></td>
<td height="1" align="center" width="9%"><INPUT TYPE=text NAME=ProductI<%=rs("ProductID")%> value="<%=rs("ProductI")%>" size=5 maxlength=10 class="unnamed1" onkeyup="if(isNaN(this.value)) this.value='<%=rs("ProductI")%>';"></td>
<td height="1" align="center" width="8%"><INPUT TYPE=text NAME=ProductII<%=rs("ProductID")%> value="<%=rs("ProductII")%>" size=5 maxlength=10 class="unnamed1" onkeyup="if(isNaN(this.value)) this.value='<%=rs("ProductII")%>';"></td>
<td height="1" align="center" width="8%"><INPUT TYPE=text NAME=ProductIII<%=rs("ProductID")%> value="<%=rs("ProductIII")%>" size=5 maxlength=10 class="unnamed1" onkeyup="if(isNaN(this.value)) this.value='<%=rs("ProductIII")%>';"></td>
<td height="1" align="center" width="11%"><INPUT TYPE=text NAME=ProductSf<%=rs("ProductID")%> value="<%=rs("ProductSf")%>" size=7 maxlength=15 class="unnamed1"></td>
<td height="1" align="center" width="12%"><INPUT TYPE=text NAME=ProductPacking<%=rs("ProductID")%> value="<%=rs("ProductPacking")%>" size=7 maxlength=15 class="unnamed1"></td>
<td height="1" align="center" width="7%"><INPUT TYPE="text" NAME=ProductArrange<%=rs("ProductID")%> value="<%=rs("ProductArrange")%>" size=4 maxlength=9 class="unnamed1" onkeyup="if(isNaN(this.value)) this.value='<%=rs("ProductArrange")%>';" ></td>
<td height="1" align="center" width="17%"><%=zt%></td></tr>
</table>
<%end sub%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?