zifu_guolv.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 40 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.ZiFu_GuoLv()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub a()
		Dim FSO,FS,NeiRong
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("SZ_ZiFu.xkon.cn"))
		NeiRong=FS.ReadAll
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
		c.Write("<form method=""post"" action=""ZiFu_GuoLv.Asp"">要屏蔽的字符:<br/><textarea cols=""50"" rows=""10"" name=""ZiFu"">"&NeiRong&"</textarea><br/><input type=""submit"" value=""提交""/></form>")
	End Sub
	Private Sub b()
		Dim ZiFu
		ZiFu=Request.Form("ZiFu")
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("SZ_ZiFu.xkon.cn"),2,True)
		FS.Write(ZiFu)
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
	End Sub
	Call H_Title("字符过滤")
	If Request.Form("ZiFu")<>"" Then
		Call b()
	End If
	Call a()
	c.Write("<a href=""ShouYe.Asp"">返回后台首页</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>