<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog 彩虹网志个人版
'// 作 者: 朱煊(zx.asd)&(sipo)
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: edit_update.asp
'// 开始时间: 2006.07.30
'// 最后修改:
'// 备 注:
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'检查非法链接
Call CheckReference("")
'检查权限
If Not CheckRights("Update") Then Call ShowError(6)
BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG172
'*********************************************************
' 目的：
'*********************************************************
Function Bytes2bStr(vIn)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = adTypeText
.Open
.WriteText vin
.Position = 0
.Charset = "UTF-8"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
'*********************************************************
'*********************************************************
' 目的：
'*********************************************************
Function ExecuteUpdate(strXmlFile)
Dim objXmlFile,UpdateString
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.async=False
objXmlFile.load(BlogPath&"UPDATE\"&strXmlFile)
If objXmlFile.readyState=4 Then
If objXmlFile.parseError.errorCode = 0 Then
UpdateString=objXmlFile.documentElement.selectSingleNode("update").nodeTypedvalue
End If
End If
Set objXmlFile=Nothing
Execute(Bytes2bStr(UpdateString))
End Function
'*********************************************************
'*********************************************************
' 目的：
'*********************************************************
Function LoadUpdate(strXmlFile)
Dim objXmlFile,UpdateString
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.async=False
objXmlFile.load(BlogPath&"UPDATE\"&strXmlFile)
If objXmlFile.readyState=4 Then
If objXmlFile.parseError.errorCode = 0 Then
UpdateString=objXmlFile.documentElement.selectSingleNode("load").nodeTypedvalue
End If
End If
Set objXmlFile=Nothing
Execute(Bytes2bStr(UpdateString))
End Function
'*********************************************************
%>
<%=BlogTitle%>
<%
Response.Write "