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

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

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

开发平台：

ASP/ASPX

product.cs：源码内容
  1. <%
  4. Function WebLocation(ID)
  5.   Dim rs,sql,LocationText
  6.   Set rs=server.CreateObject("adodb.recordset")
  7.   sql="Select * From sk_ProductSort where ViewFlag and ID="&ID
  8.   rs.open sql,conn,1,1
  9.   if rs.bof and rs.eof then
  10.     response.write "<img src='../img/Arrow_02.gif' align='absmiddle'>错误"
  11.     exit function
  12.   end if
  13.   LocationText="<img src='../img/Arrow_02.gif' align='absmiddle'><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"
  14.   if rs("ParentID")<>0 then WebLocation rs("ParentID")
  15.   response.write LocationText
  16. End Function
  18. function ChildSort()
  19.   dim ParentID
  20.   ParentID=request.QueryString("SortID")
  21.   if ParentID="" or (not isnumeric(ParentID)) then exit function
  22.   dim rs,sql
  23.   set rs = server.createobject("adodb.recordset")
  24.   sql="select * from sk_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID desc"
  25.   rs.open sql,conn,1,1
  26.   if rs.bof and rs.eof then
  27.     exit function
  28.   else
  29.     response.write "<tr><td width='30'></td><td height='22'></td><td class='ListTitle' align='center'>"
  30. while not rs.eof
  31. response.write "&nbsp;<font color='#FF0000'>|</font>&nbsp;<a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>&nbsp;<font color='#FF0000'>|</font>"
  32. rs.movenext
  33. wend
  34.     response.write "</td><td width='30'></td></tr>"    
  35.   end if
  36.   rs.close
  37.   set rs=nothing
  38. end function
  42. function ContentList()
  43.   dim SortPath
  44.       SortPath=request.QueryString("SortPath")
  45.   dim idCount'记录总数
  46.   dim pages'每页条数
  47.       if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then
  48.           pages=12
  49.         elseif request.cookies("Style")="List" then
  50.           pages=10
  51.         elseif request.cookies("Style")="Brief" then
  52.           pages=5
  53.         end if 
  54.   dim pagec'总页数
  55.   dim page'页码
  56.       page=clng(request("Page"))
  57.   dim pagenc'每页显示的分页页码数量=pagenc*2+1
  58.       pagenc=2
  59.   dim pagenmax'每页显示的分页的最大页码
  60.   dim pagenmin'每页显示的分页的最小页码
  61.   dim datafrom'数据表名
  62.       datafrom="sk_Products"
  63.   dim datawhere'数据条件
  64.       if SortPath<>"" then'是否查看的分类产品
  65.  datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "
  66.       else
  67.  datawhere="where ViewFlag "
  68.   end if
  69.   dim sqlid'本页需要用到的id
  70.   dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
  71.       PATH_INFO = request.servervariables("PATH_INFO")
  72.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  73.       if QUERY_STRING = "" then
  74.     Myself = PATH_INFO & "?"
  75.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  76.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  77.   else
  78.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  79.   end if
  80.   dim taxis'排序的语句 asc,desc
  81.       taxis="order by id desc "
  82.   dim i'用于循环的整数
  83.   dim rs,sql'sql语句
  84.   '获取记录总数
  85.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  86.   set rs=server.createobject("adodb.recordset")
  87.   rs.open sql,conn,0,1
  88.   idCount=rs("idCount")
  89.   '获取记录总数
  91.   if(idcount>0) then'如果记录总数=0,则不处理
  92.     if(idcount mod pages=0)then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
  93.   pagec=int(idcount/pages)'获取总页数
  94.     else
  95.       pagec=int(idcount/pages)+1'获取总页数
  96.     end if
  97. '获取本页需要用到的id============================================
  98.     '读取所有记录的id数值,因为只有id所以速度很快
  99.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  100.     set rs=server.createobject("adodb.recordset")
  101.     rs.open sql,conn,1,1
  102.     rs.pagesize = pages '每页显示记录数
  103.     if page < 1 then page = 1
  104.     if page > pagec then page = pagec
  105.     if pagec > 0 then rs.absolutepage = page  
  106.     for i=1 to rs.pagesize
  107.   if rs.eof then exit for  
  108.   if(i=1)then
  109.     sqlid=rs("id")
  110.   else
  111.     sqlid=sqlid &","&rs("id")
  112.   end if
  113.   rs.movenext
  114.     next
  115.   '获取本页需要用到的id结束============================================
  116.   end if
  117.   Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  118.   if(idcount>0 and sqlid<>"") then'如果记录总数=0,则不处理
  119.     '用in刷选本页所语言的数据,仅读取本页所需的数据,所以速度快
  120.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  121.     set rs=server.createobject("adodb.recordset")
  122.     rs.open sql,conn,0,1
  123. dim ProductName,SmallPicPath,Content
  124.     if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then'橱窗方式显示
  125.   dim R,C'显示行数和列数
  126.   for R=1 to 3
  127.     Response.Write "<tr>" & vbCrLf
  128.         for C=1 to 4 '填充数据到表格
  129.   if C=1 or C=4 then
  130.         Response.write"<td width='150' align='center'>"
  131.   elseif C=2 then
  132.         Response.write"<td width='150' align='center'>"
  133.   elseif C=3 then
  134.         Response.write"<td width='150' align='center'>"
  135.   end if
  136.       if StrLen(rs("ProductName"))<=18 then
  137.             ProductName=rs("ProductName")
  138.       else 
  139.         ProductName=StrLeft(rs("ProductName"),16)
  140.       end if
  141.       SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
  142.           response.write "<table border='0' cellpadding='0' cellspacing='0' >" &_
  143.                      "<tr><td align='center'  width='140' height='120' style='text-decoration: underline; " &_
  144.       "border: 1px solid #CCCCCC;'><object codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0   height=120 width=140 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>    <param name='movie' value='img/skimg.swf?image="&SmallPicPath&"&amp;>    <embed   src='img/skimg.swf?image="&SmallPicPath&"&amp; width='140' height='120'   pluginspage='http://www.macromedia.com/go/getflashplayer'  type='application/x-shockwave-flash'> <param name='wmode' value='transparent'> </embed>   </object>" &_
  145.      "</td></tr><tr><td height='36' align='center'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&".html'>"&ProductName&"</a></td></tr></table>"
  146.       response.write"</td>"
  147.       rs.movenext
  148.   if rs.eof then exit for
  149. next
  150.     Response.Write "</tr>" & vbCrLf
  151. if rs.eof then exit for
  152.   next
  153. elseif request.cookies("Style")="List" then'列表显示方式
  154.   for R=1 to 5
  155.     Response.Write "<tr>" & vbCrLf
  156.         for C=1 to 2 '填充数据到表格
  157.   if C=1 then
  158.         Response.write"<td width='50%' align='left'>"
  159.   else
  160.         Response.write"<td width='50%' align='right'>"
  161.   end if
  162.       if StrLen(rs("ProductName"))<=28 then
  163.             ProductName=rs("ProductName")
  164.       else 
  165.         ProductName=StrLeft(rs("ProductName"),26)
  166.       end if
  167.       SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
  168.           response.write "<table width='320' border='0' cellpadding='2' cellspacing='0' style='table-layout:fixed'>" &_
  169.                      "<tr><td align='center' width='148' height='120' rowspan='6' style='text-decoration: underline; " &_
  170.       "border: 1px solid #CCCCCC;'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
  171.       "<object codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0   height=120 width=140 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>    <param name='movie' value='img/skimg.swf?image="&SmallPicPath&"&amp;>    <embed   src='img/skimg.swf?image="&SmallPicPath&"&amp; width='140' height='120'   pluginspage='http://www.macromedia.com/go/getflashplayer'  type='application/x-shockwave-flash'> <param name='wmode' value='transparent'> </embed>   </object></td>" &_
  172.  "<td width='4' rowspan='6'></td>" &_
  173.      "<td style='width:194;height:24;' bgcolor='#EEEEEE' align='left'>&nbsp;<img src='../img/Arrow_04.gif' align='absmiddle'>&nbsp;<a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&".html'>"&ProductName&"</a></td></tr>" &_
  174.  "<tr><td height='4'></td></tr>" &_
  175.  "<tr><td style='width:194;height:18;' bgcolor='#FFFFFF' align='left'>&nbsp;编号："&rs("ProductNo")&"</td></tr>" &_
  176.  "<tr><td style='width:194;height:18;' bgcolor='#FFFFFF' align='left'>&nbsp;价格："&rs("Price")&"</td></tr>" &_
  177.  "<tr><td style='width:194;height:18;' bgcolor='#FFFFFF' align='left'>&nbsp;厂商："&rs("Maker")&"</td></tr>" &_
  178.  "<tr><td style='width:194;height:18;' bgcolor='#FFFFFF' align='left'>&nbsp;日期："&rs("AddTime")&"</td></tr>" &_
  179.  "<tr><td height='12' colspan='3'></td></tr></table>"
  180.       response.write"</td>"
  181.       rs.movenext
  182.   if rs.eof then exit for
  183. next
  184.     Response.Write "</tr>" & vbCrLf
  185. if rs.eof then exit for
  186.   next
  187. elseif request.cookies("Style")="Brief" then'简介显示方式
  188.       while not rs.eof '填充数据到表格
  189.       Response.write"<tr>"
  190.       Response.write"<td>"
  191.           ProductName=rs("ProductName")
  192.           Content=rs("Content")
  193.       SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
  194.           Response.write "<table width='100%' border='0' cellpadding='0' cellspacing='0' style='table-layout:fixed'>" &_
  195.                      "<tr><td align='center' rowspan='3' width='145' height='120' style='text-decoration: underline; " &_
  196.       "border: 1px solid #CCCCCC;'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&"'>" &_
  197.       "<object codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0   height=120 width=140 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>    <param name='movie' value='img/skimg.swf?image="&SmallPicPath&"&amp;>    <embed   src='img/skimg.swf?image="&SmallPicPath&"&amp; width='140' height='120'   pluginspage='http://www.macromedia.com/go/getflashplayer'  type='application/x-shockwave-flash'>  <param name='wmode' value='transparent'> </embed>   </object></td>" &_
  198.  "<td width='6' rowspan='3'></td>" &_
  199.      "<td height='24' bgcolor='#EEEEEE'>&nbsp;<img src='../img/Arrow_04.gif' align='absmiddle'>&nbsp;" &_
  200.  "<a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&".html'>"&ProductName&"</a></td>" &_
  201.  "<td width='56' bgcolor='#EEEEEE'><a href='ProductView.asp?ID="&rs("id")&"&SortID="&rs("SortID")&".html'><img src='../img/Button_view_01.gif' align='absmiddle' border='0'></a></td></tr>" &_
  202.  "<tr><td height='6' colspan='2'></td></tr>" &_
  203.  "<tr><td colspan='2' style='width:490;height:78;word-wrap:break-word;' bgcolor='#FFFFFF' valign='top'>"&Content&"</td></tr><tr><td height='20' colspan='4'></td></tr></table>"
  204.       Response.write "</td>"
  205.       Response.Write "</tr>"    
  206.     rs.movenext
  207.       wend
  208. end if 
  209.   else
  210.     response.write "<tr><td align='center'>暂无相关信息</td></tr></table>"
  211. exit function
  212.   end if
  213.   
  214.   Response.Write "<tr>" & vbCrLf
  215.   if request.cookies("Style")="Shopwindow" or request.cookies("Style")="" then
  216.     Response.Write "<td colspan='4' background='../img/Point_line_03.gif' height='8'></td></tr>" & vbCrLf
  217.     Response.Write "<tr><td colspan='4' align='right'>" & vbCrLf
  218.   elseif request.cookies("Style")="List" then
  219.     Response.Write "<td colspan='2' background='../img/Point_line_03.gif' height='12'></td></tr>" & vbCrLf
  220.     Response.Write "<tr><td colspan='2' align='right'>" & vbCrLf
  221.   elseif request.cookies("Style")="Brief" then
  222.     Response.Write "<td background='../img/Point_line_03.gif' height='12'></td></tr>" & vbCrLf
  223.     Response.Write "<tr><td align='right'>" & vbCrLf
  224.   end if
  225.   Response.Write "共计：<font color='#ff6600'>"&idcount&"</font>条记录&nbsp;页次：<font color='#ff6600'>"&page&"</font></strong>/"&pagec&"&nbsp;每页：<font color='#ff6600'>"&pages&"</font>条&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
  226.   pagenmin=page-pagenc '计算页码开始值
  227.   pagenmax=page+pagenc '计算页码结束值
  228.   if(pagenmin<1) then pagenmin=1 '如果页码开始值小于1则=1
  229.   if(page>1) then response.write ("<a href='"& myself &"Page=1'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>9</font></a>&nbsp;") '如果页码大于1则显示(第一页)
  230.   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则显示(更前)
  231.   if(pagenmax>pagec) then pagenmax=pagec '如果页码结束值大于总页数,则=总页数
  232.   for i = pagenmin to pagenmax'循环输出页码
  233. if(i=page) then
  234.   response.write ("&nbsp;<font color='#ff6600'>"& i &"</font>&nbsp;")
  235. else
  236.   response.write ("[<a href="& myself &"Page="& i &">"& i &"</a>]")
  237. end if
  238.   next
  239.   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;") '如果页码结束值小于总页数则显示(更后)
  240.   if(page<pagec) then response.write ("<a href='"& myself &"Page="& pagec &"'><font style='FONT-SIZE: 14px; FONT-FAMILY: Webdings'>:</font></a>") '如果页码小于总页数则显示(最后页)
  241.   Response.Write "</td>" & vbCrLf
  242.   Response.Write "</tr>" & vbCrLf
  243.   Response.Write "</table>" & vbCrLf
  244.   rs.close
  245.   set rs=nothing
  246. end function 
  247. %>
  250. <%
  251. if request.QueryString("ID")="" then
  252. SeoTitle="产品中心"
  253. elseif not IsNumeric(request.QueryString("ID")) then
  254. SeoTitle="参数错误"
  255. elseif conn.execute("select * from sk_Products Where ViewFlag and  ID="&request.QueryString("ID")).eof then
  256. SeoTitle="参数错误"
  257. else
  258. set rs = server.createobject("adodb.recordset")
  259. sql="select * from sk_Products where ViewFlag and ID="&request.QueryString("ID")
  260. rs.open sql,conn,1,1
  261. SeoTitle=rs("ProductName")
  262. rs.close
  263. set rs=nothing
  264. end if
  265. %>
  267. <%
  270. Function WebLocation(ID)
  271.   Dim rs,sql,LocationText
  272.   Set rs=server.CreateObject("adodb.recordset")
  273.   sql="Select * From sk_ProductSort where ViewFlag and ID="&ID
  274.   rs.open sql,conn,1,1
  275.   if rs.bof and rs.eof then
  276.     response.write "<img src='../img/Arrow_02.gif' align='absmiddle'>"&"错误"
  277.     exit function
  278.   end if
  279.   LocationText="<img src='../img/Arrow_02.gif' align='absmiddle'><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a>"
  280.   if rs("ParentID")<>0 then WebLocation rs("ParentID")
  281.   response.write LocationText
  282. End Function
  284. function WebContent()
  285.   dim ID,SortID
  286. SortID=request.QueryString("SortID")
  287.   ID=request.QueryString("ID")
  288.   if ID="" or (not isnumeric(ID)) then
  289.     response.write "<div align='center'>数据读取异常错误</div>"
  290.     exit function
  291.   end if
  292.   dim rs,sql
  293.   set rs = server.createobject("adodb.recordset")
  294.   sql="select * from sk_Products where ViewFlag and ID="&ID
  295.   rs.open sql,conn,1,3
  296.   response.write"<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  297.   if rs.bof and rs.eof then
  298.     response.write "<tr><td>暂无相关信息</td></tr>"
  299.   else
  300.     if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
  301.       dim BigPicPath
  302.   BigPicPath=HtmlSmallPic(rs("GroupID"),rs("BigPic"),rs("Exclusive"))
  303.       response.write "<tr><td width='424' height='20' valign='top'><font color='#FF3300'>名称："&rs("ProductName")&"</font></td><td align='center' rowspan='5' width='180' height='180' bgcolor='#FFFFFF'> <object codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0   height=180 width=180 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>    <param name='movie' value='img/skimg.swf?image="&BigPicPath&"&amp;>  <embed   src='img/skimg.swf?image="&BigPicPath&"&amp; width='180' height='180'   pluginspage='http://www.macromedia.com/go/getflashplayer'  type='application/x-shockwave-flash'> <param name='wmode' value='transparent'> </embed>   </object>       </td></tr>"
  304.   response.write "<tr><td valign='top'>编号："&rs("ProductNo")&"</td></tr>"
  305.   response.write "<tr><td valign='top'>价格："&rs("Price")&"</td></tr>"    
  306.   response.write "<tr><td valign='top'>时间："&rs("AddTime")&"</td></tr>"    
  307.   response.write "<tr><td valign='top'>购买：<a href='user/ProductBuy.asp?ProductNo="&rs("ProductNo")&"&ProductName="&server.urlencode(rs("ProductName"))&"' rel='facebox'><img src='../img/Button_buy_01.gif' border='0' align='absmiddle'></a></td></tr>"    
  308.   response.write "<tr><td colspan='2' height='6'></td></tr>"
  309.   response.write "<tr><td height='22' bgcolor='#EEEEEE'><img src='../img/Pro_information_title.gif'></td>"
  310.   response.write "<td bgcolor='#EEEEEE' align='center'><a  id='example2-1' href='"&BigPicPath&"' target='_blank'><img src='../img/Pro_zoom_01.gif' border='0'></a></td></tr>"
  311.   response.write "<tr><td colspan='2' height='12'></td></tr>"
  312.   response.write "<tr><td colspan='2' width='604'>"&rs("Content")&"</td></tr>"
  313. else
  314.       response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'></td></tr>"
  315.       response.write "<tr><td width='424'>名称：<font style='font-weight: bold;color: #1874CD'>"&rs("ProductName")&"</font></td><td width='180'>时间："&rs("AddTime")&"</td></tr>"
  316.     response.write "<tr><td colspan='2'><hr width='100%' size='1' noshade='noshade' color='#FF0000'><div align='center'><img src='../img/NoRight.jpg'></div></td></tr>"
  317. end if
  318.    rs("ClickNumber")=rs("ClickNumber")+1
  319. rs.update
  320. rs.close
  321.     response.write "<tr><td class='ListTitle' colspan='2'></td></tr>"
  322.     response.write "<tr><td colspan='2'>"
  323. Dim IDmax,IDmin,rs1
  324. '获取上一个,取ID比当前ID大的第一个同类产品,因为产品展示里排序是按ID逆序排列的,感观上的上一个其实是ID要比当前大的
  325. rs1=server.CreateObject("adodb.recordset")   
  326. sql="select top 1 * from sk_Products where ViewFlag and SortID="&SortID&" and ID>"&ID&" order by ID"
  327. set rs1=conn.execute(sql)   
  328. if rs1.eof then   
  329.    Response.Write "上一个：没有上一个产品了&nbsp;&nbsp;&nbsp;"
  330. else
  331.    IDmin=rs1("ID") 
  332.    Response.Write "上一个：<a href='?id="&IDmin&"&SortID="&rs1("SortID")&"'><font color='#FF0000'>"&rs1("ProductName")&"</font></a>&nbsp;&nbsp;&nbsp;"
  333. end if
  334. set rs1=nothing
  335. '获取下一个,取ID比当前ID小的第一个同类产品,因为产品展示里排序是按ID逆序排列的,感观上的下一个其实是ID要比当前小的
  336. set rs = server.createobject("adodb.recordset")
  337. sql="select top 1 * from sk_Products where ViewFlag and SortID="&SortID&" and ID<"&ID&" order by ID desc"
  338. set rs1=conn.execute(sql)   
  339. if rs1.eof then
  340.    Response.Write "下一个：没有下一个产品了"
  341. else
  342.    IDmax=rs1("ID") 
  343.    Response.Write "下一个：<a href='?id="&IDmax&"&SortID="&rs1("SortID")&"'><font color='#FF0000'>"&rs1("ProductName")&"</font></a>"
  344. end if
  345. set rs1=nothing
  346. response.write "</td></tr>"
  347. response.write "</td></tr><tr><td colspan='2' align='right'> <a onClick='history.go(0)'>【刷新页面】</a><a style='cursor:hand'  onclick='window.external.AddFavorite(location.href,document.title);' >【加入收藏】</a><A href='javascript:window.print();'>【打印此文】</A> <a onClick='window.self.close()'>【关闭窗口】</a></td></tr>"
  348.    
  349.   end if
  350.   response.write"</table>"
  351.   rs.close
  352.   set rs=nothing
  353. end function
  354. %>
  358. <%
  359. function WebMenu(DataFrom,ID)
  360.   Dim rs,sql
  361.   Set rs=server.CreateObject("adodb.recordset")
  362.   sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
  363.   rs.open sql,conn,1,1
  364.   response.write("<table width='150' border='0' cellspacing='0' cellpadding='0'>")
  365.   if id=0 and rs.bof and rs.eof then
  366.     response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  367.   else
  368.     while not rs.eof
  369.       response.write "<tr class='WebMenu'><td width='24'><img src='../img/Arrow_03.gif' width='13' height='13'></td>"
  370.       response.write "<td><a href='ProductList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"
  371.       rs.movenext
  372. wend
  373.   end if
  374.   response.write("</table>")
  375.   rs.close
  376.   set rs=nothing
  377. end function
  379. sub MemInfo()
  380.   dim rs,sql
  381.   set rs = server.createobject("adodb.recordset")
  382.   sql="select * from sk_Members where MemName='"&session("MemName")&"'"
  383.   rs.open sql,conn,1,1
  384.   if rs.bof and rs.eof then
  385.     response.write "暂无相关信息"
  386.   else
  387.     MemID=rs("ID")
  388. if not rs("RealName")="" then
  389.   mRealName=rs("RealName")
  390. else 
  391.   mRealName=rs("MemName")
  392. end if
  393. mSex=rs("Sex")
  394. mCompany=rs("Company")
  395. mAddress=rs("Address")
  396. mZipCode=rs("ZipCode")
  397. mTelephone=rs("Telephone")
  398. mFax=rs("Fax")
  399. mMobile=rs("Mobile")
  400. mEmail=rs("Email")
  401.   end if
  402.   rs.close
  403.   set rs=nothing
  404. end sub
  405. %>