showcode.asp

来自「ajax全站源代码 功能齐全」· ASP 代码 · 共 51 行

<!--#include file="verifycode.asp" -->
<%
Dim VC, Code

Randomize

Set VC = New NetRube_VerifyCode
With VC

Select Case Request.QueryString("type")
	Case "2"
		Code = Int(Rnd * 900000 + 100000)
		Session("VerifyCode") = Code

		.BGroundColor = "#FFFF00"
		.FGroundColor = "#FF0000"
		.VerifyCode Code, False
		.Noises 100, False
		.Write
	Case "3"
		Code = Int(Rnd * 90000 + 10000)
		Session("VerifyCode") = Code

		.BGroundColor = "#000000"
		.FGroundColor = "#FFFFFF"
		.VerifyCode Code, False
		.Noises 50, True
		.Write
	Case "4"
		Code = Int(Rnd * 900000 + 100000)
		Session("VerifyCode") = Code

		.BGroundColor = "#FFFFFF"
		.FGroundColor = "#000000"
		.VerifyCode Code, True
		.Noises 100, True
		.Write
	Case Else
		Code = Int(Rnd * 90000 + 10000)
		Session("VerifyCode") = Code

		.BGroundColor = "#FFFFFF"	' 图片背景颜色
		.FGroundColor = "#000000"	' 前景（文本）颜色
		.VerifyCode Code, False		' 处理验证码，第二个参数为是否显示彩色文本
		.Noises 50, False			' 添加杂点，第一个参数为杂点数量，第二个参数为是否显示彩色杂点
		.Write						' 输出图片
End Select

End With
Set VC = Nothing
%>