BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Info.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. If JY_Sql = True then Call SQLin()
  8. infoid=request("infoid")
  9. if infoid="" or not IsNumeric(infoid) then
  10. response.Write ("<script>alert('该页面不存在,请访问其他内容');history.go(-1);</script>")
  11. Response.end()
  12. end if
  13. '读取文章信息
  14. set rs=conn.execute("select * from Article_News where N_id="&infoid&"")
  15. if not rs.eof then
  16. N_id=rs("N_id")
  17. N_title=rs("N_title")
  18. N_content=rs("N_content")
  19. N_typeid=rs("N_sid")
  20. N_channelid=rs("N_cid")
  21. N_addtime=rs("N_addtime")
  22. if rs("N_overview")<>"" then
  23. news_info="<div class=""Ishortcontent""><b>[导读]</b>"&rs("N_overview")&"</div>"
  24. news_infos=rs("N_overview")
  25. else
  26. news_infos=rs("N_title")
  27. end if
  28. N_keywords=rs("N_keywords")
  29. if N_keywords="" then N_keywords=rs("N_title")
  30. N_from=rs("N_from")
  31. if rs("N_author")<>"" then
  32. N_author=rs("N_author")
  33. else
  34. N_author="未知"
  35. end if
  36. N_hits=rs("N_hits")
  37.  
  38. if N_color<>"" then
  39. N_titles="<font color="&N_color&">"&N_title&"</font>"
  40. else
  41. N_titles=N_title
  42. end if
  43. else
  44. response.Write ("<script>alert('该页面不存在,请访问其他内容');history.go(-1);</script>")
  45. Response.end()
  46. end if
  47. closers(rs)
  48.  
  49. '考滤保险起见,我们用replace函数在分页代码前后各加一个全角空格
  50. dim page,contentNum
  51. contentNum=""
  52. MMText=replace(N_content,"[JYPage]"," [JYPage] ")
  53. MMfText=split(MMText,"[JYPage]")
  54. contentNum=ubound(MMfText) '文章的分页数
  55. page=Clng(request("page"))
  56. if page<1 or page="" or Not Isnumeric(page) then page=1
  57. if page>=contentNum+1 then page=contentNum+1
  58.  
  59. session("JYcmsChannelID") = N_channelid
  60. session("JYcmsTypeID") = N_typeid
  61.  
  62. '读取模版内容
  63. Templatehtml=LoadTemplate(N_channelid,3,0)
  64. Templatehtml=Replace(Templatehtml,"{$JY_频道地址}",FormatLink(0,N_channelid,0,0,0))
  65. Templatehtml=Replace(Templatehtml,"{$JY_频道名称}",ChannelNames(N_channelid))
  66. Templatehtml=Replace(Templatehtml,"{$JY_文章描述}",news_infos)
  67. Templatehtml=Replace(Templatehtml,"{$JY_文章编号}",N_id)
  68. Templatehtml=Replace(Templatehtml,"{$JY_资讯导航}",""&GetArticleType(N_channelid)&"")
  69. Templatehtml=Replace(Templatehtml,"{$JY_网站评论}",InfoComment(N_id))
  70. Templatehtml=Replace(Templatehtml,"{$JY_评论列表}",InfoCommentList(N_id))
  71. Templatehtml=Replace(Templatehtml,"{$JY_文章分页}",ArticleContentPage(contentNum,page,infoid,N_addtime,N_channelid,N_typeid))
  72. Templatehtml=Replace(Templatehtml,"{$JY_文章概况}",news_info)
  73. Templatehtml=Replace(Templatehtml,"{$JY_文章标题}",N_titles)
  74. Templatehtml=Replace(Templatehtml,"{$JY_资讯类别地址}",FormatLink(0,N_channelid,N_typeid,0,0))
  75. Templatehtml=Replace(Templatehtml,"{$JY_资讯类别名称}",NewsSort(N_typeid))
  76. Templatehtml=Replace(Templatehtml,"{$JY_文章作者}",N_author)
  77. Templatehtml=Replace(Templatehtml,"{$JY_更新时间}",N_addtime)
  78. Templatehtml=Replace(Templatehtml,"{$JY_文章来源}",N_from)
  79. Templatehtml=Replace(Templatehtml,"{$JY_文章内容}",N_content)
  80. Templatehtml=Replace(Templatehtml,"{$JY_文章上一篇}",InfoFirst(N_id))
  81. Templatehtml=Replace(Templatehtml,"{$JY_文章下一篇}",InfoNext(N_id))
  82. Templatehtml=Replace(Templatehtml,"{$JY_查看次数}","<span id='hits'></span>")
  83. Templatehtml=Replace(Templatehtml,"{$JY_资讯搜索}",""&GetArticleSearch(N_channelid)&"")
  84. Templatehtml=ReplaceLableFlag(Templatehtml)
  85. Response.Write(CreateHTMLReplace(Templatehtml))
  86. Call CloseConn()
  87. %>
  88.  
downloadInfo.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