function2.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 24 行

<%
function  GetSafeCode2()	
	Dim test,Result
	 on error resume next
	Set test=Server.CreateObject("Adodb.Stream")
	Set test=Nothing
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("SafeCode2")= zNum
		Result = Session("SafeCode2")		
	Else
		Result = "<img src=""../../inc/Safecode.asp"" align=""absmiddle""  align=""absmiddle"">"		
	End If
	GetSafeCode2= Result
End function
ss=GetSafeCode2()

response.Write("document.write('"&ss&"')")



%>