func.asp

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

<%
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/error.txt")
	content = replace(content,"{theErrorDescription}",str)
	response.write content
End Function


function GetRndNum(x,y)
	if y<x then
		exit function
	end if
	dim i
	i=1
	dim temp1,temp2
	temp2=""
	do while i <= x
		Randomize
		temp1 = CStr(Int(y* Rnd)+1)
		if instr(temp2,temp1)>1 then  
			temp1 = temp1
		else
			temp2 = temp2 & "," & temp1 
			i = i+1
		End if
	loop
	GetRndNum=temp2
end function 

function CBinToChar(sbin)
	Select Case sbin
	Case "1"
		CBinToChar = "A"
	Case "10"
		CBinToChar = "B"
	Case "100"
		CBinToChar = "C"
	Case "1000"
		CBinToChar = "D"
	Case "11"
		CBinToChar = "AB"
	Case "111"
		CBinToChar = "ABC"
	Case "1111"
		CBinToChar = "ABCD"
	Case "101"
		CBinToChar = "AC"
	Case "1001"
		CBinToChar = "AD"
	Case "1011"
		CBinToChar = "ABD"
	Case "1101"
		CBinToChar = "ACD"
	Case "110"
		CBinToChar = "BC"
	Case "1010"
		CBinToChar = "BD"
	Case "1110"
		CBinToChar = "BCD"
	Case "1100"
		CBinToChar = "CD"
	End Select
End Function
%>