<%
Function getcode1()
Dim mCode
On Error Resume Next
Set mCode=Server.CreateObject("Adodb.Stream")
Set mCode=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("BlaydCode") = zNum
getcode1= Session("BlaydCode")
Else
getcode1= " <img src=""/inc/code.asp""> "
End If
End Function
%>
<%
if mofei="" then
Response.Write (" <script language=javascript> alert('验证码不能为空!');javascript:history.go(-1) </script> ")
response.end
end if
if cstr(session("getcode")) <> cstr(mofei) then
Response.Write (" <script language=javascript> alert('验证码输入有误请核对!');javascript:history.go(-1) </script> ")
response.end
end if
%>