开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
ProductList.asp
资源名称：52ccc55a371572d86a7d2c6992a2591b.rar　[点击查看]
上传用户：dbstep
上传日期：2022-08-06
资源大小：2803k
文件大小：15k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

ProductList.asp：源码内容
  1. <HTML xmlns="http://www.w3.org/1999/xhtml">
  2. <HEAD>
  3. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
  4. <TITLE>产品列表</TITLE>
  5. <link rel="stylesheet" href="Images/CssAdmin.css">
  6. <script language="javascript" src="../skweb/JS/Admin.js"></script>
  7. </HEAD>
  8. <!--#include file="../skweb/Const.asp" -->
  9. <!--#include file="../skweb/ConnSiteData.asp" -->
  10. <!--#include file="CheckAdmin.asp"-->
  11. <%
  12. if Instr(session("AdminPurview"),"|32,")=0 then 
  13.   response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  14.   response.end
  15. end if
  16. '========判断是否具有管理权限
  17. %>
  18. <BODY>
  19. <%
  20. dim Result,StartDate,EndDate,Keyword,SortID,SortPath
  21. Result=request.QueryString("Result")
  22. StartDate=request.QueryString("StartDate")
  23. EndDate=request.QueryString("EndDate")
  24. Keyword=request.QueryString("Keyword")
  25. SortID=request.QueryString("SortID")
  26. SortPath=request.QueryString("SortPath")
  27. function PlaceFlag()
  28.   if Result="Search" then
  29.     Response.Write "产品：列表&nbsp;->&nbsp;检索&nbsp;->&nbsp;添加时间[<font color='red'>"&StartDate&"至"&EndDate&"</font>]，关键字[<font color='red'>"&Keyword&"</font>]"
  30.   else
  31.     if SortPath<>"" then
  32.       Response.Write "产品：列表&nbsp;->&nbsp<a href='ProductList.asp'>全部</a>"
  33.   TextPath(SortID)
  34. else
  35.       Response.Write "产品：列表&nbsp;->&nbsp全部"
  36. end if
  37.   end if
  38. end function  
  39. %>
  41. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  42.   <tr>
  43.     <td height="29" nowrap background="Images/menutitle.gif"><table width="470" border="0" cellspacing="0" cellpadding="0">
  44.       <tr>
  45.         <td width="121"><strong><font color="#000000" size="2">产品管理</font></strong></td>
  46.         <td width="87"><a href="ProductEdit.asp?Result=Add"><img src="Images/x1.gif" width="52" height="17" border="0"></a></td>
  47.         <td width="87"><a href="ProductList.asp"><img src="Images/xlm.gif" width="52" height="17" border="0"></a></td>
  48.         <td width="87"><a href="ProductSort.asp"><img src="Images/xx.gif" width="52" height="17" border="0"></a></td>
  49.         <td width="88"><a href="OrderList.asp"><img src="Images/xdd.gif" width="52" height="17" border="0"></a></td>
  50.       </tr>
  51.     </table></td>
  52.   </tr>
  53.   <tr>
  54.     <td height="36" align="center" nowrap  bgcolor="#EBF2F9"><table width="100%" border="0" cellspacing="0">
  55.       <tr>
  56.         <form name="formSearch" method="post" action="Search.asp?Result=Products">
  57.           <td nowrap> 产品检索：从
  58.           <script language=javascript> 
  59.           var myDate=new dateSelector(); 
  60.           myDate.year--; 
  61.   myDate.date; 
  62.           myDate.inputName='start_date';  //注意这里设置输入框的name，同一页中日期输入框，不能出现重复的name。 
  63.           myDate.display(); 
  64.           </script>
  65.           &nbsp;到
  66.           <script language=javascript> 
  67.           myDate.year++; 
  68.           myDate.inputName='end_date';  //注意这里设置输入框的name，同一页中的日期输入框，不能出现重复的name。 
  69.           myDate.display(); 
  70.           </script>
  71.           &nbsp;&nbsp;关键字：<input name="Keyword" type="text" class="textfield" value="<%=Keyword%>" size="18">
  72.           <input name="submitSearch" type="submit" class="button" value="检索">
  73.           </td>
  74.         </form>
  75.         <td align="right" nowrap>查看：<a href="ProductList.asp" onClick='changeAdminFlag("产品列表")'>全部产品</a><font color="#0000FF">&nbsp;</font>|<font color="#0000FF">&nbsp;</font><a href="ProductSort.asp" onClick='changeAdminFlag("选择查看分类")'>其他类别产品</a></td>
  76.       </tr>
  77.     </table>      </td>    
  78.   </tr>
  79. </table>
  80. <table width="100%" border="0" cellspacing="1" cellpadding="0">
  81.   <tr>
  82.     <td height="30"><%PlaceFlag()%></td>
  83.   </tr>
  84. </table>
  86. <table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  87.   <form action="DelContent.asp?Result=Products" method="post" name="formDel" >
  88.   <tr>
  89.     <td width="30" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>ID</strong></font></td>
  90.     <td width="28" height="24" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>发布</strong></font></td>
  91.     <td width="90" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>产品编号</strong></font></td>
  92.     <td nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>产品名称</strong>（指向显示所属类别）</font></td>
  93.     <td width="30" nowrap background="Images/tn.gif"><font color="#FFFFFF"><strong>状态</strong></font></td>
  94.     <td width="80" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">产品价格</font></strong></td>
  95.     <td width="76" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">出品公司</font></strong></td>
  96.     <td width="120" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">发布时间</font></strong></td>
  97.     <td width="76" colspan="2" nowrap background="Images/tn.gif"><strong><font color="#FFFFFF">操作</font></strong>
  98.       <input onClick="CheckAll(this.form)" name="buttonAllSelect" type="button" class="button"  id="submitAllSearch" value="全" style="HEIGHT: 18px;WIDTH: 16px;">
  99.       <input onClick="CheckOthers(this.form)" name="buttonOtherSelect" type="button" class="button"  id="submitOtherSelect" value="反" style="HEIGHT: 18px;WIDTH: 16px;"> </td>
  100.   </tr>
  101.   <% ProductsList() %>
  102.   </form>
  103. </table>
  104. </BODY>
  105. </HTML>
  106. <%
  107. '-----------------------------------------------------------
  108. function ProductsList()
  109.   dim idCount'记录总数
  110.   dim pages'每页条数
  111.       pages=20
  112.   dim pagec'总页数
  113.   dim page'页码
  114.       page=clng(request("Page"))
  115.   dim pagenc'每页显示的分页页码数量=pagenc*2+1
  116.       pagenc=2
  117.   dim pagenmax'每页显示的分页的最大页码
  118.   dim pagenmin'每页显示的分页的最小页码
  119.   dim datafrom'数据表名
  120.       datafrom="sk_Products"
  121.   dim datawhere'数据条件
  122.       if Result="Search" then
  123.      datawhere="where ( ProductName like '%" & Keyword &_
  124.            "%') and AddTime >= #" & StartDate & " # and AddTime <= #" & EndDate & "#"
  125.   else
  126.     if SortPath<>"" then'是否查看的分类产品
  127.   datawhere="where Instr(SortPath,'"&SortPath&"')>0 "
  128.         else
  129.   datawhere=""
  130. end if
  131.   end if
  132.   dim sqlid'本页需要用到的id
  133.   dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
  134.       PATH_INFO = request.servervariables("PATH_INFO")
  135.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  136.       if QUERY_STRING = "" or Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  137.     Myself = PATH_INFO & "?"
  138.   else
  139.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  140.   end if
  141.   dim taxis'排序的语句 asc,desc
  142.       taxis="order by id desc"
  143.   dim i'用于循环的整数
  144.   dim rs,sql'sql语句
  145.   '获取记录总数
  146.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  147.   set rs=server.createobject("adodb.recordset")
  148.   rs.open sql,conn,0,1
  149.   idCount=rs("idCount")
  150.   '获取记录总数
  151.   if(idcount>0) then'如果记录总数=0,则不处理
  152.     if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
  153.   pagec=int(idcount/pages)'获取总页数
  154.     else
  155.       pagec=int(idcount/pages)+1'获取总页数
  156.     end if
  157. '获取本页需要用到的id============================================
  158.     '读取所有记录的id数值,因为只有id所以速度很快
  159.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  160.     set rs=server.createobject("adodb.recordset")
  161.     rs.open sql,conn,1,1
  162.     rs.pagesize = pages '每页显示记录数
  163.     if page < 1 then page = 1
  164.     if page > pagec then page = pagec
  165.     if pagec > 0 then rs.absolutepage = page  
  166.     for i=1 to rs.pagesize
  167.   if rs.eof then exit for  
  168.   if(i=1)then
  169.     sqlid=rs("id")
  170.   else
  171.     sqlid=sqlid &","&rs("id")
  172.   end if
  173.   rs.movenext
  174.     next
  175.   '获取本页需要用到的id结束============================================
  176.   end if
  177. '-----------------------------------------------------------
  178. '-----------------------------------------------------------
  179.   if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
  180.     '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
  181.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  182.     set rs=server.createobject("adodb.recordset")
  183.     rs.open sql,conn,0,1
  184.     while(not rs.eof)'填充数据到表格
  185.   Response.Write "<tr bgcolor='#EBF2F9' onMouseOver = ""this.style.backgroundColor = '#FFFFFF'"" onMouseOut = ""this.style.backgroundColor = ''"" style='cursor:hand'>" & vbCrLf
  186.       Response.Write "<td nowrap>"&rs("ID")&"</td>" & vbCrLf
  187.       if rs("ViewFlag") then
  188.         Response.Write "<td nowrap><font color='blue'>√</font></td>" & vbCrLf
  189.       else
  190.         Response.Write "<td nowrap><font color='red'>×</font></td>" & vbCrLf
  191.   end if
  192.       Response.Write "<td nowrap>"&rs("ProductNo")&"</td>" & vbCrLf
  193.   if StrLen((rs("ProductName")))>33 then
  194.         Response.Write "<td nowrap title='类别：&#13;"&SortText(rs("SortID"))&"&nbsp;|&nbsp;"&rs("SortPath")&"'>"&StrLeft(rs("ProductName"),30)&"</td>" & vbCrLf
  195.       else
  196.         Response.Write "<td nowrap title='类别：&#13;"&SortText(rs("SortID"))&"&nbsp;|&nbsp;"&rs("SortPath")&"'>"&rs("ProductName")&"</td>" & vbCrLf
  197.       end if 
  198.       Response.Write "<td nowrap><font color='blue'>" & vbCrLf
  199.       if rs("NewFlag") then Response.Write "<font color='red'>新</font>"
  200.   if rs("CommendFlag") then Response.Write "<font color='green'>荐</font>"
  201.   Response.Write "</td>"
  202.       Response.Write "<td nowrap>"&rs("Price")&"</td>" & vbCrLf
  203.   if StrLen((rs("Maker")))>13 then
  204.         Response.Write "<td nowrap title='出品公司：&#13;"&rs("Maker")&"'>"&StrLeft(rs("Maker"),10)&"</td>" & vbCrLf
  205.       else
  206.         Response.Write "<td nowrap title='出品公司：&#13;"&rs("Maker")&"'>"&rs("Maker")&"</td>" & vbCrLf
  207.       end if 
  210.       Response.Write "<td nowrap>"&rs("AddTime")&"</td>" & vbCrLf
  211.       Response.Write "<td width='40' nowrap><a href='ProductEdit.asp?Result=Modify&ID="&rs("ID")&"' onClick='changeAdminFlag(""修改产品信息"")'><font color='#330099'>修改</font></a></td>" & vbCrLf
  212.       Response.Write "<td width='22' nowrap><input name='selectID' type='checkbox' value='"&rs("ID")&"' style='HEIGHT: 13px;WIDTH: 13px;'></td>" & vbCrLf
  213.       Response.Write "</tr>" & vbCrLf
  214.   rs.movenext
  215.     wend
  216.     Response.Write "<tr>" & vbCrLf
  217.     Response.Write "<td colspan='8' nowrap  bgcolor='#EBF2F9'>&nbsp;</td>" & vbCrLf
  218.     Response.Write "<td colspan='2' nowrap  bgcolor='#EBF2F9'><input name='submitDelSelect' type='button' class='button'  id='submitDelSelect' value='删除所选' onClick='ConfirmDel(""您真的要删除这些会员吗？"");'></td>" & vbCrLf
  219.     Response.Write "</tr>" & vbCrLf
  220.   else
  221.     response.write "<tr><td height='50' align='center' colspan='12' nowrap  bgcolor='#EBF2F9'>暂无产品信息</td></tr>"
  222.   end if
  223. '-----------------------------------------------------------
  224. '-----------------------------------------------------------
  225.   Response.Write "<tr>" & vbCrLf
  226.   Response.Write "<td colspan='10' nowrap  bgcolor='#D7E4F7'>" & vbCrLf
  227.   Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
  228.   Response.Write "<tr>" & vbCrLf
  229.   Response.Write "<td>共计：<font color='#ff6600'>"&idcount&"</font>条记录&nbsp;页次：<font color='#ff6600'>"&page&"</font></strong>/"&pagec&"&nbsp;每页：<font color='#ff6600'>"&pages&"</font>条</td>" & vbCrLf
  230.   Response.Write "<td align='right'>" & vbCrLf
  231.   '设置分页页码开始===============================
  232.   pagenmin=page-pagenc '计算页码开始值
  233.   pagenmax=page+pagenc '计算页码结束值
  234.   if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1
  235.   if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>9</font></a>&nbsp;") '如果页码大于1则显示(第一页)
  236.   if(pagenmin>1) then response.write ("<a href='"& myself &"Page="& page-(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>7</font></a>&nbsp;") '如果页码开始值大于1则显示(更前)
  237.   if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数
  238.   for i = pagenmin to pagenmax'循环输出页码
  239. if(i=page) then
  240.   response.write ("&nbsp;<font color='#ff6600'>"& i &"</font>&nbsp;")
  241. else
  242.   response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
  243. end if
  244.   next
  245.   if(pagenmax<pagec) then response.write ("&nbsp;<a href='"& myself &"Page="& page+(pagenc*2+1) &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>8</font></a>&nbsp;") '如果页码结束值小于总页数则显示(更后)
  246.   if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>:</font></a>&nbsp;") '如果页码小于总页数则显示(最后页)
  247.   '设置分页页码结束===============================
  248.   Response.Write "跳到：第&nbsp;<input name='SkipPage' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/D/.test(this.value)){alert('只能在跳转目标页框内输入整数！');this.value='"&Page&"';}"" style='HEIGHT: 18px;WIDTH: 40px;'  type='text' class='textfield' value='"&Page&"'>&nbsp;页" & vbCrLf
  249.   Response.Write "<input style='HEIGHT: 18px;WIDTH: 20px;' name='submitSkip' type='button' class='button' onClick='GoPage("""&Myself&""")' value='GO'>" & vbCrLf
  250.   Response.Write "</td>" & vbCrLf
  251.   Response.Write "</tr>" & vbCrLf
  252.   Response.Write "</table>" & vbCrLf
  253.   rs.close
  254.   set rs=nothing
  255.   Response.Write "</td>" & vbCrLf  
  256.   Response.Write "</tr>" & vbCrLf
  257. '-----------------------------------------------------------
  258. '-----------------------------------------------------------
  259. end function 
  260. '生成节点文字路径--------------------------
  261. Function TextPath(ID)
  262.   Dim rs,sql
  263.   Set rs=server.CreateObject("adodb.recordset")
  264.   sql="Select * From sk_ProductSort where ID="&ID
  265.   rs.open sql,conn,1,1
  266.   TextPath="&nbsp;->&nbsp;<a href=ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&">"&rs("SortName")&"</a>"
  267.   if rs("ParentID")<>0 then TextPath rs("ParentID")
  268.   response.write(TextPath)
  269. End Function
  270. %>
  271. <%
  272. '生成所属类别--------------------------
  273. Function SortText(ID)
  274.   Dim rs,sql
  275.   Set rs=server.CreateObject("adodb.recordset")
  276.   sql="Select * From sk_ProductSort where ID="&ID
  277.   rs.open sql,conn,1,1
  278.   SortText=rs("SortName")
  279.   rs.close
  280.   set rs=nothing
  281. End Function
  282. %>