BVB Source Codes

Jie Yang v0.6.3 article system Show commonfunction.asp Source code

Return Download Jie Yang v0.6.3 article system: download commonfunction.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%
  2. '*************************************************************
  3. '函数功能:替换标签的正则表达式
  4. '*************************************************************
  5. Function ReplaceLableFlag(Content)
  6.         Dim regEx, Matches, Match, TempStr
  7.         Set regEx = New RegExp
  8.         regEx.Pattern = "{\$[^{\$}]*}"
  9.         regEx.IgnoreCase = True
  10.         regEx.Global = True
  11.         Set Matches = regEx.Execute(Content)
  12.         ReplaceLableFlag = Content
  13.         For Each Match In Matches
  14.                 On Error Resume Next
  15.                 TempStr = Match.Value
  16.                 TempStr = Replace(TempStr, Chr(13) & Chr(10), "")
  17.                 TempStr = Replace(TempStr, "{$", "")
  18.                 TempStr = Replace(TempStr, "}", "")
  19.                 TempStr = Left(TempStr, InStr(TempStr, "(") - 1) & "," & Mid(TempStr, InStr(TempStr, "(") + 1)
  20.                 TempStr = Left(TempStr, InStrRev(TempStr, ")") - 1)
  21.                 TempStr = Replace(TempStr, """", "")
  22.         If Err.Number = 0 Then
  23.                 ReplaceLableFlag = Replace(ReplaceLableFlag, Match.Value, ChangeLableToFunction(TempStr))
  24.         End If
  25.         Next
  26. End Function
  27.  
  28. '****************************************************
  29. '函数名:ReplaceAllLabel
  30. '作  用:将标签名称转换成对应标签内容
  31. '参  数: Content需转换的内容
  32. '****************************************************
  33. Function ReplaceAllLabel(Content)
  34.         '替换系统标签
  35.         Dim LabelRS, LabelSql
  36.         Set LabelRS = Server.CreateObject("ADODB.Recordset")
  37.         LabelSql = "Select L_name,L_content,L_type from Article_Label"
  38.         LabelRS.Open LabelSql, Conn, 1, 1
  39.         Do While Not LabelRS.EOF
  40.                 Content = Replace(Content, LabelRS(0), LabelRS(1))
  41.         LabelRS.MoveNext
  42.         Loop
  43.         LabelRS.Close:Set LabelRS = Nothing
  44.         ReplaceAllLabel = Content
  45. End Function
  46.  
  47. '**************************************************
  48. '函数名:ChangeLableToFunction
  49. '作  用:将标签转换为函数执行
  50. '参  数: LabelContent  ----标签参数
  51. '返回值:函数执行结果
  52. '**************************************************
  53. Function ChangeLableToFunction(LabelContent)
  54. Dim LabelArr:LabelArr = Split(LabelContent, ",")
  55. If LabelArr(0) = "" Then
  56.           ChangeLableToFunction = ""
  57.           Exit Function
  58. End If
  59. Select Case UCase(LabelArr(0))
  60.   Case "GETINFOLIST"                            '文章函数
  61.          If UBound(LabelArr) = 17 Then
  62.            ChangeLableToFunction = GetInfoList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6), LabelArr(7), LabelArr(8), LabelArr(9), LabelArr(10), LabelArr(11), LabelArr(12), LabelArr(13), LabelArr(14), LabelArr(15), LabelArr(16), LabelArr(17))
  63.          Else
  64.          ChangeLableToFunction = "标签参数溢出!"
  65.          End If
  66.   Case "GETLINKLIST"                            '友情链接函数
  67.          If UBound(LabelArr) = 6 Then
  68.            ChangeLableToFunction = GetLinkList(LabelArr(1), LabelArr(2), LabelArr(3), LabelArr(4), LabelArr(5), LabelArr(6))
  69.          Else
  70.          ChangeLableToFunction = "标签参数溢出!"
  71.          End If
  72.   Case "GETLASTINFOLIST"                        '文章列表函数
  73.          If UBound(LabelArr) = 3 Then
  74.            ChangeLableToFunction = GetLastInfoList(LabelArr(1), LabelArr(2), LabelArr(3))
  75.          Else
  76.          ChangeLableToFunction = "标签参数溢出!"
  77.          End If
  78.   Case "GETCIRARTICLELIST"                      '循环文章函数
  79.         If UBound(LabelArr) = 1 Then
  80.            ChangeLableToFunction = GetCirArticleList(LabelArr(1))
  81.          Else
  82.          ChangeLableToFunction = "标签参数溢出!"
  83.          End If
  84.   Case Else
  85.    ChangeLableToFunction = ""
  86.    Exit Function
  87.  End Select
  88. End Function
  89.  
  90.  
  91. '**************************************
  92. '函数:GetInfoList
  93. '功能:综级文章列表函数
  94. '参数:cid:专题、频道编号;tid:专题类别编号;imgs:小图片名称:如1.gif;num:读取文章条数
  95. 'styles:显示方式();iscommand:是否小类推荐;ispic:是否图片文章;ishomecommand:是否首页推荐
  96. 'order:排序(按id正,反,按点击数,按时间);font_left:标题截取字数
  97. 'target:打开方式;istit:是否显示完整的标题;
  98. 'dates:是否显示发布时间(0为不显示,其他的为代表的显示方式:1:2008-8-7;2:2008\2\8等);
  99. 'picw:图片宽度;pich:图片高度
  100. 'showtype:是否显示文章类别;con_left:内容简介字数
  101. '例如:GetInfoList(10,0,0,20,1,0,0,0,"I_id desc",20,1,0,0,0,0,0,0)
  102. '显示方式:(1、图片加下标题;2、图片+右上标题+右下内容;3、[图片]【类别】【标题】【时间】...;4、标题+下内容)
  103. '**************************************
  104.  
  105. Function GetInfoList(cid,tid,imgs,num,styles,iscommand,ispic,ishomecommand,order,font_left,target,istit,dates,picw,pich,showtype,con_left)
  106.         Dim InfoRS,InfoSql,picss,linkss,textss
  107.         set InfoRs=Server.CreateObject("ADODB.RecordSet")
  108.         if Cid="-1" then
  109.                 Cid=session("JYcmsChannelID")
  110.         end if
  111.         if tid="-1" then
  112.                 Tid=session("JYcmsTypeID")
  113.         end if
  114.         InfoSql="Select top "&num&" * from Article_News where N_id is not null"
  115.         if Cid<>0 then InfoSql=InfoSql&" and N_cid="&cid&""
  116.         if tid<>0 then InfoSql=InfoSql&" and N_sid="&tid&""
  117.         'if iscommand=1 then    InfoSql=InfoSql&" and N_commond=1"
  118.         if iscommand<>"0" and iscommand<>"" then
  119.                 if Instr(iscommand,"|")>0 then
  120.                         iscommonds=split(iscommand,"|")
  121.                         for si=0 to ubound(iscommonds)
  122.                         tj="|"&iscommonds(si)&"|"
  123.                         InfoSql=InfoSql&" and N_Properties like'%"&tj&"%'"
  124.                         next
  125.                 else
  126.                         tj="|"&iscommand&"|"
  127.                         InfoSql=InfoSql&" and N_Properties like'%"&tj&"%'"
  128.                 end if
  129.         end if
  130.         if ispic=1 then InfoSql=InfoSql&" and N_homepic=1"
  131.         if ishomecommand=1 then InfoSql=InfoSql&" and N_homecommond=1"
  132.         InfoSql=InfoSql&" order by "&order&""
  133.         'GetInfoList=InfoSql
  134.         html=""
  135.         InfoRS.open InfoSql,conn,1,1
  136.         if not InfoRS.eof then
  137.         if num-InfoRs.RecordCount>0 then
  138.         counts=InfoRs.RecordCount
  139.         else
  140.         counts=num
  141.         end if
  142.         for i=1 to counts
  143.                 if len(InfoRs("N_title"))-font_left>0 then
  144.                         tit=left(InfoRs("N_title"),font_left)&"..."
  145.                 else
  146.                         tit=InfoRs("N_title")
  147.                 end if
  148.                 if istit=1 then titles="title="&InfoRs("N_title")&""
  149.                 cid=InfoRs("N_cid")
  150.                 InfoLink=FormatLink(InfoRs("N_addtime"),cid,tid,InfoRs("N_id"),0)                              
  151.                
  152.                 select case styles
  153.                 case 1 '简单的文章标题列表                                    
  154.                         html=html&"<li>"
  155.                         if dates<>0 then html=html&"<span>[<font color=""#057ABD"">"&FormatDate(InfoRs("N_addtime"),dates)&"</font>]</span>"
  156.                         if showtype=1 then html=html&"[<a href="""&FormatLink(0,InfoRs("N_cid"),InfoRs("N_sid"),0,0)&"""><font color=""#057ABD"">"&NewsSort(InfoRs("N_sid"))&"</font></a>] "
  157.                         if imgs<>"0" then html=html&"<img src="""&InstallDir&"Skin/Default/"&imgs&""" /> "
  158.                         html=html&"<a href="&InfoLink&" "&titles&" target="""&target&"""><font color="&InfoRs("N_color")&">"&tit&"</font></a>"         
  159.                         html=html&"</li>"                                              
  160.                 case 2 '图片加下标题的显示方式
  161.                         html=html&"<li class=""link_pic"">"
  162.                         html=html&"<a href="&InfoLink&" target="""&target&"""><img src="""&InstallDir&"upfiles/article/"&InfoRs("N_pic")&""" width="&picw&" height="&pich&" /></a><br /><a href="&InfoLink&" "&titles&" target="""&target&"""><font color="&InfoRs("N_color")&">"&tit&"</font></a>"            
  163.                         html=html&"</li>"
  164.                 case 3 '图片加右上标题加右下内容
  165.                         html=html&"<dl><dt>"
  166.                         if imgs<>"0" then html=html&"<img src="""&InstallDir&"Skin/Default/"&imgs&""" /> "
  167.                         html=html&"<a href="&InfoLink&" "&titles&" target="""&target&"""><font color="&InfoRs("N_color")&">"&tit&"</font></a></dt>"
  168.                         html=html&"<dd class=""pic""><a href="&InfoLink&" target="""&target&"""><img src="""&InstallDir&"upfiles/article/"&InfoRs("N_pic")&""" width="&picw&" height="&pich&" /></a></dd>"
  169.                         html=html&"<dd class=""text"">"&left(RemoveHTML(InfoRs("N_content")),con_left)&"</dd>"
  170.                         html=html&"</dl>"
  171.                 case 4 '标题加下内容简介
  172.                         html=html&"<dl><dt>"
  173.                         if dates<>0 then html=html&"<span>[<font color=""#057ABD"">"&FormatDate(InfoRs("N_addtime"),dates)&"</font>]</span>"
  174.                         if imgs<>"0" then html=html&"<img src="""&InstallDir&"Skin/Default/"&imgs&""" /> "
  175.                         html=html&"<a href="&InfoLink&" "&titles&" target="""&target&""">"&tit&"</a></dt>"
  176.                         html=html&"<dd class=""text"">"&left(RemoveHTML(InfoRs("N_content")),con_left)&"</dd>"
  177.                         html=html&"</dl>"
  178.                 case 7 '热点文章排行效果
  179.                         html=html&"<ul class=""news_list"">"
  180.                         if i<=3 then
  181.                                 html=html&"<li class=""top3""><em>"&i&"</em><a href="&InfoLink&" "&titles&" target="""&target&"""><font color="&InfoRs("N_color")&">"&tit&"</font></a></li>"
  182.                         else
  183.                                 html=html&"<li><em>"&i&"</em><a href="&InfoLink&" "&titles&" target="""&target&"""><font color="&InfoRs("N_color")&">"&tit&"</font></a></li>"
  184.                         end if
  185.                         html=html&"</ul>"
  186.                 case 5 '幻灯篇文章显示                  
  187.                         picss=picss&InstallDir&"upfiles/Article/"&InfoRs("N_pic")&"|"
  188.                         linkss=linkss&InfoLink&"|"
  189.                         textss=textss&tit&"|"
  190.                 case 6 '幻灯篇文章显示                  
  191.                         picss=picss&InstallDir&"upfiles/Article/"&InfoRs("N_pic")&"|"
  192.                         linkss=linkss&InfoLink&"|"
  193.                         textss=textss&tit&"|"                  
  194.                 end select
  195.         InfoRs.movenext
  196.         next
  197.                 if styles=5 or styles=6 then
  198.                         picss=left(picss,len(picss)-1)
  199.                         linkss=left(linkss,len(linkss)-1)
  200.                         textss=left(textss,len(textss)-1)
  201.                         shtml=shtml&"<SCRIPT type=text/javascript>"& vbCrLf
  202.                         shtml=shtml&""& vbCrLf
  203.                         shtml=shtml&"var focus_width="&picw&""& vbCrLf
  204.                         shtml=shtml&"var focus_height="&pich&""& vbCrLf
  205.                         if styles=5 then
  206.                         shtml=shtml&"var text_height=0"& vbCrLf
  207.                         elseif styles=6 then
  208.                         shtml=shtml&"var text_height=22"& vbCrLf
  209.                         end if
  210.                         shtml=shtml&"var swf_height = focus_height+text_height"& vbCrLf
  211.                         shtml=shtml&"var pics='"&picss&"'"& vbCrLf
  212.                         shtml=shtml&"var links='"&linkss&"'"& vbCrLf
  213.                         shtml=shtml&"var texts='"&textss&"'"& vbCrLf
  214.                         shtml=shtml&"document.write('<object classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 codebase=http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,0,0 width='+ focus_width +' height='+ swf_height +'>');"& vbCrLf
  215.                         shtml=shtml&"document.write('<param name=allowScriptAccess value=sameDomain><param name=movie value="&SiteUrl&InstallDir&"Skin/Default/focus.swf><param name=wmode value=transparent><param name=quality value=high>');"& vbCrLf
  216.                         shtml=shtml&"document.write('<param name=menu value=false><param name=wmode value=opaque>');"& vbCrLf
  217.                         shtml=shtml&"document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');"& vbCrLf
  218.                         shtml=shtml&"document.write('<embed src="&SiteUrl&InstallDir&"Skin/Default/focus.swf wmode=opaque FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" menu=false bgcolor=#DADADA quality=high width='+ focus_width +' height='+ swf_height +' allowScriptAccess=sameDomain type=application/x-shockwave-flash pluginspage=http://www.macromedia.com/go/getflashplayer />');"& vbCrLf
  219.                         shtml=shtml&"document.write('</object>');"& vbCrLf
  220.                         shtml=shtml&"</script>"& vbCrLf
  221.                 end if
  222.         else
  223.                 html=html&""
  224.                 shtml=""
  225.         end if
  226.         InfoRs.close
  227.         set InfoRs=nothing
  228.         if styles=5 or styles=6 then
  229.                 GetInfoList=shtml
  230.         else
  231.                 GetInfoList=html
  232.         end if
  233. End Function
  234.  
  235. '***************************************************
  236. '函数名:GetCirArticleList
  237. '函数功能:循环频道的文章列表
  238. '***************************************************
  239. 'Function GetInfoList(cid,tid,imgs,num,styles,iscommand,ispic,ishomecommand,order,font_left,target,istit,dates,picw,pich,showtype,con_left)
  240.  
  241. Function GetCirArticleList(cid)
  242. Dim NewsRS,NewsSql,NewsSqls,Crs,Csql
  243. Set Crs = Server.CreateObject("ADODB.RecordSet")
  244. cid = session("JYcmsChannelID")
  245. Csql="select top 10 S_id,S_name,S_cid from Article_NewsSort where S_cid="&cid&" order by S_order asc"
  246. Crs.open Csql,conn,1,1
  247. if not Crs.eof then
  248. html=""
  249. a=0
  250. do while not Crs.eof
  251. a=a+1
  252.         html=html&"<div class='newstmain'>"
  253.         html=html&"<div class='main_tit'><span><a href="&FormatLink(0,Crs("S_cid"),Crs("S_id"),0,0)&"><img src='"&Installdir&"Skin/Default/more++.gif' /></a></span>"&Crs("S_name")&"</div>"
  254.         html=html&"<div class='main_con'>"&GetInfoList(Crs("S_cid"),Crs("S_id"),"icon.gif",10,1,0,0,0,"N_id desc",16,"_blank",1,8,133,100,0,70)&"</div>"
  255.         html=html&"</div>"
  256. Crs.movenext
  257. loop
  258. else
  259. GetCirArticleList="暂无信息"
  260. Exit Function
  261. end if
  262. Crs.close
  263. set Crs=nothing
  264. GetCirArticleList=html
  265. End Function
  266.  
  267. '***************************************************
  268. '函数名:GetLastArticleList
  269. '功能:文章分类列表
  270. '参数:
  271. 'cid:频道编号
  272. 'tid:类别编号
  273. 'PerPageNumber:每页列表数
  274. '***************************************************
  275. Function GetLastInfoList(cid,tid,PerPageNumber)
  276. Dim NewsRS,NewsSql,NewsSqls,totalPut,Page
  277. Set NewsRS = Server.CreateObject("ADODB.RecordSet")
  278. '-1 为读取当前频道
  279. if cid="-1" then
  280.         cid = session("JYcmsChannelID")
  281. end if
  282.         NewsSqls=""
  283.         If tid="-1" then
  284.                 if session("JYcmsTypeID")="" then
  285.                 tid=0
  286.                 else
  287.                 tid=session("JYcmsTypeID")
  288.                 end if
  289.         end if
  290.         tid=clng(tid)  
  291.         If tid<>0 then NewsSqls=" and N_sid="&tid&""
  292.         NewsSqls=NewsSqls&" order by N_id desc"
  293.         NewsSql="select * from Article_News where N_cid="&cid&""&NewsSqls&""
  294.         NewsRS.open NewsSql,conn,1,1
  295.         if NewsRS.eof and NewsRS.bof then
  296.                 html="暂无信息!"
  297.         else
  298.                 totalPut=NewsRS.recordcount
  299.                 '读取页数
  300.                 Page=session("JYcmsPage")
  301.                 if Page<>1 then
  302.                         NewsRS.move (Page-1)*PerPageNumber
  303.                 end if         
  304.         html=""
  305.         i=0
  306.         do while not NewsRS.eof
  307.         i=i+1  
  308.         html=html&"<dl><dt><span><font color=""#057ABD"">"&NewsRs("N_addtime")&"</font></span>"
  309.         html=html&"<img src="""&InstallDir&"Skin/Default/icon2.gif"""" />&nbsp;"
  310.         html=html&"<a href="&FormatLink(NewsRs("N_addtime"),Cid,Tid,NewsRs("N_id"),0)&" target=""_blank""><font color="&NewsRs("N_color")&">"&NewsRs("N_title")&"</font></a></dt>"
  311.         html=html&"<dd class=""text"">"&left(RemoveHTML(NewsRs("N_content")),120)&"....<a href="&FormatLink(NewsRs("N_addtime"),Cid,Tid,NewsRs("N_id"),0)&" target=""_blank"">[阅读全文]</a></dd></dl>"
  312.         if i>=Cint(PerPageNumber) then exit do
  313.         NewsRS.movenext
  314.         loop
  315.                 If totalput>0 Then
  316.                 html=html&"<li>"&Htmlpages(Cid,Tid,0,totalPut,PerPageNumber,true,"篇文章",Page)&"</li>"
  317.                 end If
  318.         end if
  319. closers(Newsrs)
  320. GetLastInfoList=html
  321. End Function
  322.  
  323. '***************************************************
  324. '函数:GetLinkList
  325. '功能:调用友情链接列表函数
  326. '参数:
  327. 'styles:显示方式(1:显示文字;2:显示图片;3:显示文字加图片)
  328. 'nums:显示链接个数(0为调用所有的内容)
  329. 'order:排序(按id正,反,排序,按时间)
  330. 'picw:logo图片宽度;pich:logo图片高度
  331. 'linktype:调用的链接类型(0为全部调用,其他的为对应的链接类型)
  332. '例如:GetLinkList(1,10,"L_order asc",88,31,0)
  333. '显示方式:(1、文字链接;2、图片链接;3、文字加图片链接)
  334. '***************************************************
  335. Function GetLinkList(styles,nums,order,picw,pich,linktype)
  336. Dim html
  337. html=""
  338. Select Case styles
  339.         Case 1
  340.                 If nums=0 then
  341.                         sql="select L_name,L_url from Article_Link where L_type=0 and L_flag=1"
  342.                 Else
  343.                         sql="select top "&nums&" L_name,L_url from Article_Link where L_type=0 and L_flag=1"
  344.                 End If
  345.                 sql=sql&" order by "&order&""
  346.                 set rs=Server.CreateObject("ADODB.RecordSet")
  347.                 rs.open sql,conn,1,1
  348.                 if not rs.eof then
  349.                         for i=1 to rs.recordcount
  350.                                 L_name=rs("L_name")
  351.                                 html=html&"<a href="&rs("L_url")&" title="&L_name&" target=""_blank"">"&L_name&"</a>&nbsp;"
  352.                         rs.movenext
  353.                         next
  354.                 end If
  355.                 closers(rs)
  356.         Case 2
  357.                 If nums=0 then
  358.                         sql="select L_name,L_url from Article_Link where L_type=1 and L_flag=1"
  359.                 Else
  360.                         sql="select top "&nums&" L_name,L_url from Article_Link where L_type=1 and L_flag=1"
  361.                 End If
  362.                 sql=sql&" order by "&order&""
  363.                 set rs=Server.CreateObject("ADODB.RecordSet")
  364.                 rs.open sql,conn,1,1
  365.                 if not rs.eof then
  366.                         for i=1 to rs.recordcount
  367.                                 if left(rs("L_logo"),7)="http://" then
  368.                                 L_name="<img src="&rs("L_logo")&" width=88 height=31 border=0 alt="&rs("L_name")&">"
  369.                                 else
  370.                                 L_name="<img src="&InstallDir&"upfiles/Links/"&rs("L_logo")&" width=88 height=31 border=0 alt="&rs("L_name")&">"
  371.                                 end if
  372.                                 html=html&"<a href="&rs("L_url")&" title="&rs("L_name")&" target=""_blank"">"&L_name&"</a>&nbsp;"
  373.                         rs.movenext
  374.                         next
  375.                 end If
  376.                 closers(rs)
  377.         Case 3
  378.                 If nums=0 then
  379.                         sql="select L_name,L_url from Article_Link where L_type=0 and L_flag=1"
  380.                 Else
  381.                         sql="select top "&nums&" L_name,L_url from Article_Link where L_type=0 and L_flag=1"
  382.                 End If
  383.                 sql=sql&" order by "&order&""
  384.                 set rs=Server.CreateObject("ADODB.RecordSet")
  385.                 rs.open sql,conn,1,1
  386.                 if not rs.eof then
  387.                         html="<ul>"
  388.                         for i=1 to rs.recordcount
  389.                                 L_name=rs("L_name")
  390.                                 html=html&"<a href="&rs("L_url")&" title="&rs("L_name")&" target=""_blank"">"&L_name&"</a>&nbsp;"
  391.                         rs.movenext
  392.                         next
  393.                         html=html&"</ul>"
  394.                 end If
  395.                 closers(rs)
  396.                 If nums=0 then
  397.                         sql="select L_name,L_url,L_logo from Article_Link where L_type=1 and L_flag=1"
  398.                 Else
  399.                         sql="select top "&nums&" L_name,L_url,L_logo from Article_Link where L_type=1 and L_flag=1"
  400.                 End If
  401.                 sql=sql&" order by "&order&""
  402.                 set rs=Server.CreateObject("ADODB.RecordSet")
  403.                 rs.open sql,conn,1,1
  404.                 if not rs.eof then
  405.                         html=html&"<ul class='pic'>"
  406.                         for i=1 to rs.recordcount
  407.                                 if left(rs("L_logo"),7)="http://" then
  408.                                 L_name="<img src="&rs("L_logo")&" width=88 height=31 border=0 alt="&rs("L_name")&">"
  409.                                 else
  410.                                 L_name="<img src="&InstallDir&"upfiles/Links/"&rs("L_logo")&" width=88 height=31 border=0 alt="&rs("L_name")&">"
  411.                                 end if
  412.                                 html=html&"<a href="&rs("L_url")&" title="&rs("L_name")&" target=""_blank"">"&L_name&"</a>&nbsp;"
  413.                         rs.movenext
  414.                         next
  415.                         html=html&"</ul>"
  416.                 end If
  417.                 closers(rs)
  418.         End Select
  419.         GetLinkList=html
  420. End Function
  421. %>
downloadcommonfunction.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top