管理员登录(4)

        Set BrowserType = Nothing 
        Response.Write "</td></tr>" & vbCrLf 
        Response.Write "</table><br><br>" & vbCrLf 
        Response.Write "</body>" & vbCrLf 
        Response.Write "</html>" & vbCrLf 
    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