sz_tishi.asp

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

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.TiShi()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub ShuRu()
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("SZ_TiShi.xkon.cn"))
		Dim TiShi
		TiShi=FS.ReadAll()
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
		c.Write("<form method=""post"" action=""SZ_TiShi.Asp"">提示:<br/><textarea rows=""10"" cols=""50"" name=""TiShi"">"&TiShi&"</textarea><br/><input type=""submit"" value=""提交"" /></form>")
	End Sub
	Private Sub ChuLi()
		Dim TiShi
		TiShi=s.Form("TiShi")
		Dim FSO,FS
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		Set FS=FSO.OpenTextFile(Server.Mappath("SZ_TiShi.xkon.cn"),2,True)
		FS.Write(TiShi)
		FS.Close
		Set FS=Nothing
		Set FSO=Nothing
		Call JiLu("设置提示")
		c.Writeln("操作成功")
	End Sub
	Call H_Title("设置提示")
	If s.Form("TiShi")<>"" Then
		Call ChuLi()
	End If
	Call ShuRu()
	Call H_End()
Set c=Nothing
Set s=Nothing
%>