function.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 131 行

ASP
131 行
字号 
<%
Function FormatInt(IntStr,Bits)
	Dim Ints : Ints=CStr(IntStr)
	If IsNumeric(IntStr) Then
		If Len(Ints)<Bits Then
			For I = 1 To Bits-Len(Ints)
				Ints="0"&Ints
			Next
		End If
		FormatInt=Ints
	Else
		For I = 1 To Bits
			FormatInt="0"&FormatInt
		Next
	End If
End Function


Function FormatStr(InStrs,Types)
	If Types=0 Then
		InStrs=Replace(InStrs,"A","a")
		InStrs=Replace(InStrs,"B","b")
		InStrs=Replace(InStrs,"C","c")
		InStrs=Replace(InStrs,"D","d")
		InStrs=Replace(InStrs,"E","e")
		InStrs=Replace(InStrs,"F","f")
		InStrs=Replace(InStrs,"G","g")
		InStrs=Replace(InStrs,"H","h")
		InStrs=Replace(InStrs,"I","i")
		InStrs=Replace(InStrs,"J","j")
		InStrs=Replace(InStrs,"K","k")
		InStrs=Replace(InStrs,"L","l")
		InStrs=Replace(InStrs,"M","m")
		InStrs=Replace(InStrs,"N","n")
		InStrs=Replace(InStrs,"O","o")
		InStrs=Replace(InStrs,"P","p")
		InStrs=Replace(InStrs,"Q","q")
		InStrs=Replace(InStrs,"R","r")
		InStrs=Replace(InStrs,"S","s")
		InStrs=Replace(InStrs,"T","t")
		InStrs=Replace(InStrs,"U","u")
		InStrs=Replace(InStrs,"V","v")
		InStrs=Replace(InStrs,"W","w")
		InStrs=Replace(InStrs,"X","x")
		InStrs=Replace(InStrs,"Y","y")
		InStrs=Replace(InStrs,"Z","z")
	Else
		InStrs=Replace(InStrs,"a","A")
		InStrs=Replace(InStrs,"b","B")
		InStrs=Replace(InStrs,"c","C")
		InStrs=Replace(InStrs,"d","D")
		InStrs=Replace(InStrs,"e","E")
		InStrs=Replace(InStrs,"f","F")
		InStrs=Replace(InStrs,"g","G")
		InStrs=Replace(InStrs,"h","H")
		InStrs=Replace(InStrs,"i","I")
		InStrs=Replace(InStrs,"j","J")
		InStrs=Replace(InStrs,"k","K")
		InStrs=Replace(InStrs,"l","L")
		InStrs=Replace(InStrs,"m","M")
		InStrs=Replace(InStrs,"n","N")
		InStrs=Replace(InStrs,"o","O")
		InStrs=Replace(InStrs,"p","P")
		InStrs=Replace(InStrs,"q","Q")
		InStrs=Replace(InStrs,"r","R")
		InStrs=Replace(InStrs,"s","S")
		InStrs=Replace(InStrs,"t","T")
		InStrs=Replace(InStrs,"u","U")
		InStrs=Replace(InStrs,"v","V")
		InStrs=Replace(InStrs,"w","W")
		InStrs=Replace(InStrs,"x","X")
		InStrs=Replace(InStrs,"y","Y")
		InStrs=Replace(InStrs,"z","Z")
	End If
	FormatStr = InStrs
End Function

Function CsType(I)
	Select Case I
	Case 1 CsType="IP到地址查询"
	Case 2 CsType="地址到IP查询"
	Case 3 CsType="手机号码查询"
	Case 4 CsType="域名分析查询"
	Case 5 CsType="身份证号查询"
	Case 6 CsType="成语词典查询"
	Case 7 CsType="邮编地址查询"
	Case 8 CsType="区号城市查询"
	Case 9 CsType="列车时刻查询"
	Case 99 CsType="<span style='color:Blue;'>报告错误数据</span>"
	Case Else CsType="未知查询类型"
	End Select
End Function


Function PageBack(msg)
	Response.Write "<html><meta http-equiv='content-type' content='text/html; charset=gb2312'>"
	Response.Write "<script language=javascript>" & CRLF
	Response.Write "alert('" & msg & "');" & CRLF
	Response.Write "history.back();" & CRLF
	Response.Write "</script></html>" & CRLF
	Response.End()
End Function

Function PageClose (msg)
	Response.Write "<meta http-equiv='content-type' content='text/html; charset=gb2312'>"
	Response.Write "<script language=javascript>" & CRLF
	Response.Write "alert('" & msg & "');" & CRLF
	Response.Write "window.close();" & CRLF
	Response.Write "</script>" & CRLF
	Response.End()
end Function	

Function PageGo (page, msg)
	Response.Write "<meta http-equiv='content-type' content='text/html; charset=gb2312'>"
	Response.Write "<script language=javascript>" & CRLF
	Response.Write "alert('" & msg & "');" & CRLF
	Response.Write "window.location.href='" & page & "';" & CRLF
	Response.Write "</script>" & CRLF
	Response.End()
end Function	

Function PageTo (page, msg, target)
	Response.Write "<meta http-equiv='content-type' content='text/html; charset=gb2312'>"
	Response.Write "<script language=javascript>" & CRLF
	Response.Write "alert('" & msg & "');" & CRLF
	Response.Write "window.open('" & page & "', '" & target & "');" & CRLF
	Response.Write "</script>" & CRLF
	Response.End()
end Function	
%>

function.asp - 源码说明

本页面展示了「是个不错的文件代码,希望大家好好用,」中的 function.asp 源码文件，采用 ASP 编程语言编写，共 131 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与代码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?