savexml.aspx

论坛BBS

<%@ Page language="vb" ContentType="text/html"%>
<%@ Import Namespace="System" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.Xml" %>
<%
    Dim str As String 'validateRequest=false
    Dim op,action,uid,group,name,email,subject,body,id,lv,bbsid,curxfile As String 
    Dim strXml As String
   
    Dim menudata As String 
    Dim menudata1 As String 
	uid="d" & DateDiff ( "s" ,  "2000-1-1"  ,now )
	
    str = Request.ServerVariables("HTTP_REFERER")
    group = Request.Form("group")
	id=Request.Form("id") 'filename
    action=Request.Form("action")
	name=Request.Form("name")
	email=Request.Form("email")
	subject=Request.Form("subject")
	body=Request.Form("body")
	lv=Request.Form("lv")
	bbsid=Request.Form("bbsid")
	curxfile=Request.Form("curxfile")
	if group="" then
	   Response.Write("<script>alert('请先进入一个讨论组！再发贴子.');history.back();</script>")
       response.End()   
	end if
       'Response.Write("数据交换岛无数据！" & group &"111"& Request.Form("id"))       
    On Error Resume Next
    'response.write( Encoding.UTF8.GetString(Encoding.Convert(Encoding.UTF8, Encoding.ASCII, Encoding.UTF8.GetBytes(menudata))))
   
    If Len(body) > 10000 Then 
        Response.Write("<script>alert('数据量超过10000个字，保存规则不容许！')<script>")
        Response.End()
    End IF
    Dim doc As New XmlDocument()
        
    Select Case action
    Case "new"
		doc.Load(server.mappath("data/" & group &"/"& "l1.xml"))
		Dim root As XmlElement = doc.DocumentElement
		'Dim CData As XmlCDataSection
        'CData = doc.CreateCDataSection(body)
		'Create a new node. uid是第一个帖的文件名，也是任何帖的唯一标志
		Dim icount As Integer =doc.selectNodes("//*[@id]").Count
		Dim maxBBs As Integer=300
		Dim elem As XmlElement
					
			elem = doc.CreateElement("l1")
			elem.SetAttribute("id", uid)
			elem.InnerXml=  "<d>0|:|"& name & "|:|"& email & "|:|" & subject &"|:|"& now &"|:|"& uid &"</d>"
			root.AppendChild(elem)
			doc.Save(server.mappath("data/" & group &"/"& "l1.xml"))
		
      	'再保存文件内容
		doc.LoadXml("<?xml version=""1.0"" encoding=""gb2312""?><data><nextnode/></data>")
		root = doc.DocumentElement
		elem= doc.CreateElement(uid)
        elem.InnerXml="<![CDATA["& body &" ]]>"
        'Add the node to the document.
        root.AppendChild(elem)				
		doc.Save(server.mappath("data/" & group &"/"& uid & ".xml"))
    Case "reply"      
		doc.Load(server.mappath("data/" & group &"/"& curxfile))
		Dim root As XmlElement = doc.DocumentElement
		Dim elem As XmlElement = doc.CreateElement("l"& (cint(lv)+1))	
		elem.SetAttribute("id", uid)
		elem.InnerXml=  lv & "|:|"& name & "|:|"& email & "|:|" & subject &"|:|"& now &"|:|"& uid				
		doc.selectNodes("//l"& lv &"[@id = '"& bbsid &"']").item(0).AppendChild(elem)		
		doc.Save(server.mappath("data/" & group &"/"& curxfile))
      	'再保存文件内容
		doc.Load(server.mappath("data/" & group &"/"& id & ".xml"))
		root = doc.DocumentElement
		elem= doc.CreateElement(uid)
        elem.InnerXml="<![CDATA["& body &" ]]>"
        'Add the node to the document.
        root.AppendChild(elem)				
		doc.Save(server.mappath("data/" & group &"/"& id & ".xml"))
    Case "groups"'在我的站点上不久将建立该方法，请届时访问获得支持		
    Case "edit"       
	Case "delete"       
	Case "newgroup"
	case "updategroup"   
	Case "removegroup"
	Case "updatepassword"
	Case "addperfect" '加精华
	Case "deleteperfect" '删精华
	Case "addmanager" '加斑竹
	Case "addpower" '加权限
	Case "modifypower" '修改权限
	Case "killip" '禁止IP
	Case "sendmsg" '系统广播
    End Select
		
    If Err.Number = 0 Then
        Response.Write("<script>top.opener.parent.frames['oeBar'].loadTree('"& group &"')</script>" & vbcrlf)
		Response.Write("<script>alert('保存成功！');self.close();</script>")
    Else
        Response.Write("<script>alert('出现异常！" & err.description & "');history.back();</script>")
    End IF
	
%>