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

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

中间件编程

开发平台：

HTML/CSS

index.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog
  5. '// 作    者:    朱煊(zx.asd)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    XML-RPC/index.asp
  11. '// 开始时间:    2005.09.30
  12. '// 最后修改:    
  13. '// 备    注:    XML-RPC主文件
  14. '///////////////////////////////////////////////////////////////////////////////
  15. %>
  16. <% Option Explicit %>
  17. <% On Error Resume Next %>
  18. <% Response.Charset="UTF-8" %>
  19. <% Response.Buffer=True %>
  20. <!-- #include file="../c_option.asp" -->
  21. <!-- #include file="../function/c_function.asp" -->
  22. <!-- #include file="../function/c_function_md5.asp" -->
  23. <!-- #include file="../function/c_system_lib.asp" -->
  24. <!-- #include file="../function/c_system_base.asp" -->
  25. <!-- #include file="../function/c_system_event.asp" -->
  26. <!-- #include file="../function/c_system_plugin.asp" -->
  27. <!-- #include file="../plugin/p_config.asp" -->
  28. <!-- #include file="../function/rss_lib.asp" -->
  29. <!-- #include file="../function/atom_lib.asp" -->
  30. <%
  31. '/////////////////////////////////////////////////////////////////////////////////////////
  32. '*********************************************************
  33. ' 目的：    
  34. '*********************************************************
  35. Function ParseDateForRFC3339(dtmDate)
  37. Dim dtmDay, dtmWeekDay, dtmMonth, dtmYear
  38. Dim dtmHours, dtmMinutes, dtmSeconds
  40. Dim strTimeZone
  42. dtmYear = Year(dtmDate)
  43. dtmMonth = Right("00" & Month(dtmDate),2)
  44. dtmDay = Right("00" & Day(dtmDate),2)
  46. dtmHours = Right("00" & Hour(dtmDate),2)
  47. dtmMinutes = Right("00" & Minute(dtmDate),2)
  48. dtmSeconds = Right("00" & Second(dtmDate),2)
  50. strTimeZone=Left(ZC_TIME_ZONE,3) & ":" & Right(ZC_TIME_ZONE,2)
  52. ParseDateForRFC3339 = dtmYear & "-" & dtmMonth & "-" & dtmDay & "T" & dtmHours & ":" & dtmMinutes & ":" & dtmSeconds & strTimeZone
  54. End Function 
  55. '*********************************************************
  60. '*********************************************************
  61. ' 目的：    
  62. '*********************************************************
  63. Function CheckUserAndRights(userName,userPassWord,strAction)
  65. Set BlogUser=Nothing
  66. Set BlogUser=New TUser
  68. BlogUser.LoginType="Self"
  69. BlogUser.Name=userName
  70. BlogUser.PassWord=MD5(userPassWord)
  71. If BlogUser.Verify() Then
  72. If Not CheckRights(strAction) Then Call RespondError(6,ZVA_ErrorMsg(6))
  73. CheckUserAndRights=True
  74. Else
  75. Call RespondError(7,ZVA_ErrorMsg(7))
  76. End If
  78. End Function
  79. '*********************************************************
  84. '*********************************************************
  85. ' 目的：    
  86. '*********************************************************
  87. Function this_getUsersBlogs()
  89. Dim strXML
  90. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><array><data><value><struct><member><name>url</name><value><string>$%#1#%$</string></value></member><member><name>blogid</name><value><string>$%#2#%$</string></value></member><member><name>blogName</name><value><string>$%#3#%$</string></value></member></struct></value></data></array></value></param></params></methodResponse>"
  92. strXML=Replace(strXML,"$%#1#%$",TransferHTML(ZC_BLOG_HOST,"[html-format]"))
  93. strXML=Replace(strXML,"$%#2#%$",TransferHTML(ZC_BLOG_CLSID,"[html-format]"))
  94. strXML=Replace(strXML,"$%#3#%$",TransferHTML(ZC_BLOG_NAME,"[html-format]"))
  96. Response.Write strXML
  98. End Function
  99. '*********************************************************
  104. '*********************************************************
  105. ' 目的：    
  106. '*********************************************************
  107. Function this_getCategories()
  109. Dim strXML
  110. Dim strCategoryInfo
  112. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><array><data>$%#1#%$</data></array></value></param></params></methodResponse>"
  114. strCategoryInfo="<value><struct><member><name>description</name><value><string>$%#1#%$</string></value></member><member><name>httpUrl</name><value><string>$%#2#%$</string></value></member><member><name>rssUrl</name><value><string>$%#3#%$</string></value></member><member><name>title</name><value><string>$%#4#%$</string></value></member><member><name>categoryid</name><value><string>$%#5#%$</string></value></member></struct></value>"
  116. Dim Cate
  117. Dim s
  118. Dim strCategories
  119. For Each Cate in Categorys
  120. If IsObject(Cate) Then
  121. s=strCategoryInfo
  122. s=Replace(s,"$%#1#%$",TransferHTML(Cate.Name,"[html-format]"))
  123. s=Replace(s,"$%#2#%$",TransferHTML(Cate.Url,"[html-format]"))
  124. s=Replace(s,"$%#3#%$",TransferHTML(Cate.Url,"[html-format]"))
  125. s=Replace(s,"$%#4#%$",TransferHTML(Cate.Name,"[html-format]"))
  126. s=Replace(s,"$%#5#%$",TransferHTML(Cate.ID,"[html-format]"))
  127. strCategories=strCategories & s
  128. End If
  129. Next
  131. strXML=Replace(strXML,"$%#1#%$",strCategories)
  133. Response.Write strXML
  135. End Function
  136. '*********************************************************
  141. '*********************************************************
  142. ' 目的：    
  143. '*********************************************************
  144. Function this_getRecentPosts(numberOfPosts)
  146. Dim strXML
  147. Dim strPost
  148. Dim strRecentPosts
  150. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><array><data>$%#1#%$</data></array></value></param></params></methodResponse>"
  152. strPost="<value><struct><member><name>title</name><value><string>$%#1#%$</string></value></member><member><name>description</name><value><string>$%#2#%$</string></value></member><member><name>dateCreated</name><value><dateTime.iso8601>$%#3#%$</dateTime.iso8601></value></member><member><name>categories</name><value><array><data><value><string>$%#4#%$</string></value></data></array></value></member><member><name>postid</name><value><string>$%#5#%$</string></value></member><member><name>userid</name><value><string>$%#6#%$</string></value></member><member><name>link</name><value><string>$%#7#%$</string></value></member></struct></value>"
  154. Dim s
  155. Dim i
  156. Dim objRS
  157. Dim strSQL
  158. Dim strPage
  159. Dim objArticle
  161. Set objRS=Server.CreateObject("ADODB.Recordset")
  162. objRS.CursorType = adOpenKeyset
  163. objRS.LockType = adLockReadOnly
  164. objRS.ActiveConnection=objConn
  165. objRS.Source=""
  167. If CheckRights("Root")=False Then strSQL="WHERE [log_AuthorID] = " & BlogUser.ID
  169. objRS.Open("SELECT [log_ID] FROM [blog_Article] "& strSQL &" ORDER BY [log_PostTime] DESC")
  170. objRS.PageSize=numberOfPosts
  171. If objRS.PageCount>0 Then objRS.AbsolutePage = 1
  173. If (Not objRS.bof) And (Not objRS.eof) Then
  175. For i=1 to objRS.PageSize
  177. Set objArticle=New TArticle
  179. If objArticle.LoadInfoByID(objRS("log_ID")) Then
  180. s=strPost
  181. s=Replace(s,"$%#1#%$",TransferHTML(objArticle.Title,"[html-format]"))
  182. s=Replace(s,"$%#2#%$",TransferHTML(objArticle.Content,"[html-format]"))
  183. s=Replace(s,"$%#3#%$",TransferHTML(ParseDateForRFC3339(objArticle.PostTime),"[html-format]"))
  184. s=Replace(s,"$%#4#%$",TransferHTML(Categorys(objArticle.CateID).Name,"[html-format]"))
  185. s=Replace(s,"$%#5#%$",TransferHTML(objArticle.ID,"[html-format]"))
  186. s=Replace(s,"$%#6#%$",TransferHTML(objArticle.AuthorID,"[html-format]"))
  187. s=Replace(s,"$%#7#%$",TransferHTML(objArticle.Url,"[html-format]"))
  189. strRecentPosts=strRecentPosts & s
  190. End If
  192. objRS.MoveNext
  193. If objRS.eof Then Exit For
  195. Set objArticle=Nothing
  197. Next
  199. End If
  201. strXML=Replace(strXML,"$%#1#%$",strRecentPosts)
  203. Response.Write strXML
  205. End Function
  206. '*********************************************************
  211. '*********************************************************
  212. ' 目的：    
  213. '*********************************************************
  214. Function this_newPost(structPost,bolPublish)
  216. On Error Resume Next
  218. Dim objXmlFile
  219. Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
  221. objXmlFile.loadXML(structPost)
  223. Dim strXML
  225. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><string>$%#1#%$</string></value></param></params></methodResponse>"
  228. Dim objArticle
  229. Set objArticle=New TArticle
  230. objArticle.ID=0
  231. objArticle.AuthorID=BlogUser.ID
  232. If bolPublish=True Then
  233. objArticle.Level=4
  234. Else
  235. objArticle.Level=1
  236. End If
  237. objArticle.PostTime=Now()
  238. objArticle.Title=objXmlFile.documentElement.selectSingleNode("member[name=""title""]/value/string").text
  239. objArticle.Tag=""
  240. objArticle.Alias=""
  243. Dim strCate
  244. strCate=objXmlFile.documentElement.selectSingleNode("member[name=""categories""]/value/array/data/value[0]/string").text
  246. Dim Cate
  247. Dim i
  248. For i=UBound(Categorys) To LBound(Categorys) Step -1
  249. If IsObject(Categorys(i)) Then
  250. objArticle.CateID=Categorys(i).ID
  251. If strCate=Categorys(i).Name Then
  252. objArticle.CateID=Categorys(i).ID
  253. Exit For
  254. End If
  255. End If
  256. Next
  258. objArticle.Content=objXmlFile.documentElement.selectSingleNode("member[name=""description""]/value/string").text
  260. Dim objRegExp
  261. Dim s
  262. s=objArticle.Content
  263. Set objRegExp=New RegExp
  264. objRegExp.IgnoreCase =True
  265. objRegExp.Global=True
  266. objRegExp.Pattern="<[^>]*>"
  267. s=objRegExp.Replace(s,"")
  268. s=Left(s,ZC_TB_EXCERPT_MAX) & "..."
  269. objArticle.Intro=objArticle.Content
  271. If objArticle.Post=True Then
  272. Call BuildArticle(objArticle.ID,true,true)
  274. Call MakeBlogReBuild_Core()
  275. Response.Clear
  277. strXML=Replace(strXML,"$%#1#%$",objArticle.ID)
  278. Response.Write strXML
  279. Else
  280. Call RespondError(11,ZVA_ErrorMsg(11))
  281. End If
  283. Err.Clear
  285. End Function
  286. '*********************************************************
  291. '*********************************************************
  292. ' 目的：    
  293. '*********************************************************
  294. Function this_editPost(intPostID,structPost,bolPublish)
  296. On Error Resume Next
  298. Dim objXmlFile
  299. Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
  301. objXmlFile.loadXML(structPost)
  303. Dim strXML
  305. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><boolean>$%#1#%$</boolean></value></param></params></methodResponse>"
  307. Dim objArticle
  308. Set objArticle=New TArticle
  310. If objArticle.LoadInfoByID(intPostID) Then
  311. If Not((objArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Call RespondError(6,ZVA_ErrorMsg(6))
  312. Else
  313. Call RespondError(9,ZVA_ErrorMsg(9))
  314. End If
  316. objArticle.Title=objXmlFile.documentElement.selectSingleNode("member[name=""title""]/value/string").text
  318. If bolPublish=True Then
  319. objArticle.Level=4
  320. Else
  321. objArticle.Level=1
  322. End If
  324. Dim strCate
  325. strCate=objXmlFile.documentElement.selectSingleNode("member[name=""categories""]/value/array/data/value[0]/string").text
  326. If strCate<>"" Then
  327. Dim Cate
  328. Dim i
  329. For i=UBound(Categorys) To LBound(Categorys) Step -1
  330. If IsObject(Categorys(i)) Then
  331. objArticle.CateID=Categorys(i).ID
  332. If strCate=Categorys(i).Name Then
  333. objArticle.CateID=Categorys(i).ID
  334. Exit For
  335. End If
  336. End If
  337. Next
  338. End If
  339. objArticle.Content=objXmlFile.documentElement.selectSingleNode("member[name=""description""]/value/string").text
  341. Dim objRegExp
  342. Dim s
  343. s=objArticle.Content
  344. Set objRegExp=New RegExp
  345. objRegExp.IgnoreCase =True
  346. objRegExp.Global=True
  347. objRegExp.Pattern="<[^>]*>"
  348. s=objRegExp.Replace(s,"")
  349. s=Left(s,ZC_TB_EXCERPT_MAX) & "..."
  350. objArticle.Intro=objArticle.Content
  352. If objArticle.Post=True Then
  353. Call BuildArticle(objArticle.ID,true,true)
  355. Call MakeBlogReBuild_Core()
  356. Response.Clear
  358. strXML=Replace(strXML,"$%#1#%$",1)
  359. Response.Write strXML
  360. Else
  361. Call RespondError(11,ZVA_ErrorMsg(11))
  362. End If
  364. Err.Clear
  366. End Function
  367. '*********************************************************
  372. '*********************************************************
  373. ' 目的：    
  374. '*********************************************************
  375. Function this_getPost(intPostID)
  377. Dim strXML
  378. Dim strPost
  379. Dim strRecentPosts
  380. Dim s
  382. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value>$%#1#%$</value></param></params></methodResponse>"
  384. strPost="<struct><member><name>title</name><value><string>$%#1#%$</string></value></member><member><name>description</name><value><string>$%#2#%$</string></value></member><member><name>dateCreated</name><value><dateTime.iso8601>$%#3#%$</dateTime.iso8601></value></member><member><name>categories</name><value><array><data><value><string>$%#4#%$</string></value></data></array></value></member><member><name>postid</name><value><string>$%#5#%$</string></value></member><member><name>userid</name><value><string>$%#6#%$</string></value></member><member><name>link</name><value><string>$%#7#%$</string></value></member></struct>"
  387. Dim objArticle
  388. Set objArticle=New TArticle
  390. If objArticle.LoadInfoByID(intPostID) Then
  391. If Not((objArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Call RespondError(6,ZVA_ErrorMsg(6))
  392. Else
  393. Call RespondError(9,ZVA_ErrorMsg(9))
  394. End If
  396. s=strPost
  397. s=Replace(s,"$%#1#%$",TransferHTML(objArticle.Title,"[html-japan][html-format]"))
  398. s=Replace(s,"$%#2#%$",TransferHTML(objArticle.Content,"[html-japan][html-format]"))
  399. s=Replace(s,"$%#3#%$",TransferHTML(ParseDateForRFC3339(objArticle.PostTime),"[html-format]"))
  400. s=Replace(s,"$%#4#%$",TransferHTML(Categorys(objArticle.CateID).Name,"[html-format]"))
  401. s=Replace(s,"$%#5#%$",TransferHTML(objArticle.ID,"[html-format]"))
  402. s=Replace(s,"$%#6#%$",TransferHTML(objArticle.AuthorID,"[html-format]"))
  403. s=Replace(s,"$%#7#%$",TransferHTML(objArticle.Url,"[html-format]"))
  405. strRecentPosts=strRecentPosts & s
  407. strXML=Replace(strXML,"$%#1#%$",strRecentPosts)
  409. Response.Write strXML
  411. End Function
  412. '*********************************************************
  417. '*********************************************************
  418. ' 目的：    
  419. '*********************************************************
  420. Function this_newMediaObject(strFileName,strFileType,strFileBits)
  422. Dim objXmlFile
  423. Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
  425. Dim strXML
  426. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><struct><member><name>url</name><value><string>$%#1#%$</string></value></member></struct></value></param></params></methodResponse>"
  428. Dim objUpLoadFile
  429. Set objUpLoadFile=New TUpLoadFile
  430. objUpLoadFile.AuthorID=BlogUser.ID
  431. objUpLoadFile.FileName=strFileName
  432. objUpLoadFile.UploadType="Stream"
  434. If Not CheckRegExp(LCase(strFileName),".("& ZC_UPLOAD_FILETYPE &")$") Then Call RespondError(26,ZVA_ErrorMsg(26))
  436. Dim xmlnode
  437. Set xmlnode = objXmlFile.createElement("file")
  438. xmlnode.datatype = "bin.base64"
  439. xmlnode.text = strFileBits
  441. Dim objStreamUp
  442. Set objStreamUp = Server.CreateObject("ADODB.Stream")
  444. With objStreamUp
  445. .Type = adTypeBinary
  446. .Mode = adModeReadWrite
  447. .Open
  448. .Position = 0
  449. .Write xmlnode.nodeTypedvalue
  451. If .Size>ZC_UPLOAD_FILESIZE Then Call RespondError(27,ZVA_ErrorMsg(27))
  453. Dim objRS
  454. strFileName=FilterSQL(strFileName)
  455. If Not objConn.Execute("SELECT * FROM [blog_UpLoad] WHERE [ul_FileName] = '" & strFileName & "'").EOF Then Call RespondError(28,ZVA_ErrorMsg(28))
  457. .Position = 0
  458. objUpLoadFile.Stream=.Read
  459. .Close
  460. End With
  462. If objUpLoadFile.UpLoad(False) Then
  464. strXML=Replace(strXML,"$%#1#%$",TransferHTML(objUpLoadFile.FullUrlPathName,"[html-format]"))
  466. Response.Write strXML
  468. End If
  470. End Function
  471. '*********************************************************
  476. '*********************************************************
  477. ' 目的：    
  478. '*********************************************************
  479. Function this_deletePost(intPostID)
  481. Dim strXML
  483. strXML="<?xml version=""1.0"" encoding=""UTF-8""?><methodResponse><params><param><value><boolean>$%#1#%$</boolean></value></param></params></methodResponse>"
  485. Dim objArticle
  486. Set objArticle=New TArticle
  488. If objArticle.LoadInfoByID(intPostID) Then
  489. If Not((objArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Call RespondError(6,ZVA_ErrorMsg(6))
  490. Else
  491. Call RespondError(9,ZVA_ErrorMsg(9))
  492. End If
  494. If objArticle.Del Then
  496. Call MakeBlogReBuild_Core()
  497. Response.Clear
  499. strXML=Replace(strXML,"$%#1#%$",1)
  500. Response.Write strXML
  501. Else
  502. Call RespondError(11,ZVA_ErrorMsg(11))
  503. End If
  505. End Function
  506. '*********************************************************
  511. '/////////////////////////////////////////////////////////////////////////////////////////
  512. Call System_Initialize()
  514. Dim strXmlCall
  515. Dim objXmlFile
  517. 'plugin node
  518. For Each sAction_Plugin_XMLRPC_Begin in Action_Plugin_XMLRPC_Begin
  519. If Not IsEmpty(sAction_Plugin_XMLRPC_Begin) Then Call Execute(sAction_Plugin_XMLRPC_Begin)
  520. Next
  523. Response.ContentType = "text/xml"
  525. If strXmlCall="" Then
  526. strXmlCall=Request.BinaryRead(Request.TotalBytes)
  527. End If
  529. Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
  531. objXmlFile.load(strXmlCall)
  533. If objXmlFile.readyState=4 Then
  534. If objXmlFile.parseError.errorCode <> 0 Then
  535. Call RespondError(0,ZVA_ErrorMsg(0))
  536. Else
  538. Dim objRootNode
  539. Set objRootNode=objXmlFile.documentElement
  541. Dim strAction
  542. strAction=objRootNode.selectSingleNode("methodName").text
  544. Dim strUserName
  545. Dim strUserPassWord
  546. Dim intNumberOfPosts
  547. Dim strPost
  548. Dim intPostID
  549. Dim strFileName
  550. Dim strFileType
  551. Dim strFileBits
  552. Dim bolPublish
  554. Select Case strAction
  555. Case "blogger.getUsersBlogs":
  556. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  557. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  558. If CheckUserAndRights(strUserName,strUserPassWord,"admin") Then Call this_getUsersBlogs()
  559. Case "metaWeblog.getCategories":
  560. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  561. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  562. If CheckUserAndRights(strUserName,strUserPassWord,"admin") Then Call this_getCategories()
  563. Case "metaWeblog.getRecentPosts":
  564. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  565. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  566. intNumberOfPosts=objRootNode.selectSingleNode("params/param[3]/value/int").text
  567. If CheckUserAndRights(strUserName,strUserPassWord,"ArticleMng") Then Call this_getRecentPosts(intNumberOfPosts)
  568. Case "metaWeblog.newPost":
  569. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  570. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  571. strPost=objRootNode.selectSingleNode("params/param[3]/value/struct").xml
  572. bolPublish=CBool(objRootNode.selectSingleNode("params/param[4]/value/boolean").text)
  573. If CheckUserAndRights(strUserName,strUserPassWord,"ArticleEdt") Then Call this_newPost(strPost,bolPublish)
  574. Case "metaWeblog.editPost":
  575. intPostID=objRootNode.selectSingleNode("params/param[0]/value/string").text
  576. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  577. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  578. strPost=objRootNode.selectSingleNode("params/param[3]/value/struct").xml
  579. bolPublish=CBool(objRootNode.selectSingleNode("params/param[4]/value/boolean").text)
  580. If CheckUserAndRights(strUserName,strUserPassWord,"ArticleEdt") Then Call this_editPost(intPostID,strPost,bolPublish)
  581. Case "metaWeblog.getPost":
  582. intPostID=objRootNode.selectSingleNode("params/param[0]/value/string").text
  583. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  584. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  585. If CheckUserAndRights(strUserName,strUserPassWord,"ArticleMng") Then Call this_getPost(intPostID)
  586. Case "metaWeblog.newMediaObject":
  587. strUserName=objRootNode.selectSingleNode("params/param[1]/value/string").text
  588. strUserPassWord=objRootNode.selectSingleNode("params/param[2]/value/string").text
  589. strFileName=objRootNode.selectSingleNode("params/param[3]/value/struct/member[name=""name""]/value/string").text
  590. strFileType=objRootNode.selectSingleNode("params/param[3]/value/struct/member[name=""type""]/value/string").text
  591. strFileBits=objRootNode.selectSingleNode("params/param[3]/value/struct/member[name=""bits""]/value/base64").text
  592. If CheckUserAndRights(strUserName,strUserPassWord,"FileUpload") Then Call this_newMediaObject(strFileName,strFileType,strFileBits)
  593. Case "blogger.deletePost":
  594. intPostID=objRootNode.selectSingleNode("params/param[1]/value/string").text
  595. strUserName=objRootNode.selectSingleNode("params/param[2]/value/string").text
  596. strUserPassWord=objRootNode.selectSingleNode("params/param[3]/value/string").text
  597. If CheckUserAndRights(strUserName,strUserPassWord,"ArticleDel") Then Call this_deletePost(intPostID)
  598. Case Else
  599. Call RespondError(1,ZVA_ErrorMsg(1))
  600. End Select 
  602. End If
  603. End If
  605. Call ClearGlobeCache
  606. Call LoadGlobeCache
  608. 'plugin node
  609. For Each sAction_Plugin_XMLRPC_End in Action_Plugin_XMLRPC_End
  610. If Not IsEmpty(sAction_Plugin_XMLRPC_End) Then Call Execute(sAction_Plugin_XMLRPC_End)
  611. Next
  613. Call System_Terminate()
  615. If Err.Number<>0 then
  616. Call RespondError(0,ZVA_ErrorMsg(0))
  617. End If
  618. %>