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

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

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

开发平台：

HTML/CSS

ProductList.asp：源码内容
  1. <%@ LANGUAGE = VBScript.Encode %>
  2. <HTML xmlns="http://www.w3.org/1999/xhtml">
  3. <HEAD>
  4. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
  5. <TITLE>导航栏目列表</TITLE>
  6. <link rel="stylesheet" href="Images/Admin.css">
  7. <script language="javascript" src="../Script/Admin.js"></script>
  8. </HEAD>
  9. <!--#include file="../Include/Const.asp" -->
  10. <!--#include file="../Include/ConnSiteData.asp" -->
  11. <!--#include file="CheckAdmin.asp"-->
  12. <BODY>
  13. <%
  14. if Instr(session("AdminPurview"),"|12,")=0 then
  15.   response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  16.   response.end
  17. end if
  18. %>
  19. <%
  20. dim Result,Keyword,SortID,SortPath
  21. Result=request.QueryString("Result")
  22. Keyword=request.QueryString("Keyword")
  23. SortID=request.QueryString("SortID")
  24. SortPath=request.QueryString("SortPath")
  25. function PlaceFlag()
  26.   if Result="Search" then
  27. If Keyword<>"" Then
  28. Response.Write "产品：列表 -> 检索 -> 关键字：<font color='red'>"&Keyword&"</font>"
  29. Else
  30. Response.Write "产品：列表 -> 检索 -> 关键字为空(显示全部产品)"
  31. End If
  32.   else
  33.     if SortPath<>"" then
  34.       Response.Write "产品：列表 -> <a href='ProductList.asp'>全部</a>"
  35.   TextPath(SortID)
  36. else
  37.       Response.Write "产品：列表 -> 全部"
  38. end if
  39.   end if
  40. end function
  41. %>
  42. <br>
  43. <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  44.   <tr>
  45.     <th>产品检索及分类查看：添加，修改，删除产品信息</th>
  46.   </tr>
  47.   <tr>
  48.     <td height="24" align="center" nowrap="nowrap"  class="forumrow"><a href="ProductEdit.asp?Result=Add" onclick='changeAdminFlag(&quot;添加产品信息&quot;)'>添加产品信息</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="ProductList.asp" onclick='changeAdminFlag(&quot;产品列表&quot;)'>查看所有产品信息</a>&nbsp;|&nbsp;</font><a href="ProductSort.asp?Action=Add&amp;ParentID=0" onclick='changeAdminFlag(&quot;产品列表&quot;)'>添加产品类别</a>&nbsp;|&nbsp;</font><a href="OrderList.asp" onclick='changeAdminFlag(&quot;产品列表&quot;)'>查看订单信息</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="Admin_htmlsort.asp" onclick='changeAdminFlag(&quot;生成其他信息分类页面&quot;)'>生成产品分类页面</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="Admin_htmlpro.asp" onclick='changeAdminFlag(&quot;生成其他信息详细页面&quot;)'>生成产品详细页面</a></td>
  49.   </tr>
  50. </table>
  51. <br>
  52. <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  53. <form name="formSearch" method="post" action="Search.asp?Result=Products">
  54.   <tr>
  55.     <th height="22">【产品检索及分类查看】</th>
  56.   </tr>
  57.   <tr>
  58.     <td class="forumRow">关键字：<input name="Keyword" type="text" value="<%=Keyword%>" size="20"> <input name="submitSearch" type="submit" value="搜索产品"></td>
  59.   </tr>
  60.   <tr>
  61.     <td class="forumRow"><%PlaceFlag()%></td>
  62.   </tr>
  63.   </form>
  64. </table>
  65. <br>
  66. <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  67. <form action="DelContent.asp?Result=Products" method="post" name="formDel">
  68.   <tr>
  69.     <td class="title" width="20">ID</td>
  70. <td width="20" align="center" class="title">中</td>
  71. <td width="20" align="center" class="title">英</td>
  72. <td class="title">产品编号</td>
  73. <td class="title">产品标题</td>
  74. <td width="40" align="center" class="title">状态</td>
  75. <td width="80" align="center" class="title">查看组别</td>
  76. <td width="60" align="center" class="title">市场价</td>
  77. <td width="60" align="center" class="title">批发价</td>
  78. <td width="40" align="center" class="title">型号</td>
  79. <td width="40" align="center" class="title">库存</td>
  80. <td width="40" align="center" class="title">操作</td>
  81. <td width="80" align="center" class="title"> <input onClick="CheckAll(this.form)" name="buttonAllSelect" type="button" id="submitAllSearch" value="全选"> <input onClick="CheckOthers(this.form)" name="buttonOtherSelect" type="button" id="submitOtherSelect" value="反选"></td>
  82.   </tr>
  83.   <% ProductsList() %>
  84.   </form>
  85. </table>
  86. </BODY>
  87. </HTML>
  89. <%
  91. function ProductsList()
  92.   dim idCount
  93.   dim pages
  94.       pages=20
  95.   dim pagec
  96.   dim page
  97.       page=clng(request("Page"))
  98.   dim pagenc
  99.       pagenc=2
  100.   dim pagenmax
  101.   dim pagenmin
  102.   dim datafrom
  103.       datafrom="Wygkcnflash_Products"
  104.   dim datawhere
  105.       if Result="Search" then
  106.      datawhere="where ProductNameCH like '%" & Keyword &_
  107.            "%' "
  108.   else
  109.     if SortPath<>"" then
  110.   datawhere="where Instr(SortPath,'"&SortPath&"')>0 "
  111.         else
  112.   datawhere=""
  113. end if
  114.   end if
  115.   dim sqlid
  116.   dim Myself,PATH_INFO,QUERY_STRING
  117.       PATH_INFO = request.servervariables("PATH_INFO")
  118.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  119.       if QUERY_STRING = "" or Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  120.     Myself = PATH_INFO & "?"
  121.   else
  122.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  123.   end if
  124.   dim taxis
  125.       taxis="order by id desc"
  126.   dim i
  127.   dim rs,sql
  128.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  129.   set rs=server.createobject("adodb.recordset")
  130.   rs.open sql,conn,0,1
  131.   idCount=rs("idCount")
  132.   if(idcount>0) then
  133.     if(idcount mod pages=0)then
  134.   pagec=int(idcount/pages)
  135.     else
  136.       pagec=int(idcount/pages)+1
  137.     end if
  138.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  139.     set rs=server.createobject("adodb.recordset")
  140.     rs.open sql,conn,1,1
  141.     rs.pagesize = pages
  142.     if page < 1 then page = 1
  143.     if page > pagec then page = pagec
  144.     if pagec > 0 then rs.absolutepage = page  
  145.     for i=1 to rs.pagesize
  146.   if rs.eof then exit for  
  147.   if(i=1)then
  148.     sqlid=rs("id")
  149.   else
  150.     sqlid=sqlid &","&rs("id")
  151.   end if
  152.   rs.movenext
  153.     next
  154.   end if
  155.   if(idcount>0 and sqlid<>"") then
  156.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  157.     set rs=server.createobject("adodb.recordset")
  158.     rs.open sql,conn,0,1
  159.     while(not rs.eof)
  160.   Response.Write "<tr>" & vbCrLf
  161.       Response.Write "<td nowrap class=""forumRow"">"&rs("ID")&"</td>" & vbCrLf
  162.       if rs("ViewFlagCH") then
  163.         Response.Write "<td nowrap align='center' class=""forumRow""><a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=downCH""><font color='green'>√</font></a></td>" & vbCrLf
  164.       else
  165.         Response.Write "<td nowrap align='center' class=""forumRow""><a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=upCH""><font color='red'>×</font></a></td>" & vbCrLf
  166.   end If
  167.       if rs("ViewFlagEN") then
  168.         Response.Write "<td nowrap align='center' class=""forumRow""><a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=downEN""><font color='green'>√</font></a></td>" & vbCrLf
  169.       else
  170.         Response.Write "<td nowrap align='center' class=""forumRow""><a href=""Conversion.asp?id="&rs("ID")&"&LX="&datafrom&"&Operation=upEN""><font color='red'>×</font></a></td>" & vbCrLf
  171.   end If
  172.   Response.Write "<td nowrap class=""forumRow""><input type=""text"" name=""ProductNo"" size=""12"" value="""&rs("ProductNo")&"""></td>" & vbCrLf
  173.   Response.Write "<td nowrap title='"&rs("ProductNameCH")&"' class=""forumRow""><input type=""text"" name=""ProductNameCH"" size=""35"" value="""&rs("ProductNameCH")&"""></td>" & vbCrLf
  174.       Response.Write "<td nowrap align='center' class=""forumRow"">" & vbCrLf
  175.       if rs("NewFlag") then Response.Write "<font color='red'>新品</font> "
  176.       if rs("CommendFlag") then Response.Write "<font color='green'>推荐</font>"
  177.   if rs("NewFlag") = false And rs("CommendFlag") = false then Response.Write "普通"
  178.       Response.Write "</td>"
  179.       if rs("Exclusive")=">=" then
  180.         Response.Write "<td nowrap align=""center"" class=""forumRow"">"&ViewGroupName(rs("GroupID"))&" <font color='green'>隶</font></td>" & vbCrLf
  181.       else
  182.         Response.Write "<td nowrap align=""center"" class=""forumRow"">"&ViewGroupName(rs("GroupID"))&" <font color='red'>专</font></td>" & vbCrLf
  183.   end if
  184.   Response.Write "<td nowrap align='center' class=""forumRow""><input type=""text"" name=""N_Price"" size=""5"" value="""&rs("N_Price")&""" onkeypress=""if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false""></td>" & vbCrLf
  185.       Response.Write "<td nowrap align='center' class=""forumRow""><input type=""text"" name=""P_Price"" size=""5"" value="""&rs("P_Price")&""" onkeypress=""if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false""></td>" & vbCrLf
  186.   Response.Write "<td nowrap class=""forumRow""><input type=""text"" name=""ProductModel"" size=""5"" value="""&rs("ProductModel")&"""></td>" & vbCrLf
  187.   Response.Write "<td nowrap class=""forumRow""><input type=""text"" name=""Stock"" size=""5"" value="""&rs("Stock")&""" onkeypress=""if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false""></td>" & vbCrLf
  188.       Response.Write "<td align=""center""nowrap class=""forumRow""><a href='ProductEdit.asp?Result=Modify&ID="&rs("ID")&"'>修改</a><input name=""pro_id"" type=""hidden"" value="""&rs("ID")&"""></td></td>" & vbCrLf
  189.     Response.Write "<td nowrap align='center' class=""forumRow""><input name='selectID' type='checkbox' value='"&rs("ID")&"'></td>" & vbCrLf
  190.       Response.Write "</tr>" & vbCrLf
  191.   rs.movenext
  192.     wend
  193.     Response.Write "<tr>" & vbCrLf
  194.     Response.Write "<td colspan='13' nowrap align=""right"" class=""forumRow""><input type=""submit"" name=""batch"" value=""中文批量显示"" onClick=""return test();""> <input type=""submit"" name=""batch"" value=""英文批量显示"" onClick=""return test();""> <input type=""submit"" name=""batch"" value=""中文批量不显示"" onClick=""return test();""> <input type=""submit"" name=""batch"" value=""英文批量不显示"" onClick=""return test();""> <input name='batch' type='submit' value='删除所选' onClick=""return test();""></td>" & vbCrLf
  195.     Response.Write "</tr>" & vbCrLf
  196.   else
  197.     response.write "<tr><td nowrap align='center' colspan='13' class=""forumRow"">暂无产品信息</td></tr>"
  198.   end if
  199.   Response.Write "<tr>" & vbCrLf
  200.   Response.Write "<td colspan='13' nowrap class=""forumRow"">" & vbCrLf
  201.   Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
  202.   Response.Write "<tr>" & vbCrLf
  203.   Response.Write "<td class=""forumRow"">共计：<font color='red'>"&idcount&"</font>条记录 页次：<font color='red'>"&page&"</font></strong>/"&pagec&" 每页：<font color='red'>"&pages&"</font>条</td>" & vbCrLf
  204.   Response.Write "<td align='right'>" & vbCrLf
  205.   pagenmin=page-pagenc
  206.   pagenmax=page+pagenc
  207.   if(pagenmin<1) then pagenmin=1
  208.   if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='font-size: 14px; font-family: Webdings'>9</font></a> ")
  209.   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> ")
  210.   if(pagenmax>pagec) then pagenmax=pagec
  211.   for i = pagenmin to pagenmax
  212. if(i=page) then
  213.   response.write (" <font color='red'>"& i &"</font> ")
  214. else
  215.   response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
  216. end if
  217.   next
  218.   if(pagenmax<pagec) then response.write (" <a href='"& myself &"Page="& page+(pagenc*2+1) &"'><font style='font-size: 14px; font-family: Webdings'>8</font></a> ")
  219.   if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='font-size: 14px; font-family: Webdings'>:</font></a> ")
  220.   Response.Write "第<input name='SkipPage' onKeyDown='if(event.keyCode==13)event.returnValue=false' onchange=""if(/D/.test(this.value)){alert('请输入需要跳转到的页数并且必须为整数！');this.value='"&Page&"';}"" style='width: 28px;' type='text' value='"&Page&"'>页" & vbCrLf
  221.   Response.Write "<input name='submitSkip' type='button' onClick='GoPage("""&Myself&""")' value='转到'>" & vbCrLf
  222.   Response.Write "</td>" & vbCrLf
  223.   Response.Write "</tr>" & vbCrLf
  224.   Response.Write "</table>" & vbCrLf
  225.   rs.close
  226.   set rs=nothing
  227.   Response.Write "</td>" & vbCrLf
  228.   Response.Write "</tr>" & vbCrLf
  229. end Function
  231. Function TextPath(ID)
  232.   Dim rs,sql
  233.   Set rs=server.CreateObject("adodb.recordset")
  234.   sql="Select * From Wygkcnflash_ProductSort where ID="&ID
  235.   rs.open sql,conn,1,1
  236.   TextPath=" -> <a href=ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&">"&rs("SortNameCH")&"</a>"
  237.   if rs("ParentID")<>0 then TextPath rs("ParentID")
  238.   response.write(TextPath)
  239. End Function
  241. Function SortText(ID)
  242.   Dim rs,sql
  243.   Set rs=server.CreateObject("adodb.recordset")
  244.   sql="Select * From Wygkcnflash_ProductSort where ID="&ID
  245.   rs.open sql,conn,1,1
  246.   SortText=rs("SortNameCH")
  247.   rs.close
  248.   set rs=nothing
  249. End Function
  251. Function ViewGroupName(GruopID)
  252.   dim rs,sql
  253.   set rs = server.createobject("adodb.recordset")
  254.   sql="select GroupID,GroupNameCH from Wygkcnflash_MemGroup where GroupID='"&GruopID&"'"
  255.   rs.open sql,conn,1,1
  256.   if rs.bof and rs.eof then
  257.     ViewGroupNameSi="未设组别"
  258.   else
  259.     ViewGroupName=rs("GroupNameCH")
  260.   end if
  261.   rs.close
  262.   set rs=nothing
  263. end Function
  265. %>