func2.asp

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

<%
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

function CIntToChar(sint)
	Select Case sint
	Case "1"
		CIntToChar = "课后作业"
	Case "2"
		CIntToChar = "实例分析"
	End Select
End Function

%>