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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
c_system_wap.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：30k
源码类别：

中间件编程

开发平台：

HTML/CSS

c_system_wap.asp：源码内容
  1. <%
  2. '///////////////////////////////////////////////////////////////////////////////
  3. '//              Z-Blog
  4. '// 作    者:    朱煊(zx.asd)&(sipo)
  5. '// 版权所有:    RainbowSoft Studio
  6. '// 技术支持:    rainbowsoft@163.com
  7. '// 程序名称:    
  8. '// 程序版本:    
  9. '// 单元名称:    c_function_wap.asp
  10. '// 开始时间:    2006-3-19
  11. '// 最后修改:    2007-1-24
  12. '// 备    注:    WAP函数模块
  13. '///////////////////////////////////////////////////////////////////////////////
  17. Function WapDelArt()
  18. Response.Write WapTitle(ZC_MSG063)
  19. call DelArticle(Request.QueryString("id"))
  20. Call MakeBlogReBuild_Core()
  21. Response.Write "<a href="""&unescape(Request.QueryString("url"))&""">"&ZC_MSG065&"</a><br/>"
  22. 'Response.Write "<a href="""&WapLoginStr&"&amp;act=BlogReBuild"">"&ZC_MSG072&"</a><br/>"
  23. End Function
  25. Function WapDelCom()
  26. Response.Write WapTitle(ZC_MSG063)
  27. Call MakeBlogReBuild_Core()
  28. call DelComment(Request.QueryString("id"),Request.QueryString("log_id"))
  29. Response.Write "<a href="""&unescape(Request.QueryString("url"))&""">"&ZC_MSG065&"</a><br/>"
  30. 'Response.Write "<a href="""&WapLoginStr&"&amp;act=BlogReBuild"">"&ZC_MSG072&"</a><br/>"
  31. End Function
  33. Function WapPostArt()
  34. Response.Write WapTitle(ZC_MSG168)
  35. Call MakeBlogReBuild_Core()
  36. call PostArticle_WAP
  37. 'Response.Write "<a href="""&WapLoginStr&"&amp;act=BlogReBuild"">"&ZC_MSG072&"</a><br/>"
  38. End Function
  41. Function PostArticle_WAP()
  43. Dim s
  44. Dim objRegExp
  46. If Request.Form("edtID")<>"0" Then
  47. Dim objTestArticle
  48. Set objTestArticle=New TArticle
  49. If objTestArticle.LoadInfobyID(Request.Form("edtID")) Then
  50. If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  51. Else
  52. Call ShowError(9)
  53. End If
  54. End If
  56. Dim objArticle
  57. Set objArticle=New TArticle
  58. objArticle.ID=Request.Form("edtID")
  59. objArticle.CateID=Request.Form("edtCateID")
  60. objArticle.AuthorID=Request.Form("edtAuthorID")
  61. objArticle.Level=Request.Form("edtLevel")
  62. objArticle.PostTime=Request.Form("edtYear") & "-" & Request.Form("edtMonth") & "-" & Request.Form("edtDay") & " " &  Request.Form("edtTime")
  63. objArticle.Title=Request.Form("edtTitle")
  64. objArticle.Tag=ParseTag(Request.Form("edtTag"))
  65. objArticle.Alias=Request.Form("edtAlias")
  66. objArticle.Istop=Request.Form("edtIstop")
  68. objArticle.Intro=Request.Form("txaIntro")
  70. objArticle.Content=Request.Form("txaContent")
  72. If objArticle.Post Then
  73. Call BuildArticle(objArticle.ID,True,True)
  74. Call MakeBlogReBuild_Core()
  75. PostArticle_WAP=True
  76. End If
  78. End Function
  81. Function WapEdtArt()
  83. Dim Log_ID
  85. Response.Write WapTitle(ZC_MSG168)
  87. Response.Write ZC_MSG060&":<input emptyok=""false"" name=""edtTitle"" size=""15"" maxlength=""100"" value="""" /><br/>"
  89. Response.Write ZC_MSG012&":<select name=""edtCateID"">"
  90. GetCategory()
  91. Dim Category
  92. For Each Category in Categorys
  93. If IsObject(Category) Then
  94. Response.Write "<option value="""&Category.ID&""">"&TransferHTML(Category.Name,"[html-format]")&"</option>"
  95. End If
  96. Next
  97. Response.Write "</select><br/>"
  99. Response.Write ZC_MSG003&":<select name=""edtAuthorID"">"
  100. Response.Write "<option value="""&BlogUser.ID&""">"&TransferHTML(BlogUser.Name,"[html-format]")&"</option>"
  101. Response.Write "</select><br/>"
  103. Response.Write ZC_MSG061&"<select name=""edtLevel"">"
  104. Dim i
  105. For i=Ubound(ZVA_Article_Level_Name) to 1 step -1
  106. Response.Write "<option value="""& i &""">"& ZVA_Article_Level_Name(i) &"</option>"
  107. Next
  108. Response.Write "</select><br/>"
  110. Response.Write ZC_MSG062&":<input emptyok=""false"" name=""edtYear"" size=""10"" value="""&Year(GetTime(now()))&""" />-<input name=""edtMonth"" size=""10"" value="""&Month(GetTime(now()))&""" />-<input name=""edtDay""  size=""10"" value="""&Day(GetTime(now()))&""" />-<input name=""edtTime"" size=""12"" value="""& Hour(GetTime(now()))&":"&Minute(GetTime(now()))&":"&Second(GetTime(now()))&""" /><br/>"
  111. Response.Write ZC_MSG138&":<input emptyok=""true"" name=""edtTag"" size=""15"" maxlength=""100"" value="""" /><br/>"
  113. Response.Write ZC_MSG147&":<input emptyok=""true"" size=""10"" name=""edtAlias"" maxlength=""100"" value="""" />."&ZC_STATIC_TYPE&"<br/>"
  115. Response.Write ZC_MSG055&":<input emptyok=""false"" name=""txaContent"" size=""20"" maxlength=""5000"" value="""" /><br/>"
  116. Response.Write ZC_MSG016&":<input emptyok=""true"" name=""txaIntro"" size=""20"" maxlength=""1000"" value="""" /><br/>"
  117. Response.Write "<anchor>["&ZC_MSG087&"]<go href="""&WapLoginStr&"&amp;act=PostArt&amp;inpId="&Log_ID&""" method=""post"">"
  118. Response.Write " <postfield name=""edtID"" value=""0"" />"
  119. Response.Write " <postfield name=""edtTitle"" value=""$(edtTitle:n)"" />"
  120. Response.Write " <postfield name=""edtAuthorID"" value=""$(edtAuthorID:n)"" />"
  121. Response.Write " <postfield name=""edtLevel"" value=""$(edtLevel:n)"" />"
  122. Response.Write " <postfield name=""edtYear"" value=""$(edtYear:n)"" />"
  123. Response.Write " <postfield name=""edtMonth"" value=""$(edtMonth:n)"" />"
  124. Response.Write " <postfield name=""edtDay"" value=""$(edtDay:n)"" />"
  125. Response.Write " <postfield name=""edtTime"" value=""$(edtTime:n)"" />"
  126. Response.Write " <postfield name=""edtTag"" value=""$(edtTag:n)"" />"
  127. Response.Write " <postfield name=""edtAlias"" value=""$(edtAlias:n)"" />"
  128. Response.Write " <postfield name=""edtCateID"" value=""$(edtCateID:n)"" />"
  129. Response.Write " <postfield name=""txaContent"" value=""$(txaContent:n)"" />"
  130. Response.Write " <postfield name=""txaIntro"" value=""$(txaIntro:n)"" />"
  132. Response.Write "</go>"
  133. Response.Write "</anchor>"
  134. End Function
  137. Function WapCate()
  138. Dim Category
  139. Response.Write WapTitle(ZC_MSG214)
  140. For Each Category in Categorys
  141. If IsObject(Category) Then
  142. Response.Write Category.ID&",<a href="""&WapLoginStr&"&amp;act=Main&amp;cate="&Category.ID&""">"&TransferHTML(Category.Name,"[html-format]")&"("&Category.Count&")</a><br/>"
  143. End If
  144. Next
  145. End Function
  147. Function WapStat()
  148. Response.Write WapTitle(ZC_MSG029)
  149. Response.Write  Replace(Replace(LoadFromFile(BlogPath & "/INCLUDE/statistics.asp","utf-8"),"<li>",""),"</li>","<br/>")
  150. End Function
  152. Function WapAddCom(PostType)
  154. If ZC_WAPCOMMENT_ENABLE=False Then Call ShowError(40): Exit Function
  156. Dim log_ID,Author,Content,Email,HomePage
  157. log_ID=Request("inpId")
  158. Author=Request.Form("inpName")
  159. Content=Request.Form("inpArticle")
  160. Email=Request.Form("inpEmail")
  161. HomePage=Request.Form("inpHomePage")
  163. Call CheckParameter(log_ID,"int",0)
  164. If log_ID=0 Then Call ShowError(3): Exit Function
  166. Response.Write WapTitle(ZC_MSG211)
  168.     'Response.Write "<input type=""hidden"" name=""inpId"" id=""inpId"" value="""&Log_ID&""" />"
  169.   
  170.     If PostType<>0 Then
  171.     Response.Write ZVA_ErrorMsg(PostType)&"<br/>"
  172. End If
  174. If PostType=31 Then
  175. Response.Write ZC_MSG001&"*:<input type=""text"" emptyok=""false"" name=""inpName"" size=""12"" value="""&BlogUser.Name&""" maxlength="""&ZC_USERNAME_MAX&"""/><br/>"
  176. Else
  177. Response.Write ZC_MSG001&"*:<input type=""text"" emptyok=""false"" name=""inpName"" size=""12"" value="""&Author&""" maxlength="""&ZC_USERNAME_MAX&"""/><br/>"
  178. End If
  180. If PostType=6 Then
  181. Response.Write ZC_MSG002&":<input type=""password"" emptyok=""false"" name=""inpPass"" size=""12"" value="""" maxlength="""&ZC_PASSWORD_MAX&"""/><br/>"
  182. End If
  184. Response.Write ZC_MSG053&":<input type=""text"" emptyok=""true"" name=""inpEmail"" size=""12"" value="""&Email&""" maxlength="""&ZC_EMAIL_MAX&"""/><br/>"
  185. Response.Write ZC_MSG054&":<input type=""text"" emptyok=""true"" name=""inpHomePage"" size=""12"" value="""&HomePage&""" maxlength="""&ZC_HOMEPAGE_MAX&""" /><br/>"
  186. Response.Write ZC_MSG055&"*("&ZC_MSG055&":1000):<br/><input type=""text"" emptyok=""false"" name=""inpArticle"" size=""20"" maxlength="""&ZC_CONTENT_MAX&""" value="""&Content&"""></input><br/>"
  188. Response.Write "<anchor title=""post"">["&ZC_MSG087&"]"
  189. Response.Write "<go href="""&WapLoginStr&"&amp;act=PostCom&amp;inpId="&Log_ID&""" method=""post"">"
  190. Response.Write "<postfield name=""username"" value=""$(inpName:n)"" />"
  191. If PostType=6 Then
  192. Response.Write "<postfield name=""password"" value=""$(inpPass:n)"" />"
  193. End If
  194. Response.Write "<postfield name=""email"" value=""$(inpEmail:n)"" />"
  195. Response.Write "<postfield name=""url"" value=""$(inpHomePage:n)"" />"
  196. Response.Write "<postfield name=""content"" value=""$(inpArticle:n)"" />"
  197. Response.Write "</go></anchor><br/>"
  199. End Function
  202. Function WapPostCom()
  204. If ZC_WAPCOMMENT_ENABLE=False Then Call ShowError(40): Exit Function
  206. If Not IsEmpty(Request.Form("password")) Then
  207. Response.Cookies("password")=md5(Request.Form("password"))
  208. session(ZC_BLOG_CLSID&"password")=md5(Request.Form("password"))
  209.     Response.Cookies("username")=Request.Form("username")
  210. session(ZC_BLOG_CLSID&"username")=Request.Form("username")
  211. Call WapCheckLogin
  212. End IF
  214. Dim objComment
  215. Dim objArticle
  217. Set objComment=New TComment
  218. Set objArticle=New TArticle
  220. objComment.log_ID=Request("inpID")
  221. objComment.AuthorID=BlogUser.ID
  222. objComment.Author=Request.Form("username")
  223. objComment.Content=Request.Form("content")
  224. objComment.Email=Request.Form("email")
  225. objComment.HomePage=Request.Form("url")
  227. If Not CheckRegExp(objComment.Author,"[username]") Then Call  WapAddCom(15) :Exit Function
  229. IF Len(objComment.Email)>0 Then
  230. If Not CheckRegExp(objComment.Email,"[email]") Then Call  WapAddCom(29) :Exit Function
  231. End If
  233. IF Len(objComment.HomePage)>0 Then
  234. If InStr(objComment.HomePage,"http")=0 Then objComment.HomePage="http://" & objComment.HomePage
  235. If Not CheckRegExp(objComment.HomePage,"[homepage]") Then Call WapAddCom(30) :Exit Function
  236. End If
  238. Dim objUser
  240. For Each objUser in Users
  242. If IsObject(objUser) Then
  244.     '没有登陆
  245. If (UCase(objUser.Name)=UCase(objComment.Author)) And (objUser.ID<>objComment.AuthorID) Then
  246. Call WapAddCom(6)
  247. Exit Function
  248. End If
  250. '已经登陆了用不同的用户名
  251. If (objUser.ID=objComment.AuthorID) And (UCase(objUser.Name)<>UCase(objComment.Author)) Then
  252. Call WapAddCom(31)
  253. Exit Function
  254. End If
  256. '完全符合
  257. If (objUser.ID=objComment.AuthorID) And (UCase(objUser.Name)=UCase(objComment.Author)) Then
  258. objComment.Author=objUser.Name
  259. End If
  261. End If
  263. Next
  265. Dim objRS
  266. Dim strSpamIP
  267. Dim strSpamContent
  269. Set objRS=objConn.Execute("SELECT [comm_IP],[comm_Content] FROM [blog_Comment] WHERE [comm_ID]= ( SELECT MAX(comm_ID) FROM [blog_Comment] )")
  271. If (Not objRS.bof) And (Not objRS.eof) Then
  272. strSpamIP=objRS("comm_IP")
  273. strSpamContent=objRS("comm_Content")
  274. End If
  276. objRS.Close
  277. Set objRS=Nothing
  279. If (strSpamContent=objComment.Content) Then
  280. Call WapAddCom(39)
  281. Exit Function
  282. End If
  284. If objComment.Post Then
  285. If objArticle.LoadInfoByID(objComment.log_ID) Then
  286. Call BuildArticle(objArticle.ID,False,False)
  287. BlogReBuild_Comments
  288. WapPostCom=True
  289. End If
  290. End if
  292. Response.Write WapTitle(ZC_MSG211)
  293.     Response.Write "<a href="""&WapLoginStr&"&amp;act=View&amp;id="&objComment.log_ID&""">"&ZC_MSG065&ZC_MSG048&"</a><br/>"
  296. Set objComment=Nothing
  299. End Function
  301. Function WapLogin()
  302. Dim User,Password
  304. User=Request.Form("username")
  305. Password=Request.Form("password")
  306. Call CheckParameter(User,"sql",Empty)
  307. Call CheckParameter(Password,"sql",Empty)
  309. If IsEmpty(User) OR IsEmpty(Password) Then
  310. Response.Write WapTitle(ZC_MSG009)
  311. Response.Write ZC_MSG001&":<input type=""text"" name=""username"" size=""12"" value="""" /><br/>"
  312. Response.Write ZC_MSG002&":<input type=""password"" name=""password"" size=""12"" value="""" /><br/>"
  313. Response.Write "<anchor title=""post"">["&ZC_MSG087&"]<go href="""&ZC_FILENAME_WAP&"?act=Login"" method=""post""><postfield name=""username"" value=""$(username:n)"" /><postfield name=""password"" value=""$(password:n)"" /></go></anchor><br/>"
  314. Else
  315. Response.Cookies("password")=md5(Password)
  316. session(ZC_BLOG_CLSID&"password")=md5(Password)
  317. Response.Cookies("username")=User
  318. session(ZC_BLOG_CLSID&"username")=User
  320. If BlogUser.Verify=False Then
  321. Call ShowError(8)
  322. Else
  323. Response.Write WapTitle(ZC_MSG009)
  324. End If
  326. End If
  328. End Function
  330. Function WapMenu()
  332.         Response.Write WapTitle(ZC_BLOG_TITLE)
  333. Response.Write "<a href="""&WapLoginStr&"&amp;act=Login"">"&ZC_MSG009&"</a><br/>"
  334. Response.Write "<a href="""&WapLoginStr&"&amp;act=Com"">"&ZC_MSG027&"</a><br/>"
  335. Response.Write "<a href="""&WapLoginStr&"&amp;act=Main"">"&ZC_MSG032&"</a><br/>"
  336. Response.Write "<a href="""&WapLoginStr&"&amp;act=Cate"">"&ZC_MSG214&"</a><br/>"
  337. Response.Write "<a href="""&WapLoginStr&"&amp;act=Stat"">"&ZC_MSG029&"</a><br/>"
  338. If BlogUser.Level<=3 Then
  339. Response.Write "<a href="""&WapLoginStr&"&amp;act=AddArt"">"&ZC_MSG168&"</a><br/>"
  340. 'Response.Write "<a href="""&WapLoginStr&"&amp;act=BlogReBuild"">"&ZC_MSG072&"</a><br/>"
  341. End If
  343. End Function
  345. Function WapMain()
  347.         Response.Write WapTitle(ZC_BLOG_TITLE)
  349. Response.Write WapExport(Request("page"),Request("cate"),Request("auth"),Request("date"),Request("tags"),ZC_DISPLAY_MODE_ALL)
  350. Response.Write WapExportBar(Request("page"),intPageCount,Request("cate"),Request("auth"),Request("date"),Request("tags"))
  352. End Function
  354. Function WapCom()
  356.         Dim i,CurrentPage,log_ID
  358. CurrentPage=Request.QueryString("page")
  359. log_ID=Request.QueryString("id")
  360. Call CheckParameter(CurrentPage,"int",1)
  361. Call CheckParameter(log_ID,"int",0)
  363. Dim Article
  364. If log_ID<>0 Then
  365. Set Article=New TArticle
  366. If Article.LoadInfoByID(log_ID) Then
  367. If Article.Level=1 Then Response.Write WapTitle(ZVA_Article_Level_Name(1))&ZVA_ErrorMsg(9):Exit Function
  368. If Article.Level=2 Then
  369. If Not CheckRights("Root") Then
  370. If (Article.AuthorID<>BlogUser.ID) Then Response.Write WapTitle(ZVA_Article_Level_Name(2))&ZVA_ErrorMsg(6):Exit Function
  371. End If
  372. End If
  373. End If
  374. End If
  376. Dim objRS
  377. Set objRS=Server.CreateObject("ADODB.Recordset")
  378. objRS.CursorType = adOpenKeyset
  379. objRS.LockType = adLockReadOnly
  380. objRS.ActiveConnection=objConn
  381. If log_ID=0 Then 
  382. objRS.Source="SELECT blog_Comment.* , blog_Article.log_ID, blog_Article.log_Title FROM blog_Comment INNER JOIN blog_Article ON blog_Comment.log_ID = blog_Article.log_ID ORDER BY blog_Comment.comm_PostTime DESC"
  383. Response.Write WapTitle(ZC_MSG027)&ZC_MSG027&"<br/><br/>"
  384. Else
  385. objRS.Source="SELECT blog_Comment.* , blog_Article.log_ID, blog_Article.log_Title FROM blog_Comment INNER JOIN blog_Article ON blog_Comment.log_ID = blog_Article.log_ID WHERE blog_Comment.log_ID="&log_ID&" ORDER BY blog_Comment.comm_PostTime DESC"
  386. Response.Write WapTitle(Article.Title&"-"&ZC_MSG013)&Article.Title&"<br/><br/>"
  387. End If
  388. objRS.Open()
  390. If (Not objRS.bof) And (Not objRS.eof) Then
  392. Dim strCTemplate,ComRecordCount
  393. strCTemplate=GetTemplate("TEMPLATE_WAP_ARTICLE_COMMENT")
  396. objRS.PageSize = ZC_COMMENT_COUNT_WAP
  397. intPageCount=objRS.PageCount
  398. ComRecordCount=objRS.RecordCount
  399. objRS.AbsolutePage = CurrentPage
  402. For i=1 To objRS.PageSize
  404. Dim objComment
  405. Set objComment=New TComment
  406. If objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("blog_Comment.log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),objRS("comm_IP"),objRS("comm_Agent"))) Then
  407. Dim strC_Count
  408. strC_Count=ComRecordCount-((CurrentPage-1)*ZC_COMMENT_COUNT_WAP+i)+1
  410. ReDim Preserve aryStrC(i)
  411. aryStrC(i)=strCTemplate
  412. aryStrC(i)=Replace(aryStrC(i),"<#ZC_FILENAME_WAP#>",ZC_FILENAME_WAP)
  413. aryStrC(i)=Replace(aryStrC(i),"<#article/id#>",objRS("blog_Comment.log_ID"))
  414. aryStrC(i)=Replace(aryStrC(i),"<#article/title#>",objRS("log_Title"))
  415. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/id#>",objComment.ID)
  416. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/name#>",objComment.Author)
  417. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/url#>",objComment.HomePage)
  418. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/email#>",objComment.SafeEmail)
  419. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/posttime#>",FormatDateTime(objComment.PostTime,vbShortDate)&" "&FormatDateTime(objComment.PostTime,vbShortTime))
  420. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/content#>",TransferHTML(TransferHTML(UBBCode(objComment.HtmlContent,"[face][link][autolink][font][code][image][typeset][media][flash][key][upload]"),"[html-japan][vbCrlf][upload]"),"[wapnohtml]"))
  421. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/count#>",strC_Count)
  422. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/authorid#>",objComment.AuthorID)
  423. aryStrC(i)=Replace(aryStrC(i),"<#article/comment/firstcontact#>",objComment.FirstContact)
  424.     
  425. If BlogUser.Level<=3 Then
  426. aryStrC(i)=Replace(aryStrC(i),"<#url#>",Escape(ZC_BLOG_HOST&ZC_FILENAME_WAP&"?mode=WAP&amp;"&Replace(Request.QueryString,"&","&amp;")))
  427. aryStrC(i)=Replace(aryStrC(i),"<#adbegin#>","")
  428. aryStrC(i)=Replace(aryStrC(i),"<#adend#>","")
  429. Else
  430. Dim objRegExp
  431. Set objRegExp=New RegExp
  432. objRegExp.IgnoreCase =True
  433. objRegExp.Global=True
  434. objRegExp.Pattern="<#adbegin#>(.+)<#adend#>"
  435. aryStrC(i)= objRegExp.Replace(aryStrC(i),"")
  436. End If
  438. Dim aryTemplateTagsName,aryTemplateTagsValue
  440. aryTemplateTagsName=TemplateTagsName
  441. aryTemplateTagsValue=TemplateTagsValue
  444. aryTemplateTagsName(0)="BlogTitle"
  445. aryTemplateTagsValue(0)=ZC_BLOG_TITLE
  447. Dim k
  448. For k=0 to UBound(aryTemplateTagsName)
  449.     aryStrC(i)=Replace(aryStrC(i),"<#" & aryTemplateTagsName(k) & "#>",aryTemplateTagsValue(k))
  450. Next
  452. End If
  455. Set objComment=Nothing
  457. objRS.MoveNext
  458. If objRS.EOF Then Exit For
  460. Next
  462. Else
  464. Exit Function
  466. End If
  468. objRS.Close()
  469. Set objRS=Nothing
  471. Dim strC
  472. strC=Join(aryStrC)
  474. Dim PageBar
  475. PageBar="<a href="""&WapLoginStr&"&amp;act=Com&amp;id="&log_ID&"&amp;Page=1"">[&lt;&lt;]</a>"
  477. For i=CurrentPage-Cint(ZC_COMMENT_PAGEBAR_COUNT_WAP/2) to CurrentPage+Cint(ZC_COMMENT_PAGEBAR_COUNT_WAP/2) 
  479. If i>0 and i<=intPageCount Then
  480. If i=CurrentPage Then
  481. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=Com&amp;id="&log_ID&"&amp;Page="&i&""">[["&i&"]]</a>"
  482. Else
  483. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=Com&amp;id="&log_ID&"&amp;Page="&i&""">["&i&"]</a>"
  484. End If
  485. End If
  487. Next
  489. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=Com&amp;id="&log_ID&"&amp;Page="&intPageCount&""">[&gt;&gt;]</a>"
  491. Response.Write strC&PageBar
  493. End Function
  495. Function WapView()
  496. Dim Article,ZC_SINGLE_START,CurrentPage,i,log_ID
  497. CurrentPage=Request.QueryString("page")
  498. log_ID=Request.QueryString("id")
  499. Call CheckParameter(CurrentPage,"int",1)
  500. Call CheckParameter(log_ID,"int",0)
  502. If log_ID=0 Then Call ShowError(3) : Exit Function
  504. Set Article=New TArticle
  505. If Article.LoadInfoByID(log_ID) Then
  506. 'If BlogUser.Level>
  508. If Article.Level=1 Then Response.Write WapTitle(ZVA_Article_Level_Name(1))&ZVA_ErrorMsg(9):Exit Function
  509. If Article.Level=2 Then
  510. If Not CheckRights("Root") Then
  511. If (Article.AuthorID<>BlogUser.ID) Then Response.Write WapTitle(ZVA_Article_Level_Name(2))&ZVA_ErrorMsg(6):Exit Function
  512. End If
  513. End If
  515.         Response.Write WapTitle(Article.Title)
  516. Dim ArticleContent,PageCount,PageBar
  517. ArticleContent=TransferHTML(TransferHTML(UBBCode(Article.Content,"[face][link][autolink][font][code][image][typeset][media][flash][key][upload]"),"[html-japan][vbCrlf][upload]"),"[wapnohtml]")
  519. PageCount = Int(Len(ArticleContent)/ZC_SINGLE_SIZE_WAP) + 1
  520. ZC_SINGLE_START=Cint((CurrentPage-1)*ZC_SINGLE_SIZE_WAP+1)
  521. If ZC_SINGLE_START<1 Then ZC_SINGLE_START=1
  522. ArticleContent=Mid(ArticleContent,ZC_SINGLE_START,ZC_SINGLE_SIZE_WAP)
  523. ArticleContent=TransferHTML(ArticleContent,"[html-format][wapnohtml][nbsp-br]")
  525.     PageBar="<br/><a href="""&WapLoginStr&"&amp;act=View&amp;id="&log_ID&"&amp;Page=1"">[&lt;&lt;]</a>"
  527. For i=CurrentPage-Cint(ZC_SINGLE_PAGEBAR_COUNT_WAP/2) to CurrentPage+Cint(ZC_SINGLE_PAGEBAR_COUNT_WAP/2)
  529. If i>0 and i<=PageCount Then
  530. If i=CurrentPage Then
  531. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=View&amp;id="&log_ID&"&amp;Page="&i&""">[["&i&"]]</a>"
  532. Else
  533. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=View&amp;id="&log_ID&"&amp;Page="&i&""">["&i&"]</a>"
  534. End If
  535. End If
  536. Next
  537. PageBar=PageBar&"<a href="""&WapLoginStr&"&amp;act=View&amp;id="&log_ID&"&amp;Page="&PageCount&""">[&gt;&gt;]</a>"
  538. ArticleContent=ArticleContent&PageBar
  541. If Article.Export(ZC_DISPLAY_MODE_ALL) Then
  542.     Article.template_Wap="wap_single"
  543. Article.Build
  544. Article.htmlWAP=Replace(Article.htmlWAP,"<#article/PageContent#>",ArticleContent)
  545. Article.htmlWAP=Replace(Article.htmlWAP,"<#ZC_FILENAME_WAP#>",ZC_FILENAME_WAP)
  546.     If BlogUser.Level<=3 Then
  547. Article.htmlWAP=Replace(Article.htmlWAP,"<#url#>",Escape(ZC_BLOG_HOST&ZC_FILENAME_WAP&"?mode=WAP&amp;"&Replace(Request.QueryString,"&","&amp;")))
  548. Article.htmlWAP=Replace(Article.htmlWAP,"<#adbegin#>","")
  549. Article.htmlWAP=Replace(Article.htmlWAP,"<#adend#>","")
  550. Else
  551. Dim objRegExp
  552. Set objRegExp=New RegExp
  553. objRegExp.IgnoreCase =True
  554. objRegExp.Global=True
  555. objRegExp.Pattern="<#adbegin#>(.+)<#adend#>"
  556. Article.htmlWAP= objRegExp.Replace(Article.htmlWAP,"")
  557. End If
  558. Response.Write Article.htmlWAP
  559. End If
  561. End If
  564. End Function
  566. Function WapExport(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  568. Dim i,j
  569. Dim objRS
  570. Dim objArticle
  572. Call CheckParameter(intPage,"int",1)
  573. Call CheckParameter(intCateId,"int",Empty)
  574. Call CheckParameter(intAuthorId,"int",Empty)
  575. Call CheckParameter(dtmYearMonth,"dtm",Empty)
  577. Dim Title
  578. Title=ZC_BLOG_SUBTITLE
  580. Set objRS=Server.CreateObject("ADODB.Recordset")
  581. objRS.CursorType = adOpenKeyset
  582. objRS.LockType = adLockReadOnly
  583. objRS.ActiveConnection=objConn
  584. objRS.Source="SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_IsTop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>1)"
  586. If Not IsEmpty(intCateId) Then
  587. objRS.Source=objRS.Source & "AND([log_CateID]="&intCateId&")"
  588. On Error Resume Next
  589. Title=Categorys(intCateId).Name
  590. Err.Clear
  591. End if
  592. If Not IsEmpty(intAuthorId) Then
  593. objRS.Source=objRS.Source & "AND([log_AuthorID]="&intAuthorId&")"
  594. On Error Resume Next
  595. Title=Users(intAuthorId).Name
  596. Err.Clear
  597. End if
  598. If IsDate(dtmYearMonth) Then
  599. Dim y
  600. Dim m
  601. Dim ny
  602. Dim nm
  604. If IsDate(dtmYearMonth) Then
  605. dtmYearMonth=CDate(dtmYearMonth)
  606. Else
  607. Call ShowError(3)
  608. End If
  610. y=year(dtmYearMonth)
  611. m=month(dtmYearMonth)
  612. ny=y
  613. nm=m+1
  614. If m=12 Then ny=ny+1:nm=1
  616. objRS.Source=objRS.Source & "AND([log_PostTime] BETWEEN #"&y&"-"&m&"-1# AND #"&ny&"-"&nm&"-1#)"
  618. Application.Lock
  619. If Year(dtmYearMonth)=Year(GetTime(now())) And Month(dtmYearMonth)=Month(GetTime(now())) Then
  620. Template_Calendar=Application(ZC_BLOG_CLSID & "CACHE_INCLUDE_CALENDAR")
  621. End If
  622. Application.UnLock
  624. Title=Year(dtmYearMonth) & " " & ZVA_Month(Month(dtmYearMonth))
  625. End If
  626. If Not IsEmpty(strTagsName) Then
  627. On Error Resume Next
  628. Dim Tag
  629. For Each Tag in Tags
  630. If IsObject(Tag) Then
  631. If UCase(Tag.Name)=UCase(strTagsName) Then
  632. objRS.Source=objRS.Source & "AND([log_Tag] LIKE '%{" & Tag.ID & "}%')"
  633. End If
  634. End If
  635. Next
  636. Err.Clear
  637. Title=strTagsName
  638. End If
  640. objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
  641. objRS.Open()
  643. If (Not objRS.bof) And (Not objRS.eof) Then
  644. objRS.PageSize = ZC_DISPLAY_COUNT_WAP
  645. intPageCount=objRS.PageCount
  646. objRS.AbsolutePage = intPage
  648. For i = 1 To objRS.PageSize
  650. ReDim Preserve aryArticleList(i)
  652. Set objArticle=New TArticle
  653. If objArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  654. If objArticle.Export(intType)= True Then
  655. aryArticleList(i)=objArticle.Template_Article_Multi_WAP
  656. End If
  657. End If
  658. Set objArticle=Nothing
  660. objRS.MoveNext
  661. If objRS.EOF Then Exit For
  663. Next
  665. Else
  667. Exit Function
  669. End If
  671. objRS.Close()
  672. Set objRS=Nothing
  674. Dim Template_Article_Multi
  675. Template_Article_Multi=Join(aryArticleList)
  677. Dim Template_Calendar
  678. If IsEmpty(Template_Calendar) Or Len(Template_Calendar)=0 Then
  679. Application.Lock
  680. Template_Calendar=Application(ZC_BLOG_CLSID & "CACHE_INCLUDE_CALENDAR")
  681. Application.UnLock
  682. End If
  685. Dim aryTemplateTagsName,aryTemplateTagsValue
  687. aryTemplateTagsName=TemplateTagsName
  688. aryTemplateTagsValue=TemplateTagsValue
  690. aryTemplateTagsName(0)="BlogTitle"
  691. aryTemplateTagsValue(0)=Title
  693. j=UBound(aryTemplateTagsName)
  695. For i=0 to j
  696. Template_Article_Multi=Replace(Template_Article_Multi,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  697. Next
  699. Template_Article_Multi=Replace(Template_Article_Multi,"<#ZC_FILENAME_WAP#>",ZC_FILENAME_WAP)
  700. If BlogUser.Level<=3 Then
  701. Template_Article_Multi=Replace(Template_Article_Multi,"<#url#>",Escape(ZC_BLOG_HOST&ZC_FILENAME_WAP&"?mode=WAP&amp;"&Replace(Request.QueryString,"&","&amp;")))
  703. Template_Article_Multi=Replace(Template_Article_Multi,"<#adbegin#>","")
  704. Template_Article_Multi=Replace(Template_Article_Multi,"<#adend#>","")
  705. Else
  706. Dim objRegExp
  707. Set objRegExp=New RegExp
  708. objRegExp.IgnoreCase =True
  709. objRegExp.Global=True
  710. objRegExp.Pattern="<#adbegin#>(.+)<#adend#>"
  711. Template_Article_Multi= objRegExp.Replace(Template_Article_Multi,"")
  712. End If
  715. WapExport=Template_Article_Multi
  717. End Function
  719. Function WapExportBar(intNowPage,intAllPage,intCateId,intAuthorId,dtmYearMonth,strTagsName)
  721. Dim i
  722. Dim s
  723. Dim t
  724. Dim strPageBar
  728. If Not IsEmpty(intCateId) Then t=t & "cate=" & intCateId & "&amp;"
  729. If Not IsEmpty(dtmYearMonth) Then t=t & "date=" & Year(dtmYearMonth) & "-" & Month(dtmYearMonth) & "&amp;"
  730. If Not IsEmpty(intAuthorId) Then t=t & "auth=" & intAuthorId & "&amp;"
  731. If Not (strTagsName="") Then t=t & "tags=" & Server.URLEncode(strTagsName) & "&amp;"
  732. If intAllPage>0 Then
  733. Dim a,b
  735. s=""&WapLoginStr&"&amp;act=Main&amp;"& t &"page=1"
  737. strPageBar="<a href=""<#pagebar/page/url#>"">[<#pagebar/page/number#>]</a>"
  739. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  740. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>","&lt;&lt;")
  741. Dim Template_PageBar
  742. Template_PageBar=Template_PageBar & strPageBar
  744. If intAllPage>ZC_PAGEBAR_COUNT_WAP Then
  745. a=intNowPage
  746. b=intNowPage+ZC_PAGEBAR_COUNT_WAP
  747. If a>ZC_PAGEBAR_COUNT_WAP Then a=a-1:b=b-1
  748. If b>intAllPage Then b=intAllPage:a=intAllPage-ZC_PAGEBAR_COUNT_WAP
  749. Else
  750. a=1:b=intAllPage
  751. End If
  752. For i=a to b
  753. If i>0 Then
  755. s=""&WapLoginStr&"&amp;act=Main&amp;"& t &"page="& i
  757. strPageBar="<a href=""<#pagebar/page/url#>"">[<#pagebar/page/number#>]</a>"
  758. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  759. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",i)
  760. Template_PageBar=Template_PageBar & strPageBar
  761. End If
  762. Next
  764. s=""&WapLoginStr&"&amp;act=Main&amp;"& t &"page="& intAllPage
  766. strPageBar="<a href=""<#pagebar/page/url#>"">[<#pagebar/page/number#>]</a>"
  767. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  768. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>","&gt;&gt;")
  769. Template_PageBar=Template_PageBar & strPageBar
  771. Dim Template_PageBar_Previous
  772. If intNowPage=1 Then
  773. Template_PageBar_Previous=""
  774. Else
  775. Template_PageBar_Previous="<a href="""&WapLoginStr&"&amp;act=Main&amp;"& t &"page="& intNowPage-1 &""">"&ZC_MSG156&"</a>"
  777. End If
  779. Dim Template_PageBar_Next
  780. If intNowPage=intAllPage Then
  781. Template_PageBar_Next=""
  782. Else
  783. Template_PageBar_Next="<a href="""&WapLoginStr&"&amp;act=Main&amp;"& t &"page="& intNowPage+1 &""">"&ZC_MSG155&"</a>"
  784. End If
  786. End If
  788. WapExportBar=Template_PageBar
  790. End Function
  792. Public Function WapTitle(Str)
  793. WapTitle="<card title="""&Str&""" id=""card1"">"&vbnewline&"<p>"&WapCheckLogin&"</p><p>"&vbnewline
  794. End Function
  796. Public Function WapError()
  797. dim ID
  798. ID=Request("id")
  799. If Not IsNumeric(ID) Then
  800. ID=0
  801. ElseIf CINT(ID)>Ubound(ZVA_ErrorMsg) Or CINT(ID)<0 Then
  802. ID=0
  803. End If
  804. Response.Write WapTitle(ZVA_ErrorMsg(ID))&ZVA_ErrorMsg(ID)
  805. End Function
  807.    Function WapLoginStr()
  808.    WapLoginStr=ZC_BLOG_HOST&ZC_FILENAME_WAP&"?mode=WAP"
  809. End Function
  810.  
  811.  Function WapCheckLogin()
  812. Dim username,password,s
  813. username=Request.Form("username")
  814.  password=Request.Form("password")
  815.    If (Not IsEmpty(Request.Cookies("username"))) And (Not IsEmpty(Request.Cookies("password"))) Then
  816.    username=Request.Cookies("username")
  817.    password=Request.Cookies("password")
  818.    session(ZC_BLOG_CLSID&"username")=username
  819.    session(ZC_BLOG_CLSID&"password")=password
  820.    ElseIf (Not IsEmpty(session(ZC_BLOG_CLSID&"username"))) And (Not IsEmpty(session(ZC_BLOG_CLSID&"password"))) Then
  821.    username=session(ZC_BLOG_CLSID&"username")
  822.    password=session(ZC_BLOG_CLSID&"password")
  823.    Request.Cookies("username")=username
  824.    Request.Cookies("password")=password
  825.    End If
  827.    BlogUser.LoginType="Self"
  828.    BlogUser.Password=password
  829.    BlogUser.Name=username
  830.        BlogUser.Verify
  832.    
  833.    
  834.     s=BlogUser.Name&" "&ZVA_User_Level_Name(BlogUser.Level)&""
  835. If BlogUser.ID<>0 Then
  836. s=s&" <a href="""&WapLoginStr&"&amp;act=Logout&amp;url="&Escape(ZC_BLOG_HOST&ZC_FILENAME_WAP&"?mode=WAP&amp;"&Replace(Request.QueryString,"&","&amp;"))&""">"&ZC_MSG020&"</a><br/><br/>"
  837. End If
  839. WapCheckLogin=s
  840.    
  841.  End Function
  843.  Function WapCopyRight()
  845.  WapCopyRight=vbsunescape(Request.Cookies("username"))
  847.  End Function
  849.  Function WapLogout()
  851.     Response.Write WapTitle(ZC_MSG020)
  853. Response.Cookies("username")=""
  854.   Response.Cookies("password")=""
  855. session(ZC_BLOG_CLSID&"password")=""    
  856. session(ZC_BLOG_CLSID&"username")=""
  857. Response.Cookies("username")=Empty
  858.   Response.Cookies("password")=Empty
  859. session(ZC_BLOG_CLSID&"password")=Empty    
  860. session(ZC_BLOG_CLSID&"username")=Empty
  862.     Response.Write "<a href="""&unescape(Request.QueryString("url"))&""">"&ZC_MSG065&"</a><br/>"
  864.  End Function
  867.  Function ShowError_WAP(id)
  868.   Response.Redirect ZC_BLOG_HOST&ZC_FILENAME_WAP&"?act=Err&id="&id
  869.  End Function
  871. %>