登陆asp class(4)
End Sub
Sub logout() '用户退出
Session("adminName") = ""
Session("adminPass") = ""
Call login
End Sub
Sub login() '用户登录
On Error Resume Next
Dim Ados, GetCode
' Ados = Server.CreateObject("Adodb.Stream")
If Err Then
GetCode = 9999
End If
Response.Write "<script language=""Javascript""><!--" & vbCrLf
Response.Write "function VF_loginform(){ //v2.0" & vbCrLf
Response.Write "<!--start_of_saved_settings-->" & vbCrLf
Response.Write "<!--type,text,name,verifycode,required,true,isNum,errMsg,请填写右边的确认密码。-->" & vbCrLf
Response.Write "<!--type,password,name,password,required,true,errMsg,请填写登录密码!-->" & vbCrLf
Response.Write "<!--type,text,name,username,required,true,errMsg,请填写登录用户名!-->" & vbCrLf
Response.Write "<!--end_of_saved_settings-->" & vbCrLf
Response.Write " var theForm = document.loginform;" & vbCrLf
Response.Write " var numRE = /^\d+$/;" & vbCrLf
Response.Write " var errMsg = """";" & vbCrLf
Response.Write " var setfocus = """";" & vbCrLf
Response.Write vbCrLf
Response.Write " if (!numRE.test(theForm['verifycode'].value)){" & vbCrLf
Response.Write " errMsg = ""请填写右边的确认密码。"";" & vbCrLf
Response.Write " setfocus = ""['verifycode']"";" & vbCrLf
内容版权声明:除非注明,否则皆为本站原创文章。