home *** CD-ROM | disk | FTP | other *** search
/ 221.214.14.186 / 221.214.14.186.tar / 221.214.14.186 / wh / qim / Ft_lib.asp < prev    next >
Text File  |  2006-06-01  |  17KB  |  372 lines
  1. <%
  2. '==================================
  3. '=╬─ ╝■ ├√ú║Ft_lib.asp
  4. '=╩╩╙├░µ▒╛ú║FeitecCMS AC V1.3 Free
  5. '=╣ª    ─▄ú║═°╒╛╟░╠¿─ú░σ╧╘╩╛╣½╙├║»╩²
  6. '=╫≈    ╒▀ú║╙Ω│╟[From to FeitecStudio]
  7. '=╚╒    ╞┌ú║2006-3-22 20:05
  8. '=░µ    ╚¿ú║http://www.feitec.com/
  9. '=╝╝╩⌡╠╓┬█ú║6602510íó14040543ú¿╨┬╩╓╚║ú⌐
  10. '==================================
  11. %>
  12. <!--#include file="Ft_function.asp"-->
  13. <%
  14. '==================================
  15. '=╣ª    ─▄ú║╚í│÷╡▒╟░─ú░σ
  16. '==================================
  17. dim webstyle,d_diary,mb_main,mb_index,mb_news,mb_art,mb_soft,mb_user,mb_pic,mb_link,mb_gb,mb_search,mb_other,m_css,m_top,m_foot,m_leftpub1,m_leftpub2,StrTemp,Ft_mbstr
  18. webstyle=split(checksql("═°╒╛╜τ├µ╖τ╕±",web_style,1,20),"@@@")
  19. dim skinid
  20. if trim(request.QueryString("Skin"))<>"" then
  21.     skinid=checksql("╖τ╕±ID",trim(request.QueryString("Skin")),0,2)
  22. else
  23.     skinid=""
  24. end if
  25. if skinid = "" then
  26.     response.Cookies(webname)("Skin") = request.Cookies(webname)("Skin")
  27. elseif skinid = 0 then
  28.     response.Cookies(webname)("Skin") = empty
  29. else
  30.     response.Cookies(webname)("Skin") = skinid
  31. end if
  32. if request.Cookies(webname)("Skin") = empty then
  33.     Skin = checksql("╖τ╕±ID",webstyle(1),0,2)
  34. else
  35.     Skin = checksql("╖τ╕±ID",request.Cookies(webname)("Skin"),0,2)
  36. end if
  37. sql="select * from Ft_mb_style where mb_id="& Skin
  38. set rs=Server.CreateObject("adodb.recordset")
  39. rs.open sql,conn,1,1
  40. if rs.eof and rs.bof then
  41.     response.redirect "index.asp?skin=0"
  42. else
  43. mb_name=rs("mb_name")
  44. mb_main=replace(replace(rs("mb_main"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  45. mb_index=replace(replace(rs("mb_index"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  46. mb_news=replace(replace(rs("mb_news"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  47. mb_art=replace(replace(rs("mb_art"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  48. mb_soft=replace(replace(rs("mb_soft"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  49. mb_user=replace(replace(rs("mb_user"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  50. mb_pic=replace(replace(rs("mb_pic"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  51. mb_link=replace(replace(rs("mb_link"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  52. mb_gb=replace(replace(rs("mb_gb"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  53. mb_search=replace(replace(rs("mb_search"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  54. mb_other=replace(replace(rs("mb_other"),"<iframe>","<iframe>"),"</iframe>","</iframe>")
  55. rs.close:set rs=nothing
  56. end if
  57. StrTemp=split(mb_main,"|||@@@|||")
  58. m_css=StrTemp(0)
  59. m_top=StrTemp(1)
  60. m_foot=StrTemp(2)
  61. m_leftpub1=StrTemp(4) '╗ß╘▒╥╤╡╟┬╝
  62. m_leftpub2=StrTemp(5) '╗ß╘▒╬┤╡╟┬╝
  63. signimgpath=StrTemp(6) '╨í═╝▒Ω╡╪╓╖
  64. '==================================
  65. '=╣² │╠ ├√ú║head
  66. '=╣ª    ─▄ú║╥│├µ═╖▓┐╨┼╧ó╧╘╩╛
  67. '==================================
  68. sub head()
  69. ggad="<script type='text/javascript'>"&VbCrLf
  70. ggad=ggad+"<!--"&VbCrLf
  71. ggad=ggad+"google_ad_client = 'pub-2096375992959792';"&VbCrLf
  72. ggad=ggad+"google_ad_width = '468';"&VbCrLf
  73. ggad=ggad+"google_ad_height = '60';"&VbCrLf
  74. ggad=ggad+"google_ad_format = '468x60_as';"&VbCrLf
  75. ggad=ggad+"google_ad_type = 'text_image';"&VbCrLf
  76. ggad=ggad+"google_ad_channel ='';"&VbCrLf
  77. ggad=ggad+"google_color_border = 'FFFFFF';"&VbCrLf
  78. ggad=ggad+"google_color_bg = 'FFFFFF';"&VbCrLf
  79. ggad=ggad+"google_color_link = '000000';"&VbCrLf
  80. ggad=ggad+"google_color_url = '000000';"&VbCrLf
  81. ggad=ggad+"google_color_text = '000000';"&VbCrLf
  82.  
  83. randomize
  84. s=int(rnd()*4+1)
  85. select case s
  86. case 1
  87.     bannertop=bannertop1
  88. case 2
  89.     bannertop=bannertop2
  90. case 3
  91.     bannertop=bannertop3
  92. case 4
  93.     bannertop=ggad
  94. case else
  95.     bannertop=ggad
  96. end select
  97. sql="select top "&diaryperpage&" d_date,d_title,d_id,d_poster from Ft_diary order by d_id desc"
  98. set rs=server.createobject("adodb.recordset")
  99. rs.open sql,conn,1,1
  100. if not rs.eof then
  101.     rs.movefirst
  102.     dim kaw
  103.     kaw = 0
  104.     do while not rs.eof
  105.     dim d_id,d_title,d_poster,d_date
  106.     d_id=rs("d_id")
  107.     d_title=rs("d_title")
  108.     d_poster=rs("d_poster")
  109.     d_date=rs("d_date")
  110.     d_diary=d_diary+"marqueeContent[" & kaw & "] = '<a href=showdiary.asp?id=" & d_id & " target=""_blank"">"&d_title&"</a> <span class=""disable_font"">["&d_poster&" "&d_date&"]</span><br>';"
  111.     kaw = kaw + 1
  112.     rs.movenext
  113.     loop
  114.     m_top=replace(m_top,"$diary$",d_diary)
  115. elseif rs.eof and rs.bof then
  116.     m_top=replace(m_top,"$diary$","marqueeContent[0]= '╒²╘┌╕ⁿ╨┬╓«╓╨í¡í¡'")
  117. end if
  118. rs.close:set rs=nothing
  119. top=split(m_top,"{$menu}")
  120. m_top2=replace(top(0),"$css$",m_css)
  121. m_top2=replace(m_top2,"$webname$",webname)
  122. m_top2=replace(m_top2,"$webkeyword$",webkeyword)
  123. m_top2=replace(m_top2,"$webboss$",webboss)
  124. m_top2=replace(m_top2,"$weburl$",weburl)
  125. m_top2=replace(m_top2,"$webemail$",webemail)
  126. m_top2=replace(m_top2,"$sub_title$",sub_title)
  127. m_top2=replace(m_top2,"$topbanner_ad$",bannertop)
  128. response.write m_top2
  129. response.write Getmenu()
  130. response.write top(1)
  131. end sub
  132. '==================================
  133. '=╣² │╠ ├√ú║foot
  134. '=╣ª    ─▄ú║╥│├µ╜┼▓┐╨┼╧ó╧╘╩╛
  135. '==================================
  136. sub foot()
  137. m_foot=replace(m_foot,"$weburl$",weburl)
  138. m_foot=replace(m_foot,"$webname$",webname)
  139. m_foot=replace(m_foot,"$webemail$",webemail)
  140. m_foot=replace(m_foot,"$sitebuild$",sitebuild)
  141. m_foot=replace(m_foot,"]</span>","")
  142. m_foot=replace(m_foot,"$webstyle$",mb_name&"]</span><br>Power By <a href=""http://www.feitec.com/"" target=""_blank"">The Feitec Studio</a>  Versionú║FeitecCMS V1.3 AC Free")
  143. m_foot=replace(m_foot,"$webboss$",webboss)
  144. sql="select url,title,target,name from Ft_menu where items=0 and navwz=0 and shown=true"
  145. set rs=server.createobject("adodb.recordset")
  146. rs.open sql,conn,1,1
  147. if not rs.eof then
  148.     do while not rs.eof
  149.         footurl=rs(0)
  150.         foottitle=rs(1)
  151.         foottarget=rs(2)
  152.         footname=rs(3)
  153.         footmenu=footmenu+"<a href="&footurl&" title="&foottitle&" target="&foottarget&">"&footname&"</a> | "
  154.         rs.movenext
  155.     loop
  156.     footmenu=replace(footmenu,"_self>╛▓╥⌠░µ","_top>╛▓╥⌠░µ")
  157. else
  158.     footmenu="╗╢╙¡╩╣╙├FeitecCMS╧╡═│"
  159. end if
  160. rs.close:set rs=nothing
  161. if right(footmenu,7)="| " then
  162.     footmenu=left(footmenu,len(footmenu)-7)
  163. end if
  164. m_foot=replace(m_foot,"{$footmenu}",footmenu)
  165. response.write m_foot
  166. CloseDatabase
  167. end sub
  168. '==================================
  169. '=║» ╩² ├√ú║left_pub()
  170. '=╣ª    ─▄ú║╥│├µ╫≤└╕╣½╣▓╨┼╧ó╧╘╩╛
  171. '==================================
  172. Function left_pub()
  173. if request.Cookies("userlogin")=user_session then
  174.     dim userarray,username,usertype,userexper,usermoney
  175.     curarray=split(request.Cookies("userdata"),"||")
  176.     username=curarray(0)
  177.     if curarray(1)=1 then
  178.         usertype="╞╒═¿╗ß╘▒"
  179.     elseif  curarray(1)=2 then
  180.         usertype="VIP╗ß╘▒"
  181.     else
  182.         usertype="╙╬┐═"
  183.     end if
  184.     userexper=curarray(2)
  185.     usermoney=curarray(3)
  186.     m_leftpub1=replace(m_leftpub1,"$username$",username)
  187.     m_leftpub1=replace(m_leftpub1,"$usertype$",usertype)
  188.     m_leftpub1=replace(m_leftpub1,"$userexper$",userexper)
  189.     m_leftpub1=replace(m_leftpub1,"$usermoney$",usermoney)
  190.     if searchok=1 or session("feitec_adminlogin")=feitec_sessionvar then
  191.         m_leftpub1=replace(m_leftpub1,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'><input type=""hidden"" name=""searching"" value=""true"">")
  192.     elseif searchok=2 then
  193.         if user_system<>0 then
  194.             if request.Cookies("userlogin")=user_session then
  195.                 m_leftpub1=replace(m_leftpub1,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'><input type=""hidden"" name=""searching"" value=""true"">")
  196.             else
  197.                 m_leftpub1=replace(m_leftpub1,"$searchinput$","<input type=""submit"" name=""submit"" value=""╗ß╘▒▓┼─▄╩╣╙├╦╤╦≈╣ª─▄"" disabled>")
  198.             end if
  199.         else
  200.             m_leftpub1=replace(m_leftpub1,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'><input type=""hidden"" name=""searching"" value=""true"">")
  201.         end if
  202.     else
  203.             m_leftpub1=replace(m_leftpub1,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈╣ª─▄╥╤╣╪▒╒"" disabled>")
  204.     end if
  205.     left_pub=m_leftpub1
  206. else '╬┤╡╟┬╝╩▒
  207.     if user_system=0 then '╗ß╘▒╧╡═│╣╪▒╒
  208.         m_leftpub2=replace(m_leftpub2,"$userinput$","<input type=""submit"" name=""submit"" value=""╗ß╘▒╧╡═│╣╪▒╒"" disabled>")
  209.     elseif user_system=3 then
  210.         m_leftpub2=replace(m_leftpub2,"$userinput$","<input type=""submit"" name=""submit"" value=""╡╟┬╝"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'> <input type=""button"" name=""reg"" value=""╘▌═ú╫ó▓ß"" disabled> <input type=""button"" name=""lostpass"" onClick=""window.location='user.asp?action=lostpass'"" value=""═ⁿ╝╟├▄┬δ"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>")
  211.     else
  212.         m_leftpub2=replace(m_leftpub2,"$userinput$","<input type=""submit"" name=""submit"" value=""╡╟┬╝"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'> <input type=""button"" name=""reg"" onClick=""window.location='user.asp'"" value=""╫ó▓ß"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'> <input type=""button"" name=""lostpass"" onClick=""window.location='user.asp?action=lostpass'"" value=""═ⁿ╝╟├▄┬δ"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>")
  213.     end if
  214.     if searchok=1 or session("feitec_adminlogin")=feitec_sessionvar then
  215.         m_leftpub2=replace(m_leftpub2,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>        <input type=""hidden"" name=""searching"" value=""true"">")
  216.     elseif searchok=2 then
  217.         if user_system<>0 then
  218.             if request.Cookies("userlogin")=user_session then
  219.                 m_leftpub2=replace(m_leftpub2,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'><input type=""hidden"" name=""searching"" value=""true"">")
  220.             else
  221.                 m_leftpub2=replace(m_leftpub2,"$searchinput$","<input type=""submit"" name=""submit"" value=""╗ß╘▒▓┼─▄╩╣╙├╦╤╦≈╣ª─▄"" disabled>")
  222.             end if
  223.         else
  224.             m_leftpub2=replace(m_leftpub2,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'>  <input type=""reset"" name=""reset"" value=""╓╪╠ε"" class=""put"" onmouseover=this.className='overput'  onmouseout=this.className='put'><input type=""hidden"" name=""searching"" value=""true"">")
  225.         end if
  226.     else
  227.             m_leftpub2=replace(m_leftpub2,"$searchinput$","<input type=""submit"" name=""submit"" value=""╦╤╦≈╣ª─▄╥╤╣╪▒╒"" disabled>")
  228.     end if
  229.     left_pub=m_leftpub2
  230. end if
  231. end function
  232.  
  233. Function GetMenu()
  234.     dim pop
  235.     pop = "<DIV class=menuskin id=popmenu onmouseover=clearhidemenu();highlightmenu(event,'on') onmouseout=highlightmenu(event,'off');dynamichide(event) style='Z-index:100'></DIV>"
  236.     pop = pop &"<script Language=Javascript src='images/pop.js'></script>"&vbnewline
  237.     pop = pop &"<script language=javascript>"&vbnewline
  238.     '===========
  239.     '╨┬╬┼▓╦╡Ñ
  240.     pop = pop &"linkset[0]=new Array()"&vbnewline
  241.     sql="Select * from Ft_news_cat order by cat_id"
  242.     set rs_item=server.createobject("adodb.recordset")
  243.     rs_item.open sql,conn,1,1
  244.     dim i
  245.     i = -1
  246.     do while not rs_item.eof
  247.         i=i+1
  248.         pop = pop &"linkset[0]["&i&"]='<div class=menuitems align=left><a href=news.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
  249.         rs_item.movenext
  250.     loop
  251.     rs_item.close
  252.     '===========
  253.     '═╝╞¼▓╦╡Ñ
  254.     pop = pop &"linkset[1]=new Array()"&vbnewline
  255.     sql="Select * from Ft_pic_cat order by cat_id"
  256.     set rs_item=server.createobject("adodb.recordset")
  257.     rs_item.open sql,conn,1,1
  258.     i = -1
  259.     do while not rs_item.eof
  260.         i=i+1
  261.         pop = pop &"linkset[1]["&i&"]='<div class=menuitems><a href=pic.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
  262.         rs_item.movenext
  263.     loop
  264.     rs_item.close
  265.     '===========
  266.     '╬─╒┬▓╦╡Ñ
  267.     pop = pop &"linkset[2]=new Array()"&vbnewline
  268.     sql="Select * from Ft_art_cat order by cat_id"
  269.     set rs_item=server.createobject("adodb.recordset")
  270.     rs_item.open sql,conn,1,1
  271.     i = -1
  272.     do while not rs_item.eof
  273.         i=i+1
  274.         pop = pop &"linkset[2]["&i&"]='<div class=menuitems align=left><a href=article.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
  275.         rs_item.movenext
  276.     loop
  277.     rs_item.close
  278.     '===========
  279.     '╧┬╘╪▓╦╡Ñ
  280.     pop = pop &"linkset[3]=new Array()"&vbnewline
  281.     
  282.     sql="Select * from Ft_soft_cat order by cat_id"
  283.     set rs_item=server.createobject("adodb.recordset")
  284.     rs_item.open sql,conn,1,1
  285.     i = -1
  286.     do while not rs_item.eof
  287.         i=i+1
  288.         pop = pop &"linkset[3]["&i&"]='<div class=menuitems align=left><a href=download.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
  289.         rs_item.movenext
  290.     loop
  291.     rs_item.close
  292.     '===========
  293.     '╖τ╕±▓╦╡Ñ
  294.     dim x,y
  295.     y = LCase(request.ServerVariables("QUERY_STRING"))
  296.     if y = "" then
  297.         x = ""
  298.     else
  299.         if InStr(y,"skin") > 0 then
  300.             x = replace(y,right(y,5+len(Skin)),"")
  301.         else
  302.             x = y & "&"
  303.         end if
  304.     end if
  305.     pop = pop &"linkset[4]=new Array()"&vbnewline
  306.     pop = pop &"linkset[4][0]='<div class=menuitems><a href=?"&x&"skin=0>╗╓╕┤─¼╚╧╔Φ╓├</a></div>'"&vbnewline
  307.     sql="Select * from Ft_mb_style"
  308.     set rs_item=server.createobject("adodb.recordset")
  309.     rs_item.open sql,conn,1,1
  310.     i = 0
  311.     do while not rs_item.eof
  312.         i=i+1
  313.         if Cint(Skin) = rs_item(0) then
  314.             pop = pop &"linkset[4]["&i&"]='<div class=menuitems align=left><a href=?"&x&"skin="&rs_item(0)&">⌐└ <font color=red>"&rs_item(1)&"</font></a></div>'"&vbnewline
  315.         else
  316.             pop = pop &"linkset[4]["&i&"]='<div class=menuitems align=left><a href=?"&x&"skin="&rs_item(0)&">⌐└ "&rs_item(1)&"</a></div>'"&vbnewline
  317.         end if
  318.     rs_item.movenext
  319.     loop
  320.     rs_item.close
  321.     sql="select * from Ft_menu where items=0 and shown=true and navwz=1 order by order_num"
  322.     set rs=server.createobject("adodb.recordset")
  323.     rs.open sql,conn,1,1
  324.     dim script,tmp,sql2,rs2
  325.     j=4
  326.     do while not rs.eof
  327.         sql2="select * from Ft_menu where items="&rs(0)
  328.         set rs2=server.createobject("adodb.recordset")
  329.         rs2.open sql2,conn,1,1
  330.         if rs2.bof and rs2.eof then
  331.             if rs(0) = 2 then
  332.                  tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,0,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  333.             elseif rs(0) =3 then
  334.                 tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,1,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  335.             elseif rs(0) =4 then
  336.                 tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,2,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  337.             elseif rs(0) =5 then
  338.                 tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,3,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  339.             elseif rs(0) =9 then
  340.                 tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,4,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  341.             else
  342.                 tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"'>"& rs(1) &"</a> | "
  343.             end if
  344.             j=j
  345.         else
  346.             j=j+1
  347.             id=j
  348.             pop = pop &"linkset["&j&"]=new Array()"&vbnewline
  349.             sql="Select * from Ft_menu where items="&rs(0)
  350.             set rs_item=server.createobject("adodb.recordset")
  351.             rs_item.open sql,conn,1,1
  352.             i = -1
  353.             do while not rs_item.eof
  354.                 i=i+1
  355.                 pop = pop &"linkset["&j&"]["&i&"]='<div class=menuitems><a href="&rs_item(2)&" target="&rs_item(3)&" title="&rs_item(4)&">"&rs_item(1)&"</a></div>'"&vbnewline
  356.                 rs_item.movenext
  357.             loop
  358.             rs_item.close
  359.         tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,"&id&",1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> | "
  360.         end if
  361.         rs2.close:set rs2=nothing
  362.         script = script & tmp
  363.         rs.movenext
  364.         loop
  365.         rs.close
  366.         set rs_item=nothing
  367.         set rs=nothing
  368.         response.Write pop &"</script>"
  369.         Getmenu = Left(script,len(script)-3)
  370. End function
  371. %>
  372.