text.asp

支持IE 手机同步访问的WAP论坛社区程序

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.A()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ReadText()
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("../Inc/"&Text&".xkon.cn.Asp"))
		Dim NeiRong
		NeiRong=Replace(FS.ReadAll(),"<%","")
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
		c.Write("<form method=""post"" action=""Text.Asp?Text="&Text&"&amp;l=Save"">")
		c.Writeln("代码:<br/><textarea rows=""20"" cols=""100"" name=""DaiMa"">"&NeiRong&"</textarea>")
		c.Write("<input type=""submit"" value=""修改"" /></form>")
	End Sub
	Private Sub Save()
		Dim DaiMa
		DaiMa="<%"&Request.Form("DaiMa")
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("../Inc/"&Text&".xkon.cn.Asp"),2,True)
		FS.Write(DaiMa)
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
	Response.Write("<script language=javascript>location.href=""Text.Asp?Text="&Text&""";</script>")
	Response.End()
	End Sub
	Dim Text,l
	Text=s.QueryString("Text")
	l=s.QueryString("l")
	Call H_Title("在线网页编辑")
	Select Case l
	Case ""
		Call ReadText()
	Case "Save"
		Call Save()
	End Select
	c.Write("<a href=""YeMian.Asp"">返回页面设计</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>