function.asp

来自「功能介绍： 1、产品入库」· ASP 代码 · 共 24 行

<%
Sub GetSafeCode	
	Dim test,Result
	On Error Resume Next	'忽视产生的错误
	Set test=Server.CreateObject("Adodb.Stream")	'产生Adodb.Stream对象
	Set test=Nothing
	'如果无法产生Adodb.Stream对象
	'也就是无法获得对客户端的输入输出流
	'则无法直接相客户端浏览器写入图片数据
	'因此直接产生字符随机码，并返回
	If Err Then
		Dim zNum
		Randomize timer
		zNum = cint(8999*Rnd+1000)
		Session("SafeCode") = CStr(zNum)
		Result = Session("SafeCode")		
	Else
		'可以读写客户端输入输出流
		'调用checkcode.asp来产生图片
		Result = "<img src=""inc/checkcode.asp"" align=""absmiddle"">"		
	End If
	Response.Write Result
End Sub
%>