开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 网格计算 > 查看源码
Cls_Template.asp
资源名称：ISite_Webmaster.rar　[点击查看]
上传用户：jiajie98
上传日期：2020-04-24
资源大小：1206k
文件大小：44k
源码类别：

网格计算

开发平台：

PHP

Cls_Template.asp：源码内容
  1. <%
  2. '==========================================
  3. '文 件 名：Cls_Template.asp
  4. '文件用途：模板引擎函数类
  5. '版权所有：方卡在线
  6. '==========================================
  8. Class Cls_Template
  9. Private TemplateTag,TemplatePar,TemplateBCode
  10. Private If1,If2
  11. '==============================
  12. '函 数 名：SiteChange
  13. '作    用：替换站点参数
  14. '参    数：
  15. '==============================
  16. Public Function SiteChange(TemplateCode)
  17. TemplateCode=Replace(TemplateCode,"{$SiteName$}",SiteName)
  18. TemplateCode=Replace(TemplateCode,"{$SiteUrl$}",SiteUrl)
  19. TemplateCode=Replace(TemplateCode,"{$SiteKeyword$}",SiteKeyword)
  20. TemplateCode=Replace(TemplateCode,"{$SiteDescription$}",SiteDescription)
  21. TemplateCode=Replace(TemplateCode,"{$SiteSkin$}",SiteDir&"Skin/"&SiteTemplate&"/")
  22. TemplateCode=Replace(TemplateCode,"{$SiteDir$}",SiteDir)
  23. TemplateCode=Replace(TemplateCode,"{$SystemName$}",FkSystemNameEn)
  24. TemplateCode=Replace(TemplateCode,"{$SystemVersion$}",FkSystemVersion)
  25. SiteChange=TemplateCode
  26. End Function
  28. '==============================
  29. '函 数 名：PageChange
  30. '作    用：替换信息页参数
  31. '参    数：
  32. '==============================
  33. Public Function PageChange(TemplateCode)
  34. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=0 And Fk_Module_Id=" & Id
  35. Rs.Open Sqlstr,Conn,1,3
  36. If Not Rs.Eof Then
  37. TemplateCode=Replace(TemplateCode,"{$PageTitle$}",Rs("Fk_Module_Name"))
  38. TemplateCode=Replace(TemplateCode,"{$PageKeyword$}",Rs("Fk_Module_Keyword"))
  39. TemplateCode=Replace(TemplateCode,"{$PageDescription$}",Rs("Fk_Module_Description"))
  40. End If
  41. Rs.Close
  42. PageChange=TemplateCode
  43. End Function
  45. '==============================
  46. '函 数 名：JobChange
  47. '作    用：替换招聘页参数
  48. '参    数：
  49. '==============================
  50. Public Function JobChange(TemplateCode)
  51. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=6 And Fk_Module_Id=" & Id
  52. Rs.Open Sqlstr,Conn,1,3
  53. If Not Rs.Eof Then
  54. TemplateCode=Replace(TemplateCode,"{$JobTitle$}",Rs("Fk_Module_Name"))
  55. End If
  56. Rs.Close
  57. JobChange=TemplateCode
  58. End Function
  60. '==============================
  61. '函 数 名：PageNows
  62. '作    用：当前位置
  63. '参    数：
  64. '==============================
  65. Public Function PageNows(ModuleId)
  66. PageNows=""
  67. While ModuleId>0
  68. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Id=" & ModuleId
  69. Rs.Open Sqlstr,Conn,1,3
  70. If Not Rs.Eof Then
  71. ModuleId=Rs("Fk_Module_Level")
  72. PageNows="&nbsp;&nbsp;&raquo;&nbsp;&nbsp;"&"<a href="""&GetGoUrl(Rs("Fk_Module_Type"),Rs("Fk_Module_Id"),Rs("Fk_Module_Dir"),Rs("Fk_Module_FileName"))&""" title="""&Rs("Fk_Module_Name")&""">"&Rs("Fk_Module_Name")&"</a>"&PageNows
  73. Else
  74. ModuleId=0
  75. End If
  76. Rs.Close
  77. Wend
  78. PageNows="<a href="""&SiteDir&""" title=""首页"">首页</a>"&PageNows
  79. End Function
  81. '==============================
  82. '函 数 名：InfoChange
  83. '作    用：替换信息页参数
  84. '参    数：
  85. '==============================
  86. Public Function InfoChange(TemplateCode)
  87. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=3 And Fk_Module_Id=" & Id
  88. Rs.Open Sqlstr,Conn,1,3
  89. If Not Rs.Eof Then
  90. TemplateCode=Replace(TemplateCode,"{$InfoTitle$}",Rs("Fk_Module_Name"))
  91. TemplateCode=Replace(TemplateCode,"{$InfoKeyword$}",Rs("Fk_Module_Keyword"))
  92. TemplateCode=Replace(TemplateCode,"{$InfoDescription$}",Rs("Fk_Module_Description"))
  93. Temp=Rs("Fk_Module_Content")
  94. Rs.Close
  95. Sqlstr="Select * From [Fk_Word] Order By Fk_Word_Id Desc"
  96. Rs.Open Sqlstr,Conn,1,3
  97. While Not Rs.Eof
  98. Temp=Replace(Temp,Rs("Fk_Word_Name"),"<a href="""&Rs("Fk_Word_Url")&""" target=""_blank"" title="""&Rs("Fk_Word_Name")&""">"&Rs("Fk_Word_Name")&"</a>")
  99. Rs.MoveNext
  100. Wend
  101. TemplateCode=Replace(TemplateCode,"{$InfoContent$}",Temp)
  102. End If
  103. Rs.Close
  104. InfoChange=TemplateCode
  105. End Function
  107. '==============================
  108. '函 数 名：ArticleListChange
  109. '作    用：替换文章列表页参数
  110. '参    数：
  111. '==============================
  112. Public Function ArticleListChange(TemplateCode)
  113. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=1 And Fk_Module_Id=" & Id
  114. Rs.Open Sqlstr,Conn,1,3
  115. If Not Rs.Eof Then
  116. TemplateCode=Replace(TemplateCode,"{$ArticleCategoryName$}",Rs("Fk_Module_Name"))
  117. TemplateCode=Replace(TemplateCode,"{$ArticleCategoryId$}",Id)
  118. TemplateCode=Replace(TemplateCode,"{$ArticleCategoryKeyword$}",Rs("Fk_Module_Keyword"))
  119. TemplateCode=Replace(TemplateCode,"{$ArticleCategoryDescription$}",Rs("Fk_Module_Description"))
  120. End If
  121. Rs.Close
  122. ArticleListChange=TemplateCode
  123. End Function
  125. '==============================
  126. '函 数 名：ProductListChange
  127. '作    用：替换产品列表页参数
  128. '参    数：
  129. '==============================
  130. Public Function ProductListChange(TemplateCode)
  131. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=2 And Fk_Module_Id=" & Id
  132. Rs.Open Sqlstr,Conn,1,3
  133. If Not Rs.Eof Then
  134. TemplateCode=Replace(TemplateCode,"{$ProductCategoryName$}",Rs("Fk_Module_Name"))
  135. TemplateCode=Replace(TemplateCode,"{$ProductCategoryId$}",Id)
  136. TemplateCode=Replace(TemplateCode,"{$ProductCategoryKeyword$}",Rs("Fk_Module_Keyword"))
  137. TemplateCode=Replace(TemplateCode,"{$ProductCategoryDescription$}",Rs("Fk_Module_Description"))
  138. End If
  139. Rs.Close
  140. ProductListChange=TemplateCode
  141. End Function
  143. '==============================
  144. '函 数 名：DownListChange
  145. '作    用：替换下载列表页参数
  146. '参    数：
  147. '==============================
  148. Public Function DownListChange(TemplateCode)
  149. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=7 And Fk_Module_Id=" & Id
  150. Rs.Open Sqlstr,Conn,1,3
  151. If Not Rs.Eof Then
  152. TemplateCode=Replace(TemplateCode,"{$DownCategoryName$}",Rs("Fk_Module_Name"))
  153. TemplateCode=Replace(TemplateCode,"{$DownCategoryId$}",Id)
  154. TemplateCode=Replace(TemplateCode,"{$DownCategoryKeyword$}",Rs("Fk_Module_Keyword"))
  155. TemplateCode=Replace(TemplateCode,"{$DownCategoryDescription$}",Rs("Fk_Module_Description"))
  156. End If
  157. Rs.Close
  158. DownListChange=TemplateCode
  159. End Function
  161. '==============================
  162. '函 数 名：ArticleChange
  163. '作    用：替换文章页参数
  164. '参    数：
  165. '==============================
  166. Public Function ArticleChange(TemplateCode)
  167. Sqlstr="Select * From [Fk_ArticleList] Where Fk_Article_Show=1 And Fk_Article_Id=" & Id
  168. Rs.Open Sqlstr,Conn,1,3
  169. If Not Rs.Eof Then
  170. TemplateCode=Replace(TemplateCode,"{$ArticleId$}",Id)
  171. TemplateCode=Replace(TemplateCode,"{$ArticleTitle$}",Rs("Fk_Article_Title"))
  172. TemplateCode=Replace(TemplateCode,"{$ArticleFrom$}",Rs("Fk_Article_From"))
  173. TemplateCode=Replace(TemplateCode,"{$ArticleModuleName$}",Rs("Fk_Module_Name"))
  174. TemplateCode=Replace(TemplateCode,"{$ArticleModuleId$}",Rs("Fk_Module_Id"))
  175. TemplateCode=Replace(TemplateCode,"{$ArticleTime$}",Rs("Fk_Article_Time"))
  176. TemplateCode=Replace(TemplateCode,"{$ArticleKeyword$}",Rs("Fk_Article_Keyword"))
  177. TemplateCode=Replace(TemplateCode,"{$ArticleDescription$}",Rs("Fk_Article_Description"))
  178. TemplateCode=Replace(TemplateCode,"{$ArticleClick$}","<span id=""Click""></span>")
  179. Temp=Rs("Fk_Article_Content")
  180. Rs.Close
  181. Sqlstr="Select * From [Fk_Word] Order By Fk_Word_Id Desc"
  182. Rs.Open Sqlstr,Conn,1,3
  183. While Not Rs.Eof
  184. Temp=Replace(Temp,Rs("Fk_Word_Name"),"<a href="""&Rs("Fk_Word_Url")&""" target=""_blank"" title="""&Rs("Fk_Word_Name")&""">"&Rs("Fk_Word_Name")&"</a>")
  185. Rs.MoveNext
  186. Wend
  187. TemplateCode=Replace(TemplateCode,"{$ArticleContent$}",Temp)
  188. End If
  189. Rs.Close
  190. ArticleChange=TemplateCode
  191. End Function
  193. '==============================
  194. '函 数 名：ProductChange
  195. '作    用：替换产品页参数
  196. '参    数：
  197. '==============================
  198. Public Function ProductChange(TemplateCode)
  199. Sqlstr="Select * From [Fk_ProductList] Where Fk_Product_Show=1 And Fk_Product_Id=" & Id
  200. Rs.Open Sqlstr,Conn,1,3
  201. If Not Rs.Eof Then
  202. TemplateCode=Replace(TemplateCode,"{$ProductId$}",Id)
  203. TemplateCode=Replace(TemplateCode,"{$ProductTitle$}",Rs("Fk_Product_Title"))
  204. TemplateCode=Replace(TemplateCode,"{$ProductTime$}",Rs("Fk_Product_Time"))
  205. TemplateCode=Replace(TemplateCode,"{$ProductDate$}",FormatDateTime(Rs("Fk_Product_Time"),2))
  206. TemplateCode=Replace(TemplateCode,"{$ProductPic$}",Rs("Fk_Product_Pic"))
  207. TemplateCode=Replace(TemplateCode,"{$ProductModuleName$}",Rs("Fk_Module_Name"))
  208. TemplateCode=Replace(TemplateCode,"{$ProductModuleId$}",Rs("Fk_Module_Id"))
  209. TemplateCode=Replace(TemplateCode,"{$ProductKeyword$}",Rs("Fk_Product_Keyword"))
  210. TemplateCode=Replace(TemplateCode,"{$ProductDescription$}",Rs("Fk_Product_Description"))
  211. TemplateCode=Replace(TemplateCode,"{$ProductClick$}","<span id=""Click""></span>")
  212. Temp=Rs("Fk_Product_Content")
  213. Rs.Close
  214. Sqlstr="Select * From [Fk_Word] Order By Fk_Word_Id Desc"
  215. Rs.Open Sqlstr,Conn,1,3
  216. While Not Rs.Eof
  217. Temp=Replace(Temp,Rs("Fk_Word_Name"),"<a href="""&Rs("Fk_Word_Url")&""" target=""_blank"" title="""&Rs("Fk_Word_Name")&""">"&Rs("Fk_Word_Name")&"</a>")
  218. Rs.MoveNext
  219. Wend
  220. TemplateCode=Replace(TemplateCode,"{$ProductContent$}",Temp)
  221. End If
  222. Rs.Close
  223. ProductChange=TemplateCode
  224. End Function
  226. '==============================
  227. '函 数 名：DownChange
  228. '作    用：替换下载页参数
  229. '参    数：
  230. '==============================
  231. Public Function DownChange(TemplateCode)
  232. Sqlstr="Select * From [Fk_DownList] Where Fk_Down_Show=1 And Fk_Down_Id=" & Id
  233. Rs.Open Sqlstr,Conn,1,3
  234. If Not Rs.Eof Then
  235. TemplateCode=Replace(TemplateCode,"{$DownId$}",Id)
  236. TemplateCode=Replace(TemplateCode,"{$DownTitle$}",Rs("Fk_Down_Title"))
  237. TemplateCode=Replace(TemplateCode,"{$DownLanguage$}",Rs("Fk_Down_Language"))
  238. TemplateCode=Replace(TemplateCode,"{$DownSystem$}",Rs("Fk_Down_System"))
  239. TemplateCode=Replace(TemplateCode,"{$DownFile$}",Rs("Fk_Down_File"))
  240. TemplateCode=Replace(TemplateCode,"{$DownTime$}",Rs("Fk_Down_Time"))
  241. TemplateCode=Replace(TemplateCode,"{$DownDate$}",FormatDateTime(Rs("Fk_Down_Time"),2))
  242. TemplateCode=Replace(TemplateCode,"{$DownPic$}",Rs("Fk_Down_Pic"))
  243. TemplateCode=Replace(TemplateCode,"{$DownModuleName$}",Rs("Fk_Module_Name"))
  244. TemplateCode=Replace(TemplateCode,"{$DownModuleId$}",Rs("Fk_Module_Id"))
  245. TemplateCode=Replace(TemplateCode,"{$DownKeyword$}",Rs("Fk_Down_Keyword"))
  246. TemplateCode=Replace(TemplateCode,"{$DownDescription$}",Rs("Fk_Down_Description"))
  247. TemplateCode=Replace(TemplateCode,"{$DownClick$}","<span id=""Click""></span>")
  248. Temp=Rs("Fk_Down_Content")
  249. Rs.Close
  250. Sqlstr="Select * From [Fk_Word] Order By Fk_Word_Id Desc"
  251. Rs.Open Sqlstr,Conn,1,3
  252. While Not Rs.Eof
  253. Temp=Replace(Temp,Rs("Fk_Word_Name"),"<a href="""&Rs("Fk_Word_Url")&""" target=""_blank"" title="""&Rs("Fk_Word_Name")&""">"&Rs("Fk_Word_Name")&"</a>")
  254. Rs.MoveNext
  255. Wend
  256. TemplateCode=Replace(TemplateCode,"{$DownContent$}",Temp)
  257. End If
  258. Rs.Close
  259. DownChange=TemplateCode
  260. End Function
  262. '==============================
  263. '函 数 名：GBookChange
  264. '作    用：替换留言页参数
  265. '参    数：
  266. '==============================
  267. Public Function GBookChange(TemplateCode)
  268. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Type=4 And Fk_Module_Id=" & Id
  269. Rs.Open Sqlstr,Conn,1,3
  270. If Not Rs.Eof Then
  271. TemplateCode=Replace(TemplateCode,"{$GBookTitle$}",Rs("Fk_Module_Name"))
  272. TemplateCode=Replace(TemplateCode,"{$GBookId$}",Id)
  273. TemplateCode=Replace(TemplateCode,"{$GBookKeyword$}",Rs("Fk_Module_Keyword"))
  274. TemplateCode=Replace(TemplateCode,"{$GBookDescription$}",Rs("Fk_Module_Description"))
  275. End If
  276. Rs.Close
  277. GBookChange=TemplateCode
  278. End Function
  280. '==============================
  281. '函 数 名：SubjectChange
  282. '作    用：专题页参数
  283. '参    数：
  284. '==============================
  285. Public Function SubjectChange(TemplateCode)
  286. TemplateCode=Replace(TemplateCode,"{$SubjectName$}",Fk_Subject_Name)
  287. SubjectChange=TemplateCode
  288. End Function
  290. '==============================
  291. '函 数 名：FileChange
  292. '作    用：替换模板模块参数
  293. '参    数：
  294. '==============================
  295. Public Function FileChange(TemplateCode)
  296. While Instr(TemplateCode,"{$File(")
  297. Temp=Split(Split(TemplateCode,"{$File(")(1),")$}")(0)
  298. Sqlstr="Select * From [Fk_Template] Where Fk_Template_Name='"&Temp&"'"
  299. Rs.Open Sqlstr,Conn,1,3
  300. If Not Rs.Eof Then
  301. TemplateCode=Replace(TemplateCode,"{$File("&Temp&")$}",Rs("Fk_Template_Content"))
  302. Else
  303. TemplateCode=Replace(TemplateCode,"{$File("&Temp&")$}","")
  304. End If
  305. Rs.Close
  306. Wend
  307. FileChange=TemplateCode
  308. End Function
  310. '========================标签处理区===========================
  312. '==============================
  313. '函 数 名：FkNav
  314. '作    用：菜单标签操作
  315. '参    数：
  316. '==============================
  317. Private Function FkNav(BCode,BPar)
  318. Dim NavUrl
  319. TempArr=Split(BPar,"/")
  320. While TempArr(3)<0 And TempArr(1)>0
  321. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Id="&TempArr(1)&""
  322. Rs.Open Sqlstr,Conn,1,3
  323. If Not Rs.Eof Then
  324. TempArr(1)=Rs("Fk_Module_Level")
  325. TempArr(3)=TempArr(3)+1
  326. Else
  327. TempArr(1)=0
  328. End If
  329. Rs.Close
  330. Wend
  331. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Show=1 And Fk_Module_Menu="&TempArr(0)&" And Fk_Module_Level="&TempArr(1)&" Order By Fk_Module_Order Asc,Fk_Module_Id Asc"
  332. Rs.Open Sqlstr,Conn,1,3
  333. While Not Rs.Eof
  334. If Rs("Fk_Module_Type")=5 Then
  335. NavUrl=Rs("Fk_Module_Url")
  336. Else
  337. NavUrl=GetGoUrl(Rs("Fk_Module_Type"),Rs("Fk_Module_Id"),Rs("Fk_Module_Dir"),Rs("Fk_Module_FileName"))
  338. End If
  339. FkNav=FkNav&BCode
  340. FkNav=Replace(FkNav,"{$NavId$}",Rs("Fk_Module_Id"))
  341. FkNav=Replace(FkNav,"{$NavName$}",Rs("Fk_Module_Name"))
  342. FkNav=Replace(FkNav,"{$NavUr$}",NavUrl)
  343. FkNav=Replace(FkNav,"{$NavId$}",Rs("Fk_Module_Id"))
  344. If TempArr(2)>1 Then
  345. FkNav=Replace(FkNav,"{$NavSub$}",FkNavs(Rs("Fk_Module_Id"),Clng(TempArr(2))-1))
  346. End If
  347. Rs.MoveNext
  348. Wend
  349. Rs.Close
  350. End Function
  352. '==============================
  353. '函 数 名：FkNavs
  354. '作    用：读取多级菜单操作
  355. '参    数：当前父ID GetId，还要读取级数GetCount
  356. '==============================
  357. Private Function FkNavs(GetId,GetCount)
  358. Dim NavUrl,Rs2
  359. Set Rs2=Server.Createobject("Adodb.RecordSet")
  360. Sqlstr="Select * From [Fk_Module] Where Fk_Module_Show=1 And Fk_Module_Level="&GetId&" Order By Fk_Module_Order Desc,Fk_Module_Id Asc"
  361. Rs2.Open Sqlstr,Conn,1,3
  362. If Not Rs2.Eof Then
  363. FkNavs="<ul>" & vbCrLf
  364. While Not Rs2.Eof
  365. If Rs2("Fk_Module_Type")=5 Then
  366. NavUrl=Rs2("Fk_Module_Url")
  367. Else
  368. NavUrl=GetGoUrl(Rs2("Fk_Module_Type"),Rs2("Fk_Module_Id"),Rs2("Fk_Module_Dir"),Rs2("Fk_Module_FileName"))
  369. End If
  370. FkNavs=FkNavs&"<li><a href="""&NavUrl&""">"&Rs2("Fk_Module_Name")&"</a>"
  371. If GetCount>1 Then
  372. FkNavs=FkNavs&FkNavs(Rs2("Fk_Module_Id"),GetCount-1)
  373. End If
  374. FkNavs=FkNavs&"</li>" & vbCrLf
  375. Rs2.MoveNext
  376. Wend
  377. FkNavs=FkNavs&"</ul>" & vbCrLf
  378. End If
  379. Rs2.Close
  380. Set Rs2=Nothing
  381. End Function
  383. '==============================
  384. '函 数 名：FkArticleList
  385. '作    用：文章列表标签操作
  386. '参    数：
  387. '==============================
  388. Private Function FkArticleList(BCode,BPar)
  389. Dim ArticleUrl,ArticleTitle
  390. TempArr=Split(BPar,"/")
  391. Sqlstr="Select"
  392. If TempArr(3)>0 And TempArr(4)=0 Then
  393. Sqlstr=Sqlstr&" Top "&TempArr(3)&""
  394. End If
  395. Sqlstr=Sqlstr&" * From [Fk_ArticleList] Where Fk_Article_Show=1 And Fk_Module_Menu=" & TempArr(0)
  396. If TempArr(1)>0 Then
  397. Sqlstr=Sqlstr&" And (Fk_Article_Module="&TempArr(1)&" Or Fk_Module_LevelList Like '%%,"&TempArr(1)&",%%')"
  398. End If
  399. If TempArr(5)>0 Then
  400. Sqlstr=Sqlstr&" And Fk_Article_Recommend Like '%%,"&TempArr(5)&",%%'"
  401. End If
  402. If TempArr(6)>0 Then
  403. Sqlstr=Sqlstr&" And Fk_Article_Subject Like '%%,"&TempArr(6)&",%%'"
  404. End If
  405. If TempArr(4)=1 And SearchStr<>"" Then
  406. Sqlstr=Sqlstr&" And Fk_Article_Title Like '%%"&SearchStr&"%%'"
  407. End If
  408. Select Case TempArr(2)
  409. Case 0
  410. Sqlstr=Sqlstr&" Order By Fk_Article_Id Desc"
  411. Case 1
  412. Sqlstr=Sqlstr&" Order By Fk_Article_Time Desc,Fk_Article_Id Desc"
  413. Case 2
  414. Sqlstr=Sqlstr&" Order By Fk_Article_Click Desc,Fk_Article_Id Desc"
  415. End Select
  416. Rs.Open Sqlstr,Conn,1,3
  417. If Not Rs.Eof Then
  418. If TempArr(4)=0 Then
  419. While Not Rs.Eof
  420. If Rs("Fk_Module_Dir")<>"" Then
  421. ArticleUrl=Rs("Fk_Module_Dir")&"/"
  422. Else
  423. ArticleUrl="Article"&Rs("Fk_Module_Id")&"/"
  424. End If
  425. If Rs("Fk_Article_FileName")<>"" Then
  426. ArticleUrl=ArticleUrl&Rs("Fk_Article_FileName")&".html"
  427. Else
  428. ArticleUrl=ArticleUrl&Rs("Fk_Article_Id")&".html"
  429. End If
  430. If SiteHtml=1 Then
  431. ArticleUrl=SiteDir&ArticleUrl
  432. Else
  433. ArticleUrl=SiteDir&"?"&ArticleUrl
  434. End If
  435. ArticleTitle=Rs("Fk_Article_Title")
  436. If Len(ArticleTitle)>TempArr(7) And TempArr(7)>0 Then
  437. ArticleTitle=Left(ArticleTitle,TempArr(7))&"..."
  438. End If
  439. FkArticleList=FkArticleList&BCode
  440. If Rs("Fk_Article_Color")<>"" Then
  441. FkArticleList=Replace(FkArticleList,"{$ArticleListTitle$}","<span style='color:"&Rs("Fk_Article_Color")&"'>"&ArticleTitle&"</span>")
  442. Else
  443. FkArticleList=Replace(FkArticleList,"{$ArticleListTitle$}",ArticleTitle)
  444. End If
  445. FkArticleList=Replace(FkArticleList,"{$ArticleListUrl$}",ArticleUrl)
  446. FkArticleList=Replace(FkArticleList,"{$ArticleListTime$}",Rs("Fk_Article_Time"))
  447. FkArticleList=Replace(FkArticleList,"{$ArticleListDate$}",FormatDateTime(Rs("Fk_Article_Time"),2))
  448. FkArticleList=Replace(FkArticleList,"{$ArticleListYear$}",Year(Rs("Fk_Article_Time")))
  449. FkArticleList=Replace(FkArticleList,"{$ArticleListMonth$}",Month(Rs("Fk_Article_Time")))
  450. FkArticleList=Replace(FkArticleList,"{$ArticleListDay$}",Day(Rs("Fk_Article_Time")))
  451. FkArticleList=Replace(FkArticleList,"{$ArticleListPic$}",Rs("Fk_Article_Pic"))
  452. FkArticleList=Replace(FkArticleList,"{$ArticleListNew$}",DateDiff("d",Rs("Fk_Article_Time"),Now()))
  453. FkArticleList=Replace(FkArticleList,"{$ArticleListClick$}",Rs("Fk_Article_Click"))
  454. Rs.MoveNext
  455. Wend
  456. Else
  457. Rs.PageSize=PageSizes
  458. If PageNow>Rs.PageCount Or PageNow<=0 Then
  459. PageNow=1
  460. End If
  461. PageCounts=Rs.PageCount
  462. Rs.AbsolutePage=PageNow
  463. PageAll=Rs.RecordCount
  464. i=1
  465. While (Not Rs.Eof) And i<PageSizes+1
  466. If Rs("Fk_Module_Dir")<>"" Then
  467. ArticleUrl=Rs("Fk_Module_Dir")&"/"
  468. Else
  469. ArticleUrl="Article"&Rs("Fk_Module_Id")&"/"
  470. End If
  471. If Rs("Fk_Article_FileName")<>"" Then
  472. ArticleUrl=ArticleUrl&Rs("Fk_Article_FileName")&".html"
  473. Else
  474. ArticleUrl=ArticleUrl&Rs("Fk_Article_Id")&".html"
  475. End If
  476. If SiteHtml=1 Then
  477. ArticleUrl=SiteDir&ArticleUrl
  478. Else
  479. ArticleUrl=SiteDir&"?"&ArticleUrl
  480. End If
  481. ArticleTitle=Rs("Fk_Article_Title")
  482. If Len(ArticleTitle)>TempArr(7) And TempArr(7)>0 Then
  483. ArticleTitle=Left(ArticleTitle,TempArr(7))&"..."
  484. End If
  485. FkArticleList=FkArticleList&BCode
  486. If Rs("Fk_Article_Color")<>"" Then
  487. FkArticleList=Replace(FkArticleList,"{$ArticleListTitle$}","<span style='color:"&Rs("Fk_Article_Color")&"'>"&ArticleTitle&"</span>")
  488. Else
  489. FkArticleList=Replace(FkArticleList,"{$ArticleListTitle$}",ArticleTitle)
  490. End If
  491. FkArticleList=Replace(FkArticleList,"{$ArticleListTime$}",Rs("Fk_Article_Time"))
  492. FkArticleList=Replace(FkArticleList,"{$ArticleListDate$}",FormatDateTime(Rs("Fk_Article_Time"),2))
  493. FkArticleList=Replace(FkArticleList,"{$ArticleListUrl$}",ArticleUrl)
  494. FkArticleList=Replace(FkArticleList,"{$ArticleListPic$}",Rs("Fk_Article_Pic"))
  495. FkArticleList=Replace(FkArticleList,"{$ArticleListYear$}",Year(Rs("Fk_Article_Time")))
  496. FkArticleList=Replace(FkArticleList,"{$ArticleListMonth$}",Month(Rs("Fk_Article_Time")))
  497. FkArticleList=Replace(FkArticleList,"{$ArticleListDay$}",Day(Rs("Fk_Article_Time")))
  498. FkArticleList=Replace(FkArticleList,"{$ArticleListNew$}",DateDiff("d",Rs("Fk_Article_Time"),Now()))
  499. FkArticleList=Replace(FkArticleList,"{$ArticleListClick$}",Rs("Fk_Article_Click"))
  500. Rs.MoveNext
  501. i=i+1
  502. Wend
  503. End If
  504. End If
  505. Rs.Close
  506. End Function
  508. '==============================
  509. '函 数 名：FkProductList
  510. '作    用：产品列表标签操作
  511. '参    数：
  512. '==============================
  513. Private Function FkProductList(BCode,BPar)
  514. Dim ProductUrl,ProductTitle
  515. TempArr=Split(BPar,"/")
  516. Sqlstr="Select"
  517. If TempArr(3)>0 And TempArr(4)=0 Then
  518. Sqlstr=Sqlstr&" Top "&TempArr(3)&""
  519. End If
  520. Sqlstr=Sqlstr&" * From [Fk_ProductList] Where Fk_Product_Show=1 And Fk_Module_Menu=" & TempArr(0)
  521. If TempArr(1)>0 Then
  522. Sqlstr=Sqlstr&" And (Fk_Product_Module="&TempArr(1)&" Or Fk_Module_LevelList Like '%%,"&TempArr(1)&",%%')"
  523. End If
  524. If TempArr(5)>0 Then
  525. Sqlstr=Sqlstr&" And Fk_Product_Recommend Like '%%,"&TempArr(5)&",%%'"
  526. End If
  527. If TempArr(6)>0 Then
  528. Sqlstr=Sqlstr&" And Fk_Product_Subject Like '%%,"&TempArr(6)&",%%'"
  529. End If
  530. If TempArr(4)=1 And SearchStr<>"" Then
  531. Sqlstr=Sqlstr&" And Fk_Product_Title Like '%%"&SearchStr&"%%'"
  532. End If
  533. Select Case TempArr(2)
  534. Case 0
  535. Sqlstr=Sqlstr&" Order By Fk_Product_Id Desc"
  536. Case 1
  537. Sqlstr=Sqlstr&" Order By Fk_Product_Time Desc,Fk_Product_Id Desc"
  538. Case 2
  539. Sqlstr=Sqlstr&" Order By Fk_Product_Click Desc,Fk_Product_Id Desc"
  540. End Select
  541. Rs.Open Sqlstr,Conn,1,3
  542. If Not Rs.Eof Then
  543. If TempArr(4)=0 Then
  544. While Not Rs.Eof
  545. If Rs("Fk_Module_Dir")<>"" Then
  546. ProductUrl=Rs("Fk_Module_Dir")&"/"
  547. Else
  548. ProductUrl="Product"&Rs("Fk_Module_Id")&"/"
  549. End If
  550. If Rs("Fk_Product_FileName")<>"" Then
  551. ProductUrl=ProductUrl&Rs("Fk_Product_FileName")&".html"
  552. Else
  553. ProductUrl=ProductUrl&Rs("Fk_Product_Id")&".html"
  554. End If
  555. If SiteHtml=1 Then
  556. ProductUrl=SiteDir&ProductUrl
  557. Else
  558. ProductUrl=SiteDir&"?"&ProductUrl
  559. End If
  560. ProductTitle=Rs("Fk_Product_Title")
  561. If Len(ProductTitle)>TempArr(7) And TempArr(7)>0 Then
  562. ProductTitle=Left(ProductTitle,TempArr(7))&"..."
  563. End If
  564. FkProductList=FkProductList&BCode
  565. If Rs("Fk_Product_Color")<>"" Then
  566. FkProductList=Replace(FkProductList,"{$ProductListTitle$}","<span style='color:"&Rs("Fk_Product_Color")&"'>"&ProductTitle&"</span>")
  567. Else
  568. FkProductList=Replace(FkProductList,"{$ProductListTitle$}",ProductTitle)
  569. End If
  570. FkProductList=Replace(FkProductList,"{$ProductListUrl$}",ProductUrl)
  571. FkProductList=Replace(FkProductList,"{$ProductListClick$}",Rs("Fk_Product_Click"))
  572. FkProductList=Replace(FkProductList,"{$ProductListTime$}",Rs("Fk_Product_Time"))
  573. FkProductList=Replace(FkProductList,"{$ProductListDate$}",FormatDateTime(Rs("Fk_Product_Time"),2))
  574. FkProductList=Replace(FkProductList,"{$ProductListYear$}",Year(Rs("Fk_Product_Time")))
  575. FkProductList=Replace(FkProductList,"{$ProductListMonth$}",Month(Rs("Fk_Product_Time")))
  576. FkProductList=Replace(FkProductList,"{$ProductListDay$}",Day(Rs("Fk_Product_Time")))
  577. FkProductList=Replace(FkProductList,"{$ProductListNew$}",DateDiff("d",Rs("Fk_Product_Time"),Now()))
  578. FkProductList=Replace(FkProductList,"{$ProductListPic$}",Rs("Fk_Product_Pic"))
  579. Rs.MoveNext
  580. Wend
  581. Else
  582. Rs.PageSize=PageSizes
  583. If PageNow>Rs.PageCount Or PageNow<=0 Then
  584. PageNow=1
  585. End If
  586. PageCounts=Rs.PageCount
  587. Rs.AbsolutePage=PageNow
  588. PageAll=Rs.RecordCount
  589. i=1
  590. While (Not Rs.Eof) And i<PageSizes+1
  591. If Rs("Fk_Module_Dir")<>"" Then
  592. ProductUrl=Rs("Fk_Module_Dir")&"/"
  593. Else
  594. ProductUrl="Product"&Rs("Fk_Module_Id")&"/"
  595. End If
  596. If Rs("Fk_Product_FileName")<>"" Then
  597. ProductUrl=ProductUrl&Rs("Fk_Product_FileName")&".html"
  598. Else
  599. ProductUrl=ProductUrl&Rs("Fk_Product_Id")&".html"
  600. End If
  601. If SiteHtml=1 Then
  602. ProductUrl=SiteDir&ProductUrl
  603. Else
  604. ProductUrl=SiteDir&"?"&ProductUrl
  605. End If
  606. ProductTitle=Rs("Fk_Product_Title")
  607. If Len(ProductTitle)>TempArr(7) And TempArr(7)>0 Then
  608. ProductTitle=Left(ProductTitle,TempArr(7))&"..."
  609. End If
  610. FkProductList=FkProductList&BCode
  611. If Rs("Fk_Product_Color")<>"" Then
  612. FkProductList=Replace(FkProductList,"{$ProductListTitle$}","<span style='color:"&Rs("Fk_Product_Color")&"'>"&ProductTitle&"</span>")
  613. Else
  614. FkProductList=Replace(FkProductList,"{$ProductListTitle$}",ProductTitle)
  615. End If
  616. FkProductList=Replace(FkProductList,"{$ProductListUrl$}",ProductUrl)
  617. FkProductList=Replace(FkProductList,"{$ProductListClick$}",Rs("Fk_Product_Click"))
  618. FkProductList=Replace(FkProductList,"{$ProductListTime$}",Rs("Fk_Product_Time"))
  619. FkProductList=Replace(FkProductList,"{$ProductListDate$}",FormatDateTime(Rs("Fk_Product_Time"),2))
  620. FkProductList=Replace(FkProductList,"{$ProductListYear$}",Year(Rs("Fk_Product_Time")))
  621. FkProductList=Replace(FkProductList,"{$ProductListMonth$}",Month(Rs("Fk_Product_Time")))
  622. FkProductList=Replace(FkProductList,"{$ProductListDay$}",Day(Rs("Fk_Product_Time")))
  623. FkProductList=Replace(FkProductList,"{$ProductListNew$}",DateDiff("d",Rs("Fk_Product_Time"),Now()))
  624. FkProductList=Replace(FkProductList,"{$ProductListPic$}",Rs("Fk_Product_Pic"))
  625. Rs.MoveNext
  626. i=i+1
  627. Wend
  628. End If
  629. End If
  630. Rs.Close
  631. End Function
  633. '==============================
  634. '函 数 名：FkDownList
  635. '作    用：下载列表标签操作
  636. '参    数：
  637. '==============================
  638. Private Function FkDownList(BCode,BPar)
  639. Dim DownUrl,DownTitle
  640. TempArr=Split(BPar,"/")
  641. Sqlstr="Select"
  642. If TempArr(3)>0 And TempArr(4)=0 Then
  643. Sqlstr=Sqlstr&" Top "&TempArr(3)&""
  644. End If
  645. Sqlstr=Sqlstr&" * From [Fk_DownList] Where Fk_Down_Show=1 And Fk_Module_Menu=" & TempArr(0)
  646. If TempArr(1)>0 Then
  647. Sqlstr=Sqlstr&" And (Fk_Down_Module="&TempArr(1)&" Or Fk_Module_LevelList Like '%%,"&TempArr(1)&",%%')"
  648. End If
  649. If TempArr(5)>0 Then
  650. Sqlstr=Sqlstr&" And Fk_Down_Recommend Like '%%,"&TempArr(5)&",%%'"
  651. End If
  652. If TempArr(6)>0 Then
  653. Sqlstr=Sqlstr&" And Fk_Down_Subject Like '%%,"&TempArr(6)&",%%'"
  654. End If
  655. If TempArr(4)=1 And SearchStr<>"" Then
  656. Sqlstr=Sqlstr&" And Fk_Down_Title Like '%%"&SearchStr&"%%'"
  657. End If
  658. Select Case TempArr(2)
  659. Case 0
  660. Sqlstr=Sqlstr&" Order By Fk_Down_Id Desc"
  661. Case 1
  662. Sqlstr=Sqlstr&" Order By Fk_Down_Time Desc,Fk_Down_Id Desc"
  663. Case 2
  664. Sqlstr=Sqlstr&" Order By Fk_Down_Click Desc,Fk_Down_Id Desc"
  665. End Select
  666. Rs.Open Sqlstr,Conn,1,3
  667. If Not Rs.Eof Then
  668. If TempArr(4)=0 Then
  669. While Not Rs.Eof
  670. If Rs("Fk_Module_Dir")<>"" Then
  671. DownUrl=Rs("Fk_Module_Dir")&"/"
  672. Else
  673. DownUrl="Down"&Rs("Fk_Module_Id")&"/"
  674. End If
  675. If Rs("Fk_Down_FileName")<>"" Then
  676. DownUrl=DownUrl&Rs("Fk_Down_FileName")&".html"
  677. Else
  678. DownUrl=DownUrl&Rs("Fk_Down_Id")&".html"
  679. End If
  680. If SiteHtml=1 Then
  681. DownUrl=SiteDir&DownUrl
  682. Else
  683. DownUrl=SiteDir&"?"&DownUrl
  684. End If
  685. DownTitle=Rs("Fk_Down_Title")
  686. If Len(DownTitle)>TempArr(7) And TempArr(7)>0 Then
  687. DownTitle=Left(DownTitle,TempArr(7))&"..."
  688. End If
  689. FkDownList=FkDownList&BCode
  690. If Rs("Fk_Down_Color")<>"" Then
  691. FkDownList=Replace(FkDownList,"{$DownListTitle$}","<span style='color:"&Rs("Fk_Down_Color")&"'>"&DownTitle&"</span>")
  692. Else
  693. FkDownList=Replace(FkDownList,"{$DownListTitle$}",DownTitle)
  694. End If
  695. FkDownList=Replace(FkDownList,"{$DownListUrl$}",DownUrl)
  696. FkDownList=Replace(FkDownList,"{$DownListClick$}",Rs("Fk_Down_Click"))
  697. FkDownList=Replace(FkDownList,"{$DownListTime$}",Rs("Fk_Down_Time"))
  698. FkDownList=Replace(FkDownList,"{$DownListSystem$}",Rs("Fk_Down_System"))
  699. FkDownList=Replace(FkDownList,"{$DownListLanguage$}",Rs("Fk_Down_Language"))
  700. FkDownList=Replace(FkDownList,"{$DownListFile$}",Rs("Fk_Down_File"))
  701. FkDownList=Replace(FkDownList,"{$DownListDate$}",FormatDateTime(Rs("Fk_Down_Time"),2))
  702. FkDownList=Replace(FkDownList,"{$DownListYear$}",Year(Rs("Fk_Down_Time")))
  703. FkDownList=Replace(FkDownList,"{$DownListMonth$}",Month(Rs("Fk_Down_Time")))
  704. FkDownList=Replace(FkDownList,"{$DownListDay$}",Day(Rs("Fk_Down_Time")))
  705. FkDownList=Replace(FkDownList,"{$DownListNew$}",DateDiff("d",Rs("Fk_Down_Time"),Now()))
  706. FkDownList=Replace(FkDownList,"{$DownListPic$}",Rs("Fk_Down_Pic"))
  707. Rs.MoveNext
  708. Wend
  709. Else
  710. Rs.PageSize=PageSizes
  711. If PageNow>Rs.PageCount Or PageNow<=0 Then
  712. PageNow=1
  713. End If
  714. PageCounts=Rs.PageCount
  715. Rs.AbsolutePage=PageNow
  716. PageAll=Rs.RecordCount
  717. i=1
  718. While (Not Rs.Eof) And i<PageSizes+1
  719. If Rs("Fk_Module_Dir")<>"" Then
  720. DownUrl=Rs("Fk_Module_Dir")&"/"
  721. Else
  722. DownUrl="Down"&Rs("Fk_Module_Id")&"/"
  723. End If
  724. If Rs("Fk_Down_FileName")<>"" Then
  725. DownUrl=DownUrl&Rs("Fk_Down_FileName")&".html"
  726. Else
  727. DownUrl=DownUrl&Rs("Fk_Down_Id")&".html"
  728. End If
  729. If SiteHtml=1 Then
  730. DownUrl=SiteDir&DownUrl
  731. Else
  732. DownUrl=SiteDir&"?"&DownUrl
  733. End If
  734. DownTitle=Rs("Fk_Down_Title")
  735. If Len(DownTitle)>TempArr(7) And TempArr(7)>0 Then
  736. DownTitle=Left(DownTitle,TempArr(7))&"..."
  737. End If
  738. FkDownList=FkDownList&BCode
  739. If Rs("Fk_Down_Color")<>"" Then
  740. FkDownList=Replace(FkDownList,"{$DownListTitle$}","<span style='color:"&Rs("Fk_Down_Color")&"'>"&DownTitle&"</span>")
  741. Else
  742. FkDownList=Replace(FkDownList,"{$DownListTitle$}",DownTitle)
  743. End If
  744. FkDownList=Replace(FkDownList,"{$DownListUrl$}",DownUrl)
  745. FkDownList=Replace(FkDownList,"{$DownListClick$}",Rs("Fk_Down_Click"))
  746. FkDownList=Replace(FkDownList,"{$DownListTime$}",Rs("Fk_Down_Time"))
  747. FkDownList=Replace(FkDownList,"{$DownListSystem$}",Rs("Fk_Down_System"))
  748. FkDownList=Replace(FkDownList,"{$DownListLanguage$}",Rs("Fk_Down_Language"))
  749. FkDownList=Replace(FkDownList,"{$DownListFile$}",Rs("Fk_Down_File"))
  750. FkDownList=Replace(FkDownList,"{$DownListDate$}",FormatDateTime(Rs("Fk_Down_Time"),2))
  751. FkDownList=Replace(FkDownList,"{$DownListYear$}",Year(Rs("Fk_Down_Time")))
  752. FkDownList=Replace(FkDownList,"{$DownListMonth$}",Month(Rs("Fk_Down_Time")))
  753. FkDownList=Replace(FkDownList,"{$DownListDay$}",Day(Rs("Fk_Down_Time")))
  754. FkDownList=Replace(FkDownList,"{$DownListNew$}",DateDiff("d",Rs("Fk_Down_Time"),Now()))
  755. FkDownList=Replace(FkDownList,"{$DownListPic$}",Rs("Fk_Down_Pic"))
  756. Rs.MoveNext
  757. i=i+1
  758. Wend
  759. End If
  760. End If
  761. Rs.Close
  762. End Function
  764. '==============================
  765. '函 数 名：FkFriendsList
  766. '作    用：友情链接列表标签操作
  767. '参    数：
  768. '==============================
  769. Private Function FkFriendsList(BCode,BPar)
  770. TempArr=Split(BPar,"/")
  771. Sqlstr="Select"
  772. If TempArr(2)>0 Then
  773. Sqlstr=Sqlstr&" Top "&TempArr(2)&""
  774. End If
  775. Sqlstr=Sqlstr&" * From [Fk_Friends] Where 1=1"
  776. If TempArr(0)>0 Then
  777. Sqlstr=Sqlstr&" And Fk_Friends_FriendsType="&TempArr(0)&""
  778. End If
  779. If TempArr(1)=1 Then
  780. Sqlstr=Sqlstr&" And Fk_Friends_ShowType=1"
  781. Else
  782. Sqlstr=Sqlstr&" And Fk_Friends_ShowType=2"
  783. End If
  784. Sqlstr=Sqlstr&" Order By Fk_Friends_Id Asc"
  785. Rs.Open Sqlstr,Conn,1,3
  786. If Not Rs.Eof Then
  787. While Not Rs.Eof
  788. FkFriendsList=FkFriendsList&BCode
  789. FkFriendsList=Replace(FkFriendsList,"{$FriendsName$}",Rs("Fk_Friends_Name"))
  790. FkFriendsList=Replace(FkFriendsList,"{$FriendsUrl$}",Rs("Fk_Friends_Url"))
  791. FkFriendsList=Replace(FkFriendsList,"{$FriendsAbout$}",Rs("Fk_Friends_About"))
  792. If Rs("Fk_Friends_Logo")<>"" Then
  793. FkFriendsList=Replace(FkFriendsList,"{$FriendsLogo$}",Rs("Fk_Friends_Logo"))
  794. End If
  795. Rs.MoveNext
  796. Wend
  797. End If
  798. Rs.Close
  799. End Function
  801. '==============================
  802. '函 数 名：FkJobList
  803. '作    用：招聘列表标签操作
  804. '参    数：
  805. '==============================
  806. Private Function FkJobList(BCode,BPar)
  807. TempArr=Split(BPar,"/")
  808. Sqlstr="Select"
  809. If TempArr(0)>0 Then
  810. Sqlstr=Sqlstr&" Top "&TempArr(0)&""
  811. End If
  812. Sqlstr=Sqlstr&" * From [Fk_Job] Where 1=1"
  813. If TempArr(1)=1 Then
  814. Sqlstr=Sqlstr&" And DateAdd('d',Fk_Job_Date,Fk_Job_Time)<=#"&Now()&"#"
  815. End If
  816. If TempArr(1)=2 Then
  817. Sqlstr=Sqlstr&" And DateAdd('d',Fk_Job_Date,Fk_Job_Time)>#"&Now()&"#"
  818. End If
  819. Sqlstr=Sqlstr&" Order By Fk_Job_Id Desc"
  820. Rs.Open Sqlstr,Conn,1,3
  821. If Not Rs.Eof Then
  822. While Not Rs.Eof
  823. FkJobList=FkJobList&BCode
  824. FkJobList=Replace(FkJobList,"{$JobName$}",Rs("Fk_Job_Name"))
  825. FkJobList=Replace(FkJobList,"{$JobCount$}",Rs("Fk_Job_Count"))
  826. FkJobList=Replace(FkJobList,"{$JobAbout$}",Rs("Fk_Job_About"))
  827. FkJobList=Replace(FkJobList,"{$JobArea$}",Rs("Fk_Job_Area"))
  828. If Rs("Fk_Job_Date")=0 Then
  829. FkJobList=Replace(FkJobList,"{$JobDate$}","长期有效")
  830. Else
  831. FkJobList=Replace(FkJobList,"{$JobDate$}",Rs("Fk_Job_Date")&"天")
  832. End If
  833. FkJobList=Replace(FkJobList,"{$JobTime$}",Rs("Fk_Job_Time"))
  834. Rs.MoveNext
  835. Wend
  836. End If
  837. Rs.Close
  838. End Function
  840. '==============================
  841. '函 数 名：FkSubjectList
  842. '作    用：专题列表标签操作
  843. '参    数：
  844. '==============================
  845. Private Function FkSubjectList(BCode,BPar)
  846. Dim SubjectUrl
  847. TempArr=Split(BPar,"/")
  848. Sqlstr="Select"
  849. If TempArr(0)>0 Then
  850. Sqlstr=Sqlstr&" Top "&TempArr(0)&""
  851. End If
  852. Sqlstr=Sqlstr&" * From [Fk_Subject] Where 1=1"
  853. Sqlstr=Sqlstr&" Order By Fk_Subject_Id Desc"
  854. Rs.Open Sqlstr,Conn,1,3
  855. If Not Rs.Eof Then
  856. While Not Rs.Eof
  857. SubjectUrl="Subject.asp?Id=" & Rs("Fk_Subject_Id")
  858. FkSubjectList=FkSubjectList&BCode
  859. FkSubjectList=Replace(FkSubjectList,"{$SubjectListName$}",Rs("Fk_Subject_Name"))
  860. FkSubjectList=Replace(FkSubjectList,"{$SubjectListPic$}",Rs("Fk_Subject_Pic"))
  861. FkSubjectList=Replace(FkSubjectList,"{$SubjectListUrl$}",SubjectUrl)
  862. Rs.MoveNext
  863. Wend
  864. End If
  865. Rs.Close
  866. End Function
  868. '==============================
  869. '函 数 名：GetGoUrl
  870. '作    用：获取内容操作链接
  871. '参    数：模块类型ModuleType，模块ID ModuleId
  872. '==============================
  873. Public Function GetGoUrl(ModuleType,ModuleId,ModuleDir,ModuleFileName)
  874. If SiteHtml=0 Then
  875. Select Case ModuleType
  876. ' Case 0
  877. ' GetGoUrl="Page.asp?Id=" & ModuleId
  878. ' Case 1
  879. ' GetGoUrl="ArticleList.asp?Id=" & ModuleId
  880. ' Case 2
  881. ' GetGoUrl="ProductList.asp?Id=" & ModuleId
  882. ' Case 3
  883. ' GetGoUrl="Info.asp?Id=" & ModuleId
  884. ' Case 4
  885. ' GetGoUrl="GBook.asp?Id=" & ModuleId
  886. ' Case 6
  887. ' GetGoUrl="Job.asp"
  888. ' Case 7
  889. ' GetGoUrl="DownList.asp?Id=" & ModuleId
  890. Case 0
  891. GetGoUrl=SiteDir&"?Page"&ModuleId&".html"
  892. Case 1
  893. GetGoUrl=SiteDir&"?Article"&ModuleId&"/Index.html"
  894. Case 2
  895. GetGoUrl=SiteDir&"?Product"&ModuleId&"/Index.html"
  896. Case 3
  897. GetGoUrl=SiteDir&"?Info"&ModuleId&".html"
  898. Case 4
  899. GetGoUrl=SiteDir&"?GBook"&ModuleId&".html"
  900. Case 6
  901. GetGoUrl=SiteDir&"?Job"&ModuleId&".html"
  902. Case 7
  903. GetGoUrl=SiteDir&"?Down"&ModuleId&"/Index.html"
  904. Case Else
  905. GetGoUrl="#"
  906. End Select
  907. If (ModuleType=1 Or ModuleType=2 Or ModuleType=7) And ModuleDir<>"" Then
  908. GetGoUrl=SiteDir&"?"&ModuleDir&"/Index.html"
  909. End If
  910. If (ModuleType=0 Or ModuleType=3 Or ModuleType=4) And ModuleFileName<>"" Then
  911. GetGoUrl=SiteDir&"?"&ModuleFileName&".html"
  912. End If
  913. ElseIf SiteHtml=1 Then
  914. Select Case ModuleType
  915. Case 0
  916. GetGoUrl=SiteDir&"Page"&ModuleId&".html"
  917. Case 1
  918. GetGoUrl=SiteDir&"Article"&ModuleId&"/Index.html"
  919. Case 2
  920. GetGoUrl=SiteDir&"Product"&ModuleId&"/Index.html"
  921. Case 3
  922. GetGoUrl=SiteDir&"Info"&ModuleId&".html"
  923. Case 4
  924. GetGoUrl=SiteDir&"GBook"&ModuleId&".html"
  925. Case 6
  926. GetGoUrl=SiteDir&"Job"&ModuleId&".html"
  927. Case 7
  928. GetGoUrl=SiteDir&"Down"&ModuleId&"/Index.html"
  929. Case Else
  930. GetGoUrl="#"
  931. End Select
  932. If (ModuleType=1 Or ModuleType=2 Or ModuleType=7) And ModuleDir<>"" Then
  933. GetGoUrl=SiteDir&ModuleDir&"/Index.html"
  934. End If
  935. If (ModuleType=0 Or ModuleType=3 Or ModuleType=4) And ModuleFileName<>"" Then
  936. GetGoUrl=SiteDir&ModuleFileName&".html"
  937. End If
  938. End If
  939. End Function
  941. '==============================
  942. '函 数 名：ShowPageCode
  943. '作    用：显示页码
  944. '参    数：链接PageUrl，当前页Nows，记录数AllCount，每页数量Sizes，总页数AllPage
  945. '==============================
  946. Public Function ShowPageCode(PageUrl,Nows,AllCount,Sizes,AllPage)
  947. If Nows>1 Then
  948. ShowPageCode="<a href="""&Replace(PageUrl,"{Pages}",1)&""">第一页</a>"
  949. ShowPageCode=ShowPageCode&"&nbsp;"
  950. ShowPageCode=ShowPageCode&"<a href="""&Replace(PageUrl,"{Pages}",Nows-1)&""">上一页</a>"
  951. If SiteHtml=1 And SearchStr="" Then
  952. ShowPageCode=Replace(ShowPageCode,"_1.",".")
  953. End If
  954. Else
  955. ShowPageCode=ShowPageCode&"第一页"
  956. ShowPageCode=ShowPageCode&"&nbsp;"
  957. ShowPageCode=ShowPageCode&"上一页"
  958. End If
  959. ShowPageCode=ShowPageCode&"&nbsp;"
  960. If AllPage>Nows Then
  961. ShowPageCode=ShowPageCode&"<a href="""&Replace(PageUrl,"{Pages}",Nows+1)&""">下一页</a>"
  962. ShowPageCode=ShowPageCode&"&nbsp;"
  963. ShowPageCode=ShowPageCode&"<a href="""&Replace(PageUrl,"{Pages}",AllPage)&""">尾页</a>"
  964. Else
  965. ShowPageCode=ShowPageCode&"下一页"
  966. ShowPageCode=ShowPageCode&"&nbsp;"
  967. ShowPageCode=ShowPageCode&"尾页"
  968. End If
  969. TempArr=Split(PageUrl,"{Pages}")
  970. ShowPageCode=ShowPageCode&"&nbsp;"&Sizes&"条/页&nbsp;共"&AllPage&"页/"&AllCount&"条&nbsp;当前第"&Nows&"页&nbsp;"
  971. ShowPageCode=ShowPageCode&"<select name=""Change_Page"" id=""Change_Page"" onChange=""window.location.href=this.options[this.selectedIndex].value"">"
  972. For i=1 To AllPage
  973. If SiteHtml=1 And SearchStr="" Then
  974. If i=1 Then
  975. If i=Nows Then
  976. ShowPageCode=ShowPageCode&"<option value=""Index.html"" selected=""selected"">第"&i&"页</option>"
  977. Else
  978. ShowPageCode=ShowPageCode&"<option value=""Index.html"">第"&i&"页</option>"
  979. End If
  980. Else
  981. If i=Nows Then
  982. ShowPageCode=ShowPageCode&"<option value="""&Replace(PageUrl,"{Pages}",i)&""" selected=""selected"">第"&i&"页</option>"
  983. Else
  984. ShowPageCode=ShowPageCode&"<option value="""&Replace(PageUrl,"{Pages}",i)&""">第"&i&"页</option>"
  985. End If
  986. End If
  987. Else
  988. If i=Nows Then
  989. ShowPageCode=ShowPageCode&"<option value="""&Replace(PageUrl,"{Pages}",i)&""" selected=""selected"">第"&i&"页</option>"
  990. Else
  991. ShowPageCode=ShowPageCode&"<option value="""&Replace(PageUrl,"{Pages}",i)&""">第"&i&"页</option>"
  992. End If
  993. End If
  994. Next
  995.        ShowPageCode=ShowPageCode&"</select>"
  996. End Function
  998. '========================模板引擎区===========================
  999. '==============================
  1000. '函 数 名：TemplateDo
  1001. '作    用：获取优先处理函数
  1002. '参    数：
  1003. '==============================
  1004. Public Function TemplateDo(TemplateCode)
  1005. Dim ForI,IfI
  1006. ForI=Instr(TemplateCode,"{$For")
  1007. IfI=Instr(TemplateCode,"{$If")
  1008. If ForI=0 And IfI=0 Then
  1009. TemplateDo=TemplateCode
  1010. Exit Function
  1011. End If
  1012. If ForI>0 And IfI>0 Then
  1013. If ForI<IfI Then
  1014. TemplateCode=TemplateFor(TemplateCode)
  1015. Else
  1016. TemplateCode=TemplateIf(TemplateCode)
  1017. End If
  1018. ElseIf ForI>0 Then
  1019. TemplateCode=TemplateFor(TemplateCode)
  1020. ElseIf IfI>0 Then
  1021. TemplateCode=TemplateIf(TemplateCode)
  1022. ELse
  1023. TemplateDo=TemplateCode
  1024. Exit Function
  1025. End If
  1026. Call TemplateDo(TemplateCode)
  1027. TemplateDo=TemplateCode
  1028. End Function
  1030. '==============================
  1031. '函 数 名：TemplateFor
  1032. '作    用：处理For
  1033. '参    数：
  1034. '==============================
  1035. Private Function TemplateFor(TemplateCode)
  1036. Temp=GetFor(TemplateCode)
  1037. TemplateTag=Split(Split(Temp,"{$For(")(1),",")(0)
  1038. TemplatePar=Split(Split(Temp,",")(1),")")(0)
  1039. TemplateBCode=Right(Temp,Len(Temp)-Len("{$For("&TemplateTag&","&TemplatePar&")$}"))
  1040. TemplateBCode=Left(TemplateBCode,Len(TemplateBCode)-8)
  1041. Select Case TemplateTag
  1042. Case "Nav"
  1043. TemplateFor=Replace(TemplateCode,Temp,FkNav(TemplateBCode,TemplatePar))
  1044. Case "ArticleList"
  1045. TemplateFor=Replace(TemplateCode,Temp,FkArticleList(TemplateBCode,TemplatePar))
  1046. Case "ProductList"
  1047. TemplateFor=Replace(TemplateCode,Temp,FkProductList(TemplateBCode,TemplatePar))
  1048. Case "DownList"
  1049. TemplateFor=Replace(TemplateCode,Temp,FkDownList(TemplateBCode,TemplatePar))
  1050. Case "FriendsList"
  1051. TemplateFor=Replace(TemplateCode,Temp,FkFriendsList(TemplateBCode,TemplatePar))
  1052. Case "JobList"
  1053. TemplateFor=Replace(TemplateCode,Temp,FkJobList(TemplateBCode,TemplatePar))
  1054. Case "SubjectList"
  1055. TemplateFor=Replace(TemplateCode,Temp,FkSubjectList(TemplateBCode,TemplatePar))
  1056. Case Else
  1057. TemplateFor=Replace(TemplateCode,Temp,"")
  1058. End Select
  1059. End Function
  1061. '==============================
  1062. '函 数 名：TemplateIf
  1063. '作    用：处理If
  1064. '参    数：
  1065. '==============================
  1066. Private Function TemplateIf(TemplateCode)
  1067. Temp=GetIf(TemplateCode)
  1068. TemplatePar=Split(Split(Temp,"{$If(")(1),")")(0)
  1069. If1=GetIfOne(Temp,"{$If("&TemplatePar&")$}")
  1070. If2=Replace(Temp,If1,"")
  1071. If2=Replace(If2,"{$If("&TemplatePar&")$}","")
  1072. If2=Left(If2,Len(If2)-10)
  1073. If2=Right(If2,Len(If2)-8)
  1074. If If2="{$Null$}" Then
  1075. If2=""
  1076. End If
  1077. TempArr=Split(TemplatePar,",")
  1078. Select Case TempArr(2)
  1079. Case ">"
  1080. If TempArr(0)>TempArr(1) Then
  1081. TemplateIf=Replace(TemplateCode,Temp,If1)
  1082. Else
  1083. TemplateIf=Replace(TemplateCode,Temp,If2)
  1084. End If
  1085. Case "<"
  1086. If TempArr(0)<TempArr(1) Then
  1087. TemplateIf=Replace(TemplateCode,Temp,If1)
  1088. Else
  1089. TemplateIf=Replace(TemplateCode,Temp,If2)
  1090. End If
  1091. Case "="
  1092. If TempArr(0)=TempArr(1) Then
  1093. TemplateIf=Replace(TemplateCode,Temp,If1)
  1094. Else
  1095. TemplateIf=Replace(TemplateCode,Temp,If2)
  1096. End If
  1097. Case "<>"
  1098. If TempArr(0)<>TempArr(1) Then
  1099. TemplateIf=Replace(TemplateCode,Temp,If1)
  1100. Else
  1101. TemplateIf=Replace(TemplateCode,Temp,If2)
  1102. End If
  1103. Case "<="
  1104. If TempArr(0)<=TempArr(1) Then
  1105. TemplateIf=Replace(TemplateCode,Temp,If1)
  1106. Else
  1107. TemplateIf=Replace(TemplateCode,Temp,If2)
  1108. End If
  1109. Case ">="
  1110. If TempArr(0)>=TempArr(1) Then
  1111. TemplateIf=Replace(TemplateCode,Temp,If1)
  1112. Else
  1113. TemplateIf=Replace(TemplateCode,Temp,If2)
  1114. End If
  1115. Case Else
  1116. TemplateIf=Replace(TemplateCode,Temp,"")
  1117. End Select
  1119. End Function
  1121. '==============================
  1122. '函 数 名：GetFor
  1123. '作    用：获取For字符串
  1124. '参    数：
  1125. '==============================
  1126. Private Function GetFor(TemplateCode)
  1127. Temp=Split(TemplateCode,"{$For")(0)
  1128. Temp=Replace(TemplateCode,Temp,"")
  1129. TempArr=Split(Temp,"{$Next$}")
  1130. GetFor=TempArr(0)&"{$Next$}"
  1131. i=1
  1132. While GetCount(GetFor,"{$For")<>GetCount(GetFor,"{$Next$}")
  1133. GetFor=GetFor&TempArr(i)&"{$Next$}"
  1134. i=i+1
  1135. Wend
  1136. End Function
  1138. '==============================
  1139. '函 数 名：GetIf
  1140. '作    用：获取If字符串
  1141. '参    数：
  1142. '==============================
  1143. Private Function GetIf(TemplateCode)
  1144. Temp=Split(TemplateCode,"{$If")(0)
  1145. Temp=Replace(TemplateCode,Temp,"")
  1146. TempArr=Split(Temp,"{$End If$}")
  1147. GetIf=TempArr(0)&"{$End If$}"
  1148. i=1
  1149. While GetCount(GetIf,"{$If")<>GetCount(GetIf,"{$End If$}")
  1150. GetIf=GetIf&TempArr(i)&"{$End If$}"
  1151. i=i+1
  1152. Wend
  1153. End Function
  1155. '==============================
  1156. '函 数 名：GetIfOne
  1157. '作    用：获取If字符串Else前
  1158. '参    数：
  1159. '==============================
  1160. Private Function GetIfOne(TemplateCode,IfCode)
  1161. TempArr=Split(TemplateCode,"{$Else$}")
  1162. GetIfOne=Replace(TempArr(0),IfCode,"")
  1163. i=1
  1164. While GetCount(GetIfOne,"{$If")<>GetCount(GetIfOne,"{$End If$}")
  1165. GetIfOne=GetIfOne&TempArr(i)
  1166. i=i+1
  1167. Wend
  1168. End Function
  1170. '==============================
  1171. '函 数 名：GetCount
  1172. '作    用：判断字符串中相同字符的个数
  1173. '参    数：
  1174. '==============================
  1175. Private Function GetCount(Strs,Word)
  1176. Dim N1,N2,N3
  1177. N1=Len(Strs)
  1178. N2=Len(Replace(Strs,Word,""))
  1179. N3=Len(Word)
  1180. GetCount=Clng(((N1-N2)/N3))
  1181. End Function 
  1182. End Class
  1183. %>