BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download CommonCode.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%
  2. '**************************************************
  3. '函数名:IsObjInstalled
  4. '作  用:检测组件
  5. '参  数:strClassString   ----组件名
  6. '返回值:True 或 False
  7. '**************************************************
  8. Function IsObjInstalled(strClassString)
  9.         On Error Resume Next
  10.         IsObjInstalled = False
  11.         Err = 0
  12.         Dim xTestObj
  13.         Set xTestObj = Server.CreateObject(strClassString)
  14.         If Err = 0 Then IsObjInstalled = True
  15.         If Err = -2147352567 Then IsObjInstalled = True
  16.         Set xTestObj = Nothing
  17.         Err = 0
  18. End Function
  19.  
  20. '********************************************************
  21. '检测传递的参数是否为数字型 主要用于检测id
  22. '********************************************************
  23. Function Chkrequest(Para)
  24. Chkrequest=False
  25. If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then
  26.    Chkrequest=True
  27. End If
  28. End Function
  29.  
  30. '**************************************************
  31. '函数功能:获得客户端浏览器
  32. '**************************************************
  33. Function Cbrowers()
  34.         C_browers=Request.ServerVariables("HTTP_USER_AGENT")
  35.         if Instr(C_browers,"NetCaptor 6.5.0") then
  36.                 C_brower="NetCaptor 6.5.0"
  37.         elseif Instr(C_browers,"MyIe 3.1") then
  38.                 C_brower="MyIe 3.1"
  39.         elseif Instr(C_browers,"NetCaptor 6.5.0RC1") then
  40.                 C_brower="NetCaptor 6.5.0RC1"
  41.         elseif Instr(C_browers,"NetCaptor 6.5.PB1") then
  42.                 C_brower="NetCaptor 6.5.PB1"
  43.         elseif Instr(C_browers,"MSIE 5.5") then
  44.                 C_brower="Internet Explorer 5.5"
  45.         elseif Instr(C_browers,"MSIE 7.0") then
  46.                 C_brower="Internet Explorer 7.0"
  47.         elseif Instr(C_browers,"MSIE 6.0") then
  48.                 C_brower="Internet Explorer 6.0"       
  49.         elseif Instr(C_browers,"MSIE 6.0b") then
  50.                 C_brower="Internet Explorer 6.0b"
  51.         elseif Instr(C_browers,"MSIE 5.01") then
  52.                 C_brower="Internet Explorer 5.01"
  53.         elseif Instr(C_browers,"MSIE 5.0") then
  54.                 C_brower="Internet Explorer 5.00"
  55.         elseif Instr(C_browers,"MSIE 4.0") then
  56.                 C_brower="Internet Explorer 4.01"
  57.         else
  58.                 C_brower="其它浏览器"
  59.         end if
  60.         Cbrowers=C_brower
  61. End Function
  62.  
  63. '**************************************************
  64. '函数功能:获得客户端操作系统
  65. '**************************************************
  66. Function Coss()
  67. C_oss=Request.ServerVariables("HTTP_USER_AGENT")
  68. if Instr(C_oss,"NT 5.1") then
  69.         C_os="Windows XP"
  70. elseif Instr(C_oss,"Tel") then
  71.         C_os="Telport"
  72. elseif Instr(C_oss,"webzip") then
  73.         C_os="webzip"
  74. elseif Instr(C_oss,"flashget") then
  75.         C_os="flashget"
  76. elseif Instr(C_oss,"offline") then
  77.         C_os="offline"
  78. elseif Instr(C_oss,"NT 5") then
  79.         C_os="Windows 2000"
  80. elseif Instr(C_oss,"NT 4") then
  81.         C_os="Windows NT4"
  82. elseif Instr(C_oss,"98") then
  83.         C_os="Windows 98"
  84. elseif Instr(C_oss,"95") then
  85.         C_os="Windows 95"
  86. elseif Instr(C_oss,"unix") or Instr(C_oss,"linux") or Instr(C_oss,"SunOS") or Instr(C_oss,"BSD") then
  87.         C_os="类Unix"
  88. elseif Instr(C_oss,"Mac") then
  89.         C_os="Mac"
  90. else
  91.         C_os="其它操作系统"
  92. end if
  93.         Coss=C_os
  94. End Function
  95.  
  96. '*************************************************
  97. '函数名:ShowPage
  98. '作用:显示“上一页 下一页”等信息
  99. '参数:LinkURL  ----链接地址
  100. '      RecordTotal ----查询的数据总数量
  101. '         MaxPerPage -----每页显示的数据数量
  102. '      ShowTotal  -----是否显示总数量
  103. '      ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用,否则会出现JS错误。
  104. '      strUnit     ----计数单位   '
  105. '返回值:“上一页 下一页”等信息的HTML代码
  106. '编辑时间:由Mr.Yang编辑与2008年1月10号09点
  107. '*************************************************
  108. Function ShowPage(LinkURL,RecordTotal,MaxPerPage,ShowTotal,ShowAllPages,strUnit)
  109.        
  110.         dim pagetotal   '定义显示的总页数
  111.         dim strtemp     '定义存储输出变量
  112.         dim strurl      '定义下一页链接到的地址
  113.         dim i           '定义下拉列表转向页变量
  114.                
  115.         if RecordTotal mod MaxPerPage=0 then   '判断数据的总页数
  116.                 pagetotal=RecordTotal \ MaxPerPage
  117.         else
  118.                 pagetotal=RecordTotal \ MaxPerPage+1
  119.         end if
  120.        
  121.         if pageshow>pagetotal then   '当前显示的页数
  122.                 pageshow=pagetotal
  123.         end if
  124.        
  125.                 if ShowTotal=true then
  126.                         strtemp=strtemp & "共<b>" & RecordTotal & "</b>" & strUnit & "&nbsp;&nbsp;"
  127.                 end if 
  128.         strurl=JoinChar(linkURL)        '向地址中加如 '&' 或 '?'        
  129.                 if pageshow<2 then
  130.                         strtemp=strtemp & "首页 上一页&nbsp;"
  131.                 else
  132.                         strtemp=strtemp & "<a href='" & strurl & "pageshow=1'>首页</a>&nbsp;"
  133.                         strtemp=strtemp & "<a href='" & strurl & "pageshow=" & (pageshow-1) &"'>上一页</a>&nbsp;"                                                           
  134.                 end if
  135.                
  136.                 if pageshow>=pagetotal then
  137.                         strtemp=strtemp & "下一页 尾页"
  138.                 else
  139.                         strtemp=strtemp & "<a href='" & strurl & "pageshow=" & (pageshow+1) &"'>下一页</a>&nbsp;"
  140.                         strtemp=strtemp & "<a href='" & strurl & "pageshow=" & pagetotal &"'>尾页</a>"
  141.                 end if
  142.                
  143.         strtemp=strtemp & "&nbsp;页次:<strong><font color=red>" & pageshow & "</font>/" & pagetotal & "</strong>页"
  144.         strtemp=strtemp & "&nbsp;<b>" & MaxPerPage & "</b>" & strUnit & "/页"
  145.        
  146.                 if ShowAllPages=True then  '判断是否使用直接输入数字转向需要的页
  147.                                 strtemp=strtemp & "&nbsp;&nbsp;转到第 <input type='text' name='pageshow' style='text-align:center;' size='2' maxlength='5' value='" & pageshow & "' onBlur=""window.location='" & strurl & "pageshow=" & "'+this.value;"" onKeyPress=""if (event.keyCode==13) window.location='" & strurl & "pageshow=" & "'+this.value;""> 页"
  148.                         end if
  149.                
  150.                 '下拉列表转向第n页     
  151.                 'if ShowAllPages=True then
  152. '                               strtemp=strtemp & "&nbsp;转到第:<select name=""pageshow"" size=""1"" onchange=""javascript:window.location='" & strurl & "pageshow=" & "'+this.options[this.selectedIndex].value;"">"& vbCrLf
  153. '                               for i = 1 to pagetotal  
  154. '                                       strtemp=strtemp & "<option value=""" & i & """"
  155. '                                       if cint(pageshow)=cint(i) then strtemp=strtemp & " selected "
  156. '                                       strtemp=strtemp & ">" & i & "</option>"  
  157. '                               next
  158. '                               strtemp=strtemp & "</select> 页"& vbCrLf
  159. '               end if
  160.         response.write strTemp
  161. End Function
  162.  
  163. '**************************************************
  164. '函数名:JoinChar
  165. '作用:向地址中加入 ? 或 &
  166. '参数:strurl --网址
  167. '返回值: 加了 ? 或 & 的网址
  168. '**************************************************
  169. Function JoinChar(strurl)
  170.         if strurl="" then
  171.                 JoinChar=""
  172.                 exit Function
  173.         end if
  174.         if InStr(strurl,"?")<len(strurl) then
  175.                 if InStr(strurl,"?")>1 then
  176.                         if InStr(strurl,"&")<len(strurl) then
  177.                                 JoinChar=strurl & "&"
  178.                         else
  179.                                 JoinChar=strurl
  180.                         end if
  181.                 else
  182.                         JoinChar=strurl & "?"
  183.                 end if
  184.         else
  185.                 JoinChar=strurl
  186.         end if
  187. End Function
  188.  
  189. '*************************************
  190. '函数功能:转换模板方案
  191. '*************************************
  192. Function TemplateProject(id)
  193.         if id<>"" and Isnumeric(id) then
  194.                 sqlproject="select P_name from Article_TemplateProject where P_id="&id
  195.                 set rsproject=Server.CreateObject("ADODB.RecordSet")
  196.                 rsproject.open sqlproject,conn,1,1
  197.                 if not rsproject.eof then
  198.                         TemplateProject=rsproject("P_name")
  199.                 else
  200.                         TemplateProject="没有所属方案"
  201.                 end if
  202.                 Closers(rsproject)
  203.         end if
  204. End Function
  205. '*************************************
  206.  
  207. TemplateArray = array ("网站首页模板","频道首页模板","文章列表模板","文章内容模板","关于我们模板")
  208.  
  209. '*************************************************************
  210. '查频道名称
  211. '*************************************************************
  212. Function ChannelNames(cid)
  213.         if Cid=0 then
  214.                 ChannelNames="网站首页"
  215.                 exit function
  216.         elseif cid=9999 then
  217.                 ChannelNames="通用频道"
  218.                 exit function
  219.         end if
  220.         if Cid<>"" and Isnumeric(cid) then
  221.                 sqlc="select C_name from Article_Channel where C_id="&Cid&""
  222.                 Set rsc=Server.CreateObject("ADODB.RecordSet")
  223.                 rsc.open sqlc,conn,1,1
  224.                 If not rsc.eof Then
  225.                         ChannelNames=rsc("C_name")
  226.                 else
  227.                         ChannelNames="未知"
  228.                 End If
  229.                 rsc.close
  230.                 Set rsc=Nothing
  231.         else
  232.                 ChannelNames="未知"
  233.         End if
  234. End Function
  235.  
  236. '***************************************************
  237. '函数名:LoadTemplate
  238. '作  用:读取模版内容函数
  239. '参  数:Cid,Tid,TempId
  240. '返回值:
  241. '***************************************************
  242. Function LoadTemplate(Cid,Tid,TempId)
  243. Dim fso,hndFile
  244. If Not IsNumeric(Cid) Or Not IsNumeric(Tid) Or Not IsNumeric(TempId) Then Exit Function
  245. set rsp=server.CreateObject("adodb.recordset")
  246. sql="select P_folder from Article_TemplateProject where P_isdefault=1"
  247. rsp.open sql,conn,1,1
  248. if not rsp.eof then
  249.         TemplateDir=rsp("P_folder")
  250. end if
  251. rsp.close
  252. set rsp=nothing
  253. Set fso = CreateObject("Scripting.FileSystemObject")
  254. If Not fso.FileExists(Server.MapPath(""&InstallDir&"Templates/"&TemplateDir&"/T_"&Cid&"_"&Tid&"_"&TempId&".html")) Then
  255. Response.Write("模板文件不存在!")
  256. Response.End()
  257. End If
  258. set hndFile = fso.OpenTextFile(Server.MapPath(""&InstallDir&"Templates/"&TemplateDir&"/T_"&Cid&"_"&Tid&"_"&TempId&".html"))
  259. LoadTemplate = hndFile.ReadAll
  260. Set hndFile = Nothing
  261. Set fso = Nothing
  262. If LoadTemplate = "" Then
  263. Response.Write("不能读取模板文件或文件为空!")
  264. Response.End()
  265. End If
  266. End Function
  267.  
  268. '*************************************
  269. '函数功能:删除指定的文件
  270. '*************************************
  271. Sub DoDelFile(spicpath)
  272.         On Error Resume Next
  273.         Dim FSO
  274.         Set FSO = Server.CreateObject("Scripting.FileSystemObject")
  275.         if fso.FileExists(Server.MapPath(spicpath)) then
  276.                 fso.DeleteFile(Server.MapPath(spicpath))
  277.         end if
  278.         Set FSO = Nothing
  279. End Sub
  280.  
  281. '*******************************************************
  282. '读取文件创建时间
  283. '*******************************************************
  284. Function ShowFileInfo(filespec)
  285.         Dim fso,f  
  286.         Set fso=Server.CreateObject("Scripting.FileSystemObject")
  287.         Set f= fso.GetFile(Server.MapPath(filespec))  
  288.         ShowFileInfo=f.DateLastModified
  289. End Function
  290.  
  291. '*************************************
  292. '函数功能:查广告位种类名称
  293. '*************************************
  294. Function AdplaceNames(adplaceid)
  295.         if adplaceid<>"" and Isnumeric(adplaceid) then
  296.                 set rs11=Server.CreateObject("ADODB.RecordSet")        
  297.                 sql11="select adplace_name from Article_Adplace where adplace_id="&adplaceid&""
  298.                 rs11.open sql11,conn,1,1
  299.                 if not rs11.eof then
  300.                         AdplaceNames=rs11("adplace_name")
  301.                 else
  302.                         AdplaceNames="未知"
  303.                 end if
  304.                 rs11.close
  305.                 set rs11=nothing
  306.         else
  307.                 AdplaceNames="未知"
  308.         end if
  309. End Function
  310.  
  311. '*************************************
  312. '函数功能:查广告位名称
  313. '*************************************
  314. Function AdpriceNames(adpriceid)
  315.         if adpriceid<>"" and Isnumeric(adpriceid) then
  316.                 set rs22=Server.CreateObject("ADODB.RecordSet")
  317.                 sql22="select Adsplace_name from Article_Adsplace where Adsplace_id="&adpriceid&""
  318.                 rs22.open sql22,conn,1,1
  319.                 if not rs22.eof then
  320.                         AdpriceNames=rs22("Adsplace_name")
  321.                 else
  322.                         AdpriceNames="未知"
  323.                 end if
  324.                 rs22.close
  325.                 set rs22=nothing
  326.         else
  327.                 AdpriceNames="未知"
  328.         end if
  329. End Function
  330.  
  331. '**************************************************
  332. '函数名:UpFilesPath
  333. '作  用:文件上传目录的监测
  334. '参  数:FilesPath
  335. '**************************************************
  336. Function UpFilesPath(FilesPath)
  337. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  338. if not fso.FolderExists(server.MapPath(InstallDir&"Upfiles"&"/"&FilesPath)) Then  
  339. fso.CreateFolder (server.MapPath(InstallDir&"Upfiles"&"/"&FilesPath))
  340. end if
  341. Session("sUploadDir")= InstallDir&"Upfiles"&"/"&FilesPath&"/"
  342. UpFilesPath=Session("sUploadDir")
  343. End Function
  344.  
  345. '********************************************************
  346. '函数功能:去除内容里面的html
  347. '********************************************************
  348. Function RemoveHTML(strText)
  349.         Dim RegEx
  350.         Set RegEx = New RegExp
  351.         RegEx.Pattern = "<[^>]*>"
  352.         RegEx.Global = True
  353.         Content = RegEx.Replace(strText, "")
  354.         Content = Replace(Content,"&nbsp;","")
  355.         RemoveHTML = Replace(Content,"  ","")
  356. End Function
  357.  
  358. '********************************************************
  359. '函数功能:日期格式化
  360. '********************************************************
  361. Function FormatDate(DT,tp)
  362.         dim Y,M,D
  363.         Y=Year(DT)
  364.         M=month(DT)
  365.         D=Day(DT)
  366.         H=Hour(DT)
  367.         MI=Minute(DT)
  368.         S=Second(DT)
  369.         if M<10 then M="0"&M
  370.         if D<10 then D="0"&D
  371.         if H<10 then H="0"&H
  372.         if MI<10 then MI="0"&MI
  373.         if S<10 then S="0"&S
  374.         select case tp
  375.         case 1 FormatDate=Y&"年"&M&"月"&D&"日"
  376.         case 2 FormatDate=Y&"/"&M&"/"&D
  377.         case 3 FormatDate=M&"/"&D
  378.     case 4 FormatDate=Y&"\"&M&"\"&D
  379.         case 5 FormatDate=Y&M
  380.         case 6 FormatDate=Y&M&D
  381.         case 7 FormatDate=Y&M&D&H&MI&S
  382.         case 8 FormatDate=Y&"-"&M&"-"&D
  383.         case 9 FormatDate=M&"-"&D
  384.         case 10 FormatDate=Y&"年"&M&"月"
  385.         end select
  386. End Function
  387.  
  388. '*******************************************************
  389. '函数功能:标签转换函数
  390. '*******************************************************
  391. Function CreateHTMLReplace(html)
  392.         if html<>"" and not isnull(html) then
  393.                 HTMLCode=Replace(html,"{$JY_网站名称}",sitenames)
  394.                 HTMLCode=Replace(HTMLCode,"{$JY_网站标题}",sitetitle&"--Power By JYcms!")
  395.                 HTMLCode=Replace(HTMLCode,"{$JY_网站网址}",siteurl)
  396.                 HTMLCode=Replace(HTMLCode,"{$JY_网站关键字}",sitekeywords)
  397.                 HTMLCode=Replace(HTMLCode,"{$JY_网站描述}",sitedescription)
  398.                 HTMLCode=Replace(HTMLCode,"{$JY_联系人}",ContactMan)
  399.                 HTMLCode=Replace(HTMLCode,"{$JY_联系地址}",address)
  400.                 HTMLCode=Replace(HTMLCode,"{$JY_联系电话}",telephone)
  401.                 HTMLCode=Replace(HTMLCode,"{$JY_联系传真}",fax)
  402.                 HTMLCode=Replace(HTMLCode,"{$JY_系统目录}",InstallDir)
  403.                 HTMLCode=Replace(HTMLCode,"{$JY_网站样式}",MainWebCss)
  404.                 HTMLCode=Replace(HTMLCode,"{$JY_网站导航}",SiteNav)
  405.                 HTMLCode=Replace(HTMLCode,"{$JY_页尾导航}",SiteBottom)
  406.                 HTMLCode=Replace(HTMLCode,"{$JY_通用导航}",SiteBottoms)
  407.                 HTMLCode=Replace(HTMLCode,"{$JY_网站logo}",SiteLogo)
  408.                 HTMLCode=Replace(HTMLCode,"{$JY_方案目录}",DefaultTempProFolder)
  409.                 HTMLCode=Replace(HTMLCode,"{$JY_热门搜索}",HotKey())
  410.                 CreateHTMLReplace=HTMLCode
  411.         end if
  412. End Function
  413.  
  414. '*************************************************
  415. '函数功能:读取网站的搜索关键字
  416. '*************************************************
  417. Function HotKey()
  418.         HotKeyhtml=""
  419.         sqlkey="Select top 10 K_words from Article_KeyWords order by K_hits desc,K_id desc"
  420.         Set rskey=Server.CreateObject("ADODB.RecordSet")
  421.         rskey.open sqlkey,conn,1,1
  422.         if not rskey.eof then
  423.                 for i=1 to rskey.recordcount
  424.                         HotKeyhtml=HotKeyhtml&"<a href='"&InstallDir&"Search/Article_Search.asp?keywords="&rskey("K_words")&"'>"&rskey("K_words")&"</a> "
  425.                 rskey.movenext
  426.                 next
  427.         end if
  428.         rskey.close
  429.         set rskey=nothing
  430.         HotKey=HotKeyhtml
  431. End Function
  432.  
  433. '*************************************************
  434. '函数功能:读取网站导航
  435. '*************************************************
  436. Function SiteNav()     
  437.         SiteNav="<li><a href="&FormatLink(0,0,0,0,0)&">网站首页</a></li>"
  438.         Set RsNav=Server.CreateObject("ADODB.RecordSet")
  439.         sqlNav="Select C_name,C_id,C_type,C_linkurl,C_Target from Article_Channel where C_Disable=0 order by C_order asc"
  440.         RsNav.open sqlNav,conn,1,1
  441.         if not RsNav.eof then
  442.                 Do while Not RsNav.eof
  443.                         if RsNav("C_type")=2 then
  444.                         SiteNav=SiteNav&"<li><a href="&RsNav("C_linkurl")&" target='"&RsNav("C_Target")&"'>"&RsNav("C_name")&"</a></li>"
  445.                         else
  446.                         SiteNav=SiteNav&"<li><a href="&FormatLink(0,RsNav("C_id"),0,0,0)&" target='"&RsNav("C_Target")&"'>"&RsNav("C_name")&"</a></li>"
  447.                         end if
  448.                 RsNav.movenext
  449.                 loop
  450.         end if
  451.         Closers(RsNav)
  452. End Function
  453.  
  454. '*************************************************
  455. '函数功能:读取页尾导航
  456. '*************************************************
  457. Function SiteBottom()
  458.         Set RsBottom=Server.CreateObject("ADODB.RecordSet")
  459.         sqlBottom="Select A_title,A_filename from Article_About where A_show=1 order by A_order asc"
  460.         RsBottom.open sqlBottom,conn,1,1
  461.         if not RsBottom.eof then
  462.                 i=1
  463.                 Do while Not RsBottom.eof                      
  464.                         SiteBottom=SiteBottom&"<a href="&InstallDir&"About/"&RsBottom("A_filename")&".html>"&RsBottom("A_title")&"</a>&nbsp;&nbsp;"
  465.                 RsBottom.movenext
  466.                 loop
  467.         end if
  468.         Closers(RsBottom)
  469. End Function
  470.  
  471. '*************************************************
  472. '函数功能:读取页尾导航
  473. '*************************************************
  474. Function SiteBottoms()
  475.         Set RsBottom=Server.CreateObject("ADODB.RecordSet")
  476.         sqlBottom="Select A_title,A_filename from Article_About where A_show=1 order by A_order asc"
  477.         RsBottom.open sqlBottom,conn,1,1
  478.         if not RsBottom.eof then
  479.                 i=1
  480.                 Do while Not RsBottom.eof                      
  481.                         SiteBottoms=SiteBottoms&"<li><a href="&InstallDir&"About/"&RsBottom("A_filename")&".html>"&RsBottom("A_title")&"</a></li>"
  482.                 RsBottom.movenext
  483.                 loop
  484.         end if
  485.         Closers(RsBottom)
  486. End Function
  487.  
  488.  
  489. '***************************************
  490. '链接地址函数:FormatLink()
  491. '参数:
  492. 'Dates:数据时间
  493. 'Cid:频道编号
  494. 'Tid:类别编号
  495. 'Nid:数据编号
  496. 'Pnum:分页数
  497. '***************************************
  498. Function FormatLink(Dates,Cid,Tid,Nid,Pnum)
  499.         If not (Isnumeric(Cid) And IsNumeric(Nid) and IsNumeric(Tid) And IsNumeric(Pnum)) Then Exit Function
  500.         Set Fso=Server.CreateObject("Scripting.FileSystemObject")
  501.         LinkUrl=InstallDir
  502.         if Cid=0 then   '首页
  503.                 if ishtml=1 then
  504.                         LinkUrl=LinkUrl&"index.html" '网站首页生成到根目录下
  505.                 else
  506.                         LinkUrl=LinkUrl&""
  507.                 end if
  508.         else
  509.                 '查频道的相关设置
  510.                 sqlc="select C_UseCreateHTML,C_Dir,C_IndexFileExt,C_ListFileExt,C_ContentFileExt,C_ListDir,C_ContentDir,C_ContentFileName,C_ModuleType from Article_Channel where C_id="&Cid&" and C_type=1"
  511.                 Set rsc=Server.CreateObject("ADODB.RecordSet")
  512.                 rsc.open sqlc,conn,1,1
  513.                 If rsc.eof Then
  514.                         rsc.close
  515.                         Set rsc=Nothing
  516.                         Exit Function
  517.                 Else
  518.                         UseCreateHTML=rsc("C_UseCreateHTML")
  519.                         ChannelDir=rsc("C_Dir")
  520.                         IndexFileExt=rsc("C_IndexFileExt")
  521.                         ListFileExt=rsc("C_ListFileExt")
  522.                         ContentFileExt=rsc("C_ContentFileExt")
  523.                         ListDir=rsc("C_ListDir")
  524.                         ContentDir=rsc("C_ContentDir")
  525.                         ContentFileName=rsc("C_ContentFileName")
  526.                         ModuleType=rsc("C_ModuleType")         
  527.                 End If
  528.                 rsc.close
  529.                 Set rsc=Nothing
  530.                 if UseCreateHTML<>0 and ishtml=1 then   '频道设置生成
  531.                         if htmlfolder<>"/" then
  532.                                 htmlfolder1=split(htmlfolder,"/")(0)
  533.                                 if not fso.FolderExists(server.MapPath(LinkUrl&htmlfolder1)) Then
  534.                                         fso.CreateFolder (server.MapPath(LinkUrl&htmlfolder1))
  535.                                 end if                 
  536.                                 if not fso.FolderExists(server.MapPath(LinkUrl&htmlfolder&ChannelDir)) Then
  537.                                         fso.CreateFolder (server.MapPath(LinkUrl&htmlfolder&ChannelDir))
  538.                                 end if
  539.                                 LinkUrl=LinkUrl&htmlfolder&ChannelDir&""
  540.                         else
  541.                                 LinkUrl=LinkUrl&ChannelDir&""
  542.                         end if
  543.                         '如果是频道首页
  544.                         if Nid=0 and Tid=0 then
  545.                                 LinkUrl=LinkUrl&"/index"&IndexFileExt&""
  546.                         end if
  547.                         '频道列表页
  548.                         if Tid<>0 and Nid=0 then
  549.                                 Select Case ListDir
  550.                                         Case 1
  551.                                         if not fso.FolderExists(server.MapPath(LinkUrl&"/list")) Then
  552.                                                 fso.CreateFolder (server.MapPath(LinkUrl&"/list"))
  553.                                         end if
  554.                                         LinkUrl=LinkUrl&"/list/list_"&Tid&""
  555.                                         If Pnum<>0 and Pnum<>1 then LinkUrl=LinkUrl&"_"&Pnum
  556.                                         Case 2
  557.                                         LinkUrl=LinkUrl&"/list_"&Tid&""
  558.                                         If Pnum<>0 and Pnum<>1 then LinkUrl=LinkUrl&"_"&Pnum
  559.                                 End Select
  560.                                 LinkUrl=LinkUrl&ListFileExt&""
  561.                         end if
  562.                         '频道内容页
  563.                         if Nid<>0 then
  564.                                 '内容页命名方式
  565.                                 Select Case ContentFileName
  566.                                         Case 1:htmlFileName=Nid
  567.                                         Case 2:htmlFileName=FormatDate(Dates,7)
  568.                                         Case 3:htmlFileName=ChannelDir&"_"&Nid
  569.                                         Case 4:htmlFileName=ChannelDir&"_"&FormatDate(Dates,7)
  570.                                 End Select
  571.                                 '内容存储文件夹
  572.                                 Select Case ContentDir
  573.                                         Case 1
  574.                                                 if not fso.FolderExists(server.MapPath(LinkUrl&"/"&FormatDate(Dates,5))) Then
  575.                                                         fso.CreateFolder (server.MapPath(LinkUrl&"/"&FormatDate(Dates,5)))
  576.                                                 end if
  577.                                                 LinkUrl=LinkUrl&"/"&FormatDate(Dates,5)&"/"&htmlFileName&""
  578.                                         Case 2
  579.                                                 if not fso.FolderExists(server.MapPath(LinkUrl&"/html")) Then
  580.                                                         fso.CreateFolder (server.MapPath(LinkUrl&"/html"))
  581.                                                 end if
  582.                                                 LinkUrl=LinkUrl&"/html/"&htmlFileName&""
  583.                                 End Select
  584.                                 If Pnum<>0 and Pnum<>1 then LinkUrl=LinkUrl&"_"&Pnum
  585.                                 LinkUrl=LinkUrl&ContentFileExt&""
  586.                         end if         
  587.                 '频道不设置生成         
  588.                 else
  589.                         '查频道表查出对应的频道存贮目录
  590.                         LinkUrl=LinkUrl&ChannelDir
  591.                         '频道首页
  592.                         if Tid=0 and Nid=0 then
  593.                                 LinkUrl=LinkUrl&"/"
  594.                         end if
  595.                         '频道其他页面            
  596.                         Select Case ModuleType
  597.                                 '文章模块
  598.                                 Case 10
  599.                                         if Tid<>0 and Nid=0 then LinkUrl=LinkUrl&"/list.asp?typeid="&Tid&""
  600.                                         if Tid<>0 and Nid<>0 then LinkUrl=LinkUrl&"/Info.asp?infoid="&Nid&""
  601.                                         if Tid=0 and Nid<>0 then LinkUrl=LinkUrl&"/Info.asp?infoid="&Nid&""
  602.                         End Select
  603.                         if Pnum<>0 then LinkUrl=JoinChar(LinkUrl)&"page="&Pnum&""
  604.                 end if
  605.         end if
  606. FormatLink=LinkUrl
  607. End Function
  608.  
  609.  
  610. '********************************************************
  611. 'HTML列表分页
  612. 'totalPut总记录数 MaxPerpage每页记录数 strUnit Pnum页数 Cid频道ID Tid分类ID ShowAllPages所有页面
  613. '********************************************************
  614. Function Htmlpages(Cid,Tid,Nid,totalPut,MaxPerpage,ShowAllPages,strUnit,Page)
  615. if totalPut mod MaxPerpage=0 then
  616.         n= totalput \ MaxPerpage
  617.         else
  618.         n= totalput \ MaxPerpage+1
  619.         end if
  620.         strTemp="共<font color=""#0000FF""><b>"&totalPut&"</b></font>"&strUnit&"&nbsp;"
  621.         if Page<2 then
  622.         strTemp=strTemp & "首页 上一页&nbsp;"
  623.         else
  624.                 strTemp=strTemp & "<a href="""&FormatLink(0,Cid,Tid,Nid,0)&""">首页</a>&nbsp;"
  625.                 strTemp=strTemp & "<a href="""&FormatLink(0,Cid,Tid,Nid,Page-1)&""">上一页</a>&nbsp;"
  626.         end if
  627.         if n-Page<1 then
  628.         strTemp=strTemp & "下一页 尾页"
  629.         else
  630.                 strTemp=strTemp & "<a href="""&FormatLink(0,Cid,Tid,Nid,Page+1)&""">下一页</a>&nbsp;"
  631.                 strTemp=strTemp & "<a href="""&FormatLink(0,Cid,Tid,Nid,n)&""">尾页</a>"
  632.         end if
  633.         strTemp=strTemp & "&nbsp;页次:<strong><font color=""#FF0000"">"&Page&"</font>/"&n& "</strong>页 "
  634.     strTemp=strTemp & "<b>"&MaxPerpage&"</b>"&strUnit&"/页"& vbCrLf
  635.         if ShowAllPages=True then
  636.                 strTemp=strTemp & "<select name=""page"" size=""1"" onchange=""javascript:window.location=this.options[this.selectedIndex].value;"">"& vbCrLf
  637.                 for i = 1 to n  
  638.                         strTemp=strTemp & "<option value="""&FormatLink(0,Cid,Tid,Nid,i)&""""
  639.                         if cint(Page)=cint(i) then strTemp=strTemp & " selected "
  640.                         strTemp=strTemp & ">第"&i&"页</option>"  
  641.                 next
  642.                 strTemp=strTemp & "</select>"& vbCrLf
  643.         end if
  644.         Htmlpages=strTemp
  645. End Function
  646.  
  647. '**************************************
  648. '函数:NewsSort()
  649. '参数:sortid,文章类别保存的id
  650. '功能:根据文章类别的编号找出对应的文章类别名称
  651. '**************************************
  652. Function NewsSort(sortid)
  653.         if sortid<>"" and Isnumeric(sortid) then
  654.                 sqltype="select S_name from Article_NewsSort where S_id="&sortid
  655.                 set rstype=Server.CreateObject("ADODB.RecordSet")
  656.                 rstype.open sqltype,conn,1,1
  657.                 if not rstype.eof then
  658.                         NewsSort=rstype("S_name")
  659.                 else
  660.                         NewsSort="未归类"
  661.                 end if
  662.                 Closers(rstype)
  663.         else
  664.                 NewsSort="未归类"
  665.         end if
  666. End Function
  667.  
  668. '*************************************************************
  669. '文章频道搜索
  670. '*************************************************************
  671. Function GetArticleSearch(Asid)
  672.         ArticleSearch="<form name=""searchform"" action="""&InstallDir&"Search/Article_Search.asp"" method=""post"" style=""padding:0; margin:0;""><li><input name=""keywords"" type=""text"" class=""isearchtxt"" value=""请输入关键字..."" onblur=""if(this.value=='') this.value='请输入关键字...';"" onfocus=""if(this.value=='请输入关键字...') this.value='';"" /></li>"
  673.         ArticleSearch=ArticleSearch&"<li><select name=""s_type""><option value=""N_title"" selected=""selected"">标题搜索</option><option value=""N_content"">内容搜索</option></select>&nbsp;"
  674.         ArticleSearch=ArticleSearch&"<select name=""info_type""><option value=''>全部资讯</option>"
  675.         sqlArticleSearch="select S_id,S_name from Article_NewsSort where S_cid="&Asid&" order by S_order asc"
  676.         set rsArticleSearch=Server.CreateObject("ADODB.RecordSet")
  677.         rsArticleSearch.open sqlArticleSearch,conn,1,1
  678.         if not rsArticleSearch.eof then
  679.         for ArticleSearchi=1 to rsArticleSearch.recordcount
  680.         ArticleSearch=ArticleSearch&"<option value="&rsArticleSearch("S_id")&">"&rsArticleSearch("S_name")&"</option>"
  681.         rsArticleSearch.movenext
  682.         next
  683.         end if
  684.         closers(rsArticleSearch)
  685.         ArticleSearch=ArticleSearch&"</select>&nbsp;<input name=""isearchbtn"" type=""Submit"" value=""搜索"" class=""isearchbtn"" /></li></form>"
  686.         GetArticleSearch=ArticleSearch
  687. End Function
  688.  
  689. '***************************************************
  690. '函数功能:循环输出文章类别
  691. '***************************************************
  692. Function GetArticleType(cid)
  693. typehtml=""
  694. if cid<>"" and Isnumeric(cid) then
  695.         sqltype="select S_name,S_id,S_cid from Article_NewsSort where S_cid="&cid
  696.         set rstype=Server.CreateObject("ADODB.RecordSet")
  697.         rstype.open sqltype,conn,1,1
  698.         if not rstype.eof then
  699.                 for typenum=1 to rstype.recordcount
  700.                         typehtml=typehtml&"<li><a href="&FormatLink(0,rstype("S_cid"),rstype("S_id"),0,0)&" target=""_blank"">"&rstype("S_name")&"</a></li>"
  701.                 rstype.movenext
  702.                 next
  703.         end if
  704.         closers(rstype)
  705.         GetArticleType=typehtml
  706. else
  707.         GetArticleType=""
  708. end if 
  709. End Function
  710.  
  711. '*************************************************************
  712. '功能:资讯上一篇文章
  713. '*************************************************************
  714. Function InfoFirst(Aid)
  715.         if Aid="" or not Isnumeric(Aid) then
  716.                 InfoFirst="没有上一篇文章"
  717.         else
  718.                 sqlinfo="select top 1 N_id,N_title,N_addtime,N_sid,N_cid from Article_News where N_id<"&Aid&" and N_cid="&session("JYcmsChannelID")&" order by N_id desc"
  719.                 set rsinfo=Server.CreateObject("ADODB.RecordSet")
  720.                 rsinfo.open sqlinfo,conn,1,1
  721.                 if not rsinfo.eof then
  722.                         InfoLink=FormatLink(rsinfo("N_addtime"),rsinfo("N_cid"),rsinfo("N_sid"),rsinfo("N_id"),0)
  723.                         InfoFirst="<a href="&InfoLink&">"&rsinfo("N_title")&"</a>"
  724.                 else
  725.                         InfoFirst="没有上一篇文章"
  726.                 end if
  727.                 closers(rsinfo)
  728.         end if
  729. End Function
  730.  
  731. '*************************************************************
  732. '功能:资讯下一篇文章
  733. '*************************************************************
  734. Function InfoNext(Aid)
  735.         if Aid="" or not Isnumeric(Aid) then
  736.                 InfoNext="没有下一篇文章"
  737.         else
  738.                 sqlinfo="select top 1 N_id,N_title,N_addtime,N_sid,N_cid from Article_News where N_id>"&Aid&" and N_cid="&session("JYcmsChannelID")&" order by N_id asc"
  739.                 set rsinfo=Server.CreateObject("ADODB.RecordSet")
  740.                 rsinfo.open sqlinfo,conn,1,1
  741.                 if not rsinfo.eof then
  742.                         InfoLink=FormatLink(rsinfo("N_addtime"),rsinfo("N_cid"),rsinfo("N_sid"),rsinfo("N_id"),0)
  743.                         InfoNext="<a href="&InfoLink&">"&rsinfo("N_title")&"</a>"
  744.                 else
  745.                         InfoNext="没有下一篇文章"
  746.                 end if
  747.                 closers(rsinfo)
  748.         end if
  749. End Function
  750.  
  751. '***************************************************
  752. '函数功能:动态调用网站页头
  753. '***************************************************
  754. Sub head()
  755. headhtml="{$JY_网站Head}"
  756. headhtml=ReplaceLableFlag(ReplaceAllLabel(headhtml))
  757. Response.Write(CreateHTMLReplace(headhtml))
  758. End Sub
  759.  
  760. '***************************************************
  761. '函数功能:动态调用网站页尾
  762. '***************************************************
  763. Sub bottom()
  764. headhtml="{$JY_网站Bottom}"
  765. headhtml=ReplaceLableFlag(ReplaceAllLabel(headhtml))
  766. Response.Write(CreateHTMLReplace(headhtml))
  767. end sub
  768.  
  769. '***************************************************
  770. '函数功能:生成频道首页静态文件
  771. '***************************************************
  772. Sub CreateArticleIndex(Cid)
  773.         '根据频道编号Cid读取对应的频道的相关信息
  774.         Set Fso=Server.CreateObject("Scripting.FileSystemObject")
  775.         Set rsc=Server.CreateObject("ADODB.RecordSet")
  776.         sqlc="Select C_Name,C_Dir,C_Keywords,C_Description,C_UseCreateHTML,C_IndexFileExt from Article_Channel where C_id="&Cid&""
  777.         rsc.open sqlc,conn,1,1
  778.         if not rsc.eof then
  779.                 Cname=rsc("C_name")
  780.                 CDir=rsc("C_Dir")
  781.                 CKeywords=rsc("C_Keywords")
  782.                 CDescription=rsc("C_Description")
  783.                 CUseCreateHTML=rsc("C_UseCreateHTML")
  784.         end if
  785.         closers(rsc)
  786.         if CUseCreateHTML<>0 then
  787.                 '读取频道模板,替换标签,函数,生成文件
  788.                 session("JYCmsChannelID") = Cid                        
  789.                 html=LoadTemplate(Cid,1,0)
  790.                 html=ReplaceLableFlag(html)
  791.                 html=Replace(html,"{$JY_频道名称}",Cname)
  792.                 html=Replace(html,"{$JY_频道目录}",CDir)
  793.                 html=Replace(html,"{$JY_资讯导航}",""&GetArticleType(Cid)&"")
  794.                 html=Replace(html,"{$JY_频道关键词}",""&CKeywords&"")
  795.                 html=Replace(html,"{$JY_频道描述}",""&CDescription&"")
  796.                 html=Replace(html,"{$JY_资讯搜索}",""&GetArticleSearch(Cid)&"")
  797.                 html=Replace(html,"{$JY_频道编号}",Cid)
  798.                 html=CreateHTMLReplace(html)
  799.                 HtmlFileName=Server.MapPath(FormatLink(0,Cid,0,0,0))
  800.                 Fso.CreateTextFile(HtmlFileName).WriteLine(html)                                               
  801.         end if
  802.         Set Fso=nothing
  803. End Sub
  804.  
  805. '****************************************************
  806. '函数功能:生成栏目列表页
  807. '参数:
  808. 'Cid:频道编号
  809. 'Sid:栏目编号
  810. 'refreshpage:每轮更新页数
  811. 'maxpage:最大更新页数
  812. '****************************************************
  813. Sub CreateNewsHtmlList(Cid,Sid,refreshpage,maxpage)
  814.         if not isNumeric(Cid) or not isNumeric(Sid) or not isNumeric(refreshpage) or not isNumeric(maxpage) then
  815.                 Response.Redirect("Admin_CreateHtml.asp")
  816.                 Response.End()
  817.         end if
  818.         '读取频道设置
  819.         set Cnhlrs=conn.execute("select C_ListMaxNum from Article_Channel where C_id="&Cid&"")
  820.                 MaxPerPage=Cnhlrs("C_ListMaxNum")
  821.         set Cnhlrs=nothing
  822.         set Cnhlrs=server.createobject("adodb.recordset")
  823.         sql="select N_sid from Article_News where N_sid="&Sid&" and N_cid="&Cid&""
  824.         Cnhlrs.open sql,conn,1,1
  825.         if Cnhlrs.eof then
  826.         Call NewsListHtml(Cid,Sid,1)
  827.         else
  828.         Cnhlrs.pagesize=MaxPerPage
  829.         mpage=Cnhlrs.pagecount     '得到总分页数
  830.         '如果总的分页数大于要生成的最大更新数,则只生成第1到最大更新数
  831.         if Clng(mpage)>Clng(maxpage) then
  832.                 mpage=maxpage
  833.         end if
  834.         '如果更新数为每轮更新数,则刷新页面
  835.         Cnhlrs.close
  836.         for i=1 to mpage
  837.                 Call NewsListHtml(Cid,Sid,i)
  838.         next
  839.         end if
  840. End Sub
  841.  
  842. '***************************************************
  843. '函数功能:生成文章列表静态页
  844. '参数:Cid:频道编号,Sid:类别编号,i:列表第n页
  845. '***************************************************
  846. Sub NewsListHtml(Cid,Sid,Page)
  847.         if not isNumeric(Sid) and not isNumeric(Cid) and not isNumeric(i) then
  848.                 exit Sub
  849.         end if
  850.        
  851.         set rs=conn.execute("select S_id,S_name from Article_NewsSort where S_id="&Sid&" and S_cid="&Cid&"")
  852.         if not rs.eof then
  853.                 Sname=rs("S_name")
  854.                 Sid=rs("S_id")
  855.         end if
  856.         rs.close
  857.         set rs=nothing
  858.        
  859.         Set rsc=Server.CreateObject("ADODB.RecordSet")
  860.         sqlc="Select C_Name,C_Dir,C_Keywords,C_Description,C_UseCreateHTML,C_ListDir,C_ListFileExt,C_ListMaxNum from Article_Channel where C_id="&Cid&""
  861.         rsc.open sqlc,conn,1,1
  862.         if not rsc.eof then
  863.                 Cname=rsc("C_name")
  864.                 CDir=rsc("C_Dir")
  865.                 CKeywords=rsc("C_Keywords")
  866.                 CDescription=rsc("C_Description")
  867.                 CUseCreateHTML=rsc("C_UseCreateHTML")
  868.                 CListFileExt=rsc("C_ListFileExt")
  869.                 CListDir=rsc("C_ListDir")
  870.                 CListMaxNum=rsc("C_ListMaxNum")
  871.         end if
  872.         closers(rsc)
  873.        
  874.         session("JYcmsChannelID") = Cid
  875.         session("JYcmsTypeID") = Sid
  876.         session("JYcmsPage")=Page
  877.  
  878.        
  879.         if CUseCreateHTML=0 then
  880.                 Call WrongMsg("频道["&Cname&"]没有开启生成静态的功能!","Admin_CreateHtml.asp")
  881.                 Response.End()
  882.         else           
  883.                 Set Fso=Server.CreateObject("Scripting.FileSystemObject")
  884.                 html=LoadTemplate(Cid,2,0)
  885.                 html=ReplaceLableFlag(html)
  886.                 html=Replace(html,"{$JY_频道地址}",FormatLink(0,cid,0,0,0))
  887.                 html=Replace(html,"{$JY_频道名称}",ChannelNames(cid))
  888.                 html=Replace(html,"{$JY_列表关键词}",SKeywords)
  889.                 html=Replace(html,"{$JY_列表描述}",Sdescription)
  890.                 html=Replace(html,"{$JY_资讯类别地址}",FormatLink(0,cid,Sid,0,0))
  891.                 html=Replace(html,"{$JY_资讯类别名称}",NewsSort(Sid))
  892.                 html=Replace(html,"{$JY_资讯导航}",""&GetArticleType(Cid)&"")
  893.                 html=Replace(html,"{$JY_资讯搜索}",""&GetArticleSearch(cid)&"")
  894.                 html=CreateHTMLReplace(html)
  895.                 HtmlFileName=Server.MapPath(FormatLink(0,Cid,Sid,0,page))
  896.                 Fso.CreateTextFile(HtmlFileName).WriteLine(html)&"<script src="&InstallDir&"AutoHtml/list.asp?page="&page&"&cid="&cid&"&sid="&sid&"></script>"
  897.                 Set fso=nothing
  898.         end if
  899. End Sub
  900.  
  901. '********************************************************
  902. '函数功能:生成文章内容HTML页
  903. '********************************************************
  904. Sub NewsContentHtml(NewsStr)
  905.         dim page,contentNum,MMText
  906.         if not isNumeric(NewsStr) then
  907.                 exit Sub
  908.         end if
  909.         '读取文章信息
  910.         set rs=conn.execute("select * from Article_News where N_id="&NewsStr&"")
  911.         if not rs.eof then
  912.                 N_id=rs("N_id")
  913.                 N_title=rs("N_title")
  914.                 N_content=rs("N_content")
  915.                 N_typeid=rs("N_sid")
  916.                 N_channelid=rs("N_cid")
  917.                 N_addtime=rs("N_addtime")
  918.                 if rs("N_overview")<>"" then
  919.                 news_info="<div class=""Ishortcontent""><b>[导读]</b>"&rs("N_overview")&"</div>"
  920.                 news_infos=rs("N_overview")
  921.                 else
  922.                 news_infos=rs("N_title")
  923.                 end if
  924.                 N_keywords=rs("N_keywords")
  925.                 if N_keywords="" then N_keywords=rs("N_title")
  926.                 N_from=rs("N_from")
  927.                 if rs("N_author")<>"" then
  928.                 N_author=rs("N_author")
  929.                 else
  930.                 N_author="未知"
  931.                 end if
  932.                 N_hits=rs("N_hits")
  933.                
  934.                 if N_color<>"" then
  935.                 N_titles="<font color="&N_color&">"&N_title&"</font>"
  936.                 else
  937.                 N_titles=N_title
  938.                 end if 
  939.                 closers(rs)
  940.                
  941.                 session("JYcmsChannelID") = N_channelid
  942.                 session("JYcmsTypeID") = N_typeid
  943.                
  944.                 Templatehtml=LoadTemplate(N_channelid,3,0)
  945.                 Templatehtml=Replace(Templatehtml,"{$JY_频道地址}",FormatLink(0,N_channelid,0,0,0))
  946.                 Templatehtml=Replace(Templatehtml,"{$JY_频道名称}",ChannelNames(N_channelid))
  947.                 Templatehtml=Replace(Templatehtml,"{$JY_文章描述}",news_infos)
  948.                 Templatehtml=Replace(Templatehtml,"{$JY_文章关键词}",N_keywords)
  949.                 Templatehtml=Replace(Templatehtml,"{$JY_文章编号}",N_id)
  950.                 Templatehtml=Replace(Templatehtml,"{$JY_文章概况}",news_info)
  951.                 Templatehtml=Replace(Templatehtml,"{$JY_文章标题}",N_titles)
  952.                 Templatehtml=Replace(Templatehtml,"{$JY_资讯类别地址}",FormatLink(0,N_channelid,N_typeid,0,0))
  953.                 Templatehtml=Replace(Templatehtml,"{$JY_资讯类别名称}",NewsSort(N_typeid))
  954.                 Templatehtml=Replace(Templatehtml,"{$JY_资讯导航}",""&GetArticleType(N_channelid)&"")
  955.                 Templatehtml=Replace(Templatehtml,"{$JY_文章作者}",N_author)
  956.                 Templatehtml=Replace(Templatehtml,"{$JY_更新时间}",N_addtime)
  957.                 Templatehtml=Replace(Templatehtml,"{$JY_文章来源}",N_from)
  958.                 Templatehtml=Replace(Templatehtml,"{$JY_网站评论}",InfoComment(N_id))
  959.                 Templatehtml=Replace(Templatehtml,"{$JY_文章上一篇}",InfoFirst(N_id))
  960.                 Templatehtml=Replace(Templatehtml,"{$JY_文章下一篇}",InfoNext(N_id))
  961.                 Templatehtml=Replace(Templatehtml,"{$JY_查看次数}","<span id='hits'></span>")
  962.                 Templatehtml=Replace(Templatehtml,"{$JY_资讯搜索}",""&GetArticleSearch(N_channelid)&"")            
  963.                
  964.                 set rs=conn.execute("select C_UseCreateHTML from Article_Channel where C_id="&N_channelid&"")
  965.                         UseCreateHTML=rs("C_UseCreateHTML")
  966.                 set rs=nothing
  967.                        
  968.                 '判断是否生成文件
  969.                 if UseCreateHTML=1 and ishtml=1 then
  970.                         '生成文件
  971.                         Set Fso=Server.CreateObject("Scripting.FileSystemObject")
  972.                        
  973.                         '考滤保险起见,我们用replace函数在分页代码前后各加一个全角空格
  974.                         contentNum=""
  975.                         MMText=replace(N_content,"[JYPage]"," [JYPage] ")
  976.                         MMTexts=replace(N_content,"[JYPage]"," [JYPage] ")
  977.                         MMfText=split(MMText,"[JYPage]")
  978.                         contentNum=ubound(MMfText) '文章的分页数
  979.                        
  980.                         if contentNum>0 then '内容有分页                  
  981.                                 for pagenums=1 to contentNum+1
  982.                                         Templatehtmls=""
  983.                                         HtmlFileName=Server.MapPath(""&FormatLink(N_addtime,N_channelid,N_typeid,N_id,pagenums)&"")
  984.                                         Set fout = fso.CreateTextFile(HtmlFileName)
  985.                                         Templatehtmls=Replace(Templatehtml,"{$JY_文章内容}",MMfText(pagenums-1))
  986.                                         Templatehtmls=Replace(Templatehtmls,"{$JY_文章分页}",ArticleContentPage(contentNum,pagenums,N_id,N_addtime,N_channelid,N_typeid))
  987.                                         Templatehtmls=ReplaceLableFlag(Templatehtmls)
  988.                                         Templatehtmls=CreateHTMLReplace(Templatehtmls) 
  989.                                         fout.WriteLine Templatehtmls&"<script src="&InstallDir&"AutoHtml/info.asp?infoid="&N_id&"&htmlname="&FormatLink(N_addtime,N_channelid,N_typeid,N_id,pagenums)&"></script>"
  990.                                         fout.close
  991.                                         set fout = nothing
  992.                                 next
  993.                         else
  994.                                 HtmlFileName=Server.MapPath(""&FormatLink(N_addtime,N_channelid,N_typeid,N_id,0)&"")
  995.                                 Set fout = fso.CreateTextFile(HtmlFileName)                    
  996.                                 Templatehtml=Replace(Templatehtml,"{$JY_文章内容}",N_content)
  997.                                 Templatehtml=Replace(Templatehtml,"{$JY_文章分页}","")
  998.                                 Templatehtml=ReplaceLableFlag(Templatehtml)
  999.                                 Templatehtml=CreateHTMLReplace(Templatehtml)   
  1000.                                 fout.WriteLine Templatehtml&"<script src="&InstallDir&"AutoHtml/info.asp?infoid="&N_id&"&htmlname="&FormatLink(N_addtime,N_channelid,N_typeid,N_id,0)&"></script>"
  1001.                                 fout.close
  1002.                                 set fout = nothing
  1003.                         end if
  1004.                        
  1005.                         Set fso = nothing
  1006.                 end if
  1007.         end if
  1008. End Sub
  1009.  
  1010. Function ArticleContentPage(contentNum,page,infoid,N_addtime,N_channelid,N_typeid)
  1011. dim Article_List,Article_Lists
  1012. Article_List=""
  1013. Article_Lists=""
  1014. if contentNum>0 then '分页数大于1
  1015.         Article_List="<div class='AcontentPage'>"
  1016.         if page>1 then
  1017.                 Article_List=Article_List&"<li><a href='"&FormatLink(N_addtime,N_channelid,N_typeid,infoid,page-1)&"'>上一页</a></li>"
  1018.         else
  1019.                 Article_List=Article_List&"<li style='padding:0 5px;'>上一页</li>"
  1020.         end if
  1021.         for pagenum=1 to contentNum+1
  1022.                 if pagenum-page=0 then
  1023.                 Article_Lists=Article_Lists&"<li style='padding:0 5px;'>"&pagenum&"</li>"
  1024.                 else
  1025.                 Article_Lists=Article_Lists&"<li><a href='"&FormatLink(N_addtime,N_channelid,N_typeid,infoid,pagenum)&"'>"&pagenum&"</a></li>"
  1026.                 end if
  1027.         next
  1028.         Article_List=Article_List&Article_Lists
  1029.         if page-1-contentNum<>0 then
  1030.                 Article_List=Article_List&"<li><a href='"&FormatLink(N_addtime,N_channelid,N_typeid,infoid,page+1)&"'>下一页</a></li>"
  1031.         else
  1032.                 Article_List=Article_List&"<li style='padding:0 5px;'>下一页</li>"
  1033.         end if
  1034.         Article_List=Article_List&"</div>"
  1035. else
  1036.         Article_List=""
  1037. end if
  1038. ArticleContentPage=Article_List
  1039.  
  1040. End Function
  1041.  
  1042. '********************************************************
  1043. '函数功能:文章评论表单
  1044. '********************************************************
  1045. Function InfoComment(newsid)
  1046. if newsid<>"" and Isnumeric(newsid) and SiteComment=1 then
  1047.         InfoComment="<div class='Icomment'><div class='main_tit'>发表评论</div>"
  1048.         InfoComment=InfoComment&"<div class='main_con'><a name='pl' id='pl'></a><table width='99%' border='0' align='center' cellpadding='3' cellspacing='0'><form name='form2' method='post' action='"&InstallDir&"Comment/Submit_Comment.asp?newsid="&newsid&"' onsubmit='return CheckPl();'>"
  1049.         InfoComment=InfoComment&"<tr><td colspan='3'><span class='f00'>*</span> 评论内容:</td></tr>"
  1050.         InfoComment=InfoComment&"<tr><td colspan='3'><textarea name='plcontent' cols='80' rows='6'></textarea></td></tr>"
  1051.         InfoComment=InfoComment&"<tr><td width='35%'><span class='f00'>*</span> 您的大名:<input name='plname' type='text' id='plname' /></td><td width='65%' colspan='2'><span class='f00'>*</span> 您的email:<input name='plemail' type='text' id='plemail' size='30' /></td></tr>"
  1052.         InfoComment=InfoComment&"<tr><td colspan='3'><input type='submit' name='Submit' value='发表评论' />&nbsp;<input type='reset' name='Submit2' value='重新填写' /></td></tr>"
  1053.         InfoComment=InfoComment&"<tr><td colspan='3'><b>发表评论须知:</b><br />一、所发文章必须遵守《互联网电子公告服务管理规定》; <br />二、严禁发布供求代理信息、公司介绍、产品信息等广告宣传信息; <br />三、严禁恶意重复发帖; <br />四、严禁对个人、实体、民族、国家等进行漫骂、污蔑、诽谤。</td></tr>"
  1054.         InfoComment=InfoComment&"</form></table></div></div>"
  1055. else
  1056.         InfoComment=""
  1057. end if
  1058. End Function
  1059. %>
downloadCommonCode.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