sysop1.asp

很好的OA办公系统

<%
If Session("sysop")=True Then
	Response.Write "身份确认通过！"
	Else
	Response.Write "无法通过验证，停止运行！"
	response.End
End If
If Session("sysop")=True and request.form("action")="sysop" Then
	call SaveFile(Request.form("cr"),Server.MapPath("."),"roomname.asp")
	Response.Write "正常保存！！"
	Response.Write "<a href=""#"" onClick=""history.go(-1)"">返回</a>"
	Sub SaveFile(TextToSave, PathInfo, FileIn)
	On Error Resume Next
	Dim FileObject, a
	Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
	Set a = FileObject.CreateTextFile(PathInfo & "\" & FileIn, True)
	a.WriteLine(TextToSave)
	a.Close
	Set a = Nothing
	Set FileObject = Nothing
	If Err Then
		SaveFile = "错误号#" & Err.number & VbCrlf
		SaveFile = SaveFile & Err.description 
		Err.Clear
	End If
End Sub
End if
Response.End
%>