BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download index.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="conn/conn.asp" -->
  3. <!--#include file="inc/commoncode.asp" -->
  4. <!--#include file="inc/commonfunction.asp" -->
  5. <%
  6. Call CloseSite()
  7. Cid=0
  8. Set fso = Server.CreateObject("Scripting.FileSystemObject")
  9. if ishtml=1 then
  10.         If datediff("s",Application("JYcms_index_updatetime"),Now())>60*CreateTime then        
  11.                 Call TempIndex()
  12.                 Application.Lock
  13.                 Application("JYcms_index_updatetime") = Now()
  14.                 Application.unLock
  15.                 response.redirect FormatLink(0,Cid,0,0,0)
  16.                 Response.End()
  17.         Else
  18.                 '判断首页html文件是否存在,不存在则生成
  19.                 sMapFileName = Server.MapPath(FormatLink(0,Cid,0,0,0))
  20.                 If Not FSO.FileExists(sMapFileName) Then
  21.                         Call TempIndex()
  22.                 end if
  23.                 response.redirect FormatLink(0,Cid,0,0,0)
  24.                 Response.End()
  25.         End if
  26. else
  27.         Call TempIndex()
  28. End if
  29.  
  30. Sub TempIndex()
  31.         '读取模版内容
  32.         html=LoadTemplate(0,0,0)
  33.         html=ReplaceLableFlag(html)
  34.         html=Replace(html,"{$JY_频道编号}",Cid)
  35.         If ishtml=1 Then
  36.                 HtmlFileName=Server.MapPath(FormatLink(0,0,0,0,0))
  37.                 Fso.CreateTextFile(HtmlFileName).WriteLine(CreateHTMLReplace(html))&"<script src="&InstallDir&"AutoHtml/index.asp?id="&Cid&"></script>"
  38.         Else
  39.                 Response.Write(CreateHTMLReplace(html))
  40.         End if
  41. End Sub
  42. Set fso = Nothing
  43. Call CloseConn()
  44. %>
downloadindex.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