func2.asp.bak

来自「数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计」· BAK 代码 · 共 22 行

<%
function FSOFileRead(filename)
	Dim objFSO,objCountFile,FiletempData
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
		FSOFileRead = objCountFile.ReadAll
		objCountFile.Close
	Set objCountFile=Nothing
	Set objFSO = Nothing
End Function

Function GetSafeStr(str)
	GetSafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "")
End Function

function GoError(str)
	Dim content
	content = FSOFileRead("../html/error2.txt")
	content = replace(content,"{theErrorDescription}",str)
	response.write content
End Function
%>