管理员登录(3)

        Response.Write "    <tr>" & vbCrLf 
        Response.Write "        <td style=""padding:15px;"">" & vbCrLf 
        Dim username 
        Dim password 
        Dim ip 
        Dim BrowserType 

         
        Select Case Request("action") 
            Case "chklogin" 
                Call chklogin 
                If Founderr Then 
                    Response.Write (errmsg) 
                    Response.Write ("<br><br><< = <a href=""admin_login.asp"">返回管理员登录页</a>") 
                End If 
            Case "logout" 
                Call logout 
            Case Else 
                Call login 
        End Select 
        Response.Write "        </td>" & vbCrLf 
        Response.Write "    </tr>" & vbCrLf 
        Response.Write "    <tr><td style=""padding:10px;"">" & vbCrLf 
        Set BrowserType = New Cls_Browser 
            Response.Write ("客户端操作系统:" & BrowserType.platform & "<br>客户端浏览器: " & BrowserType.Browser  
& BrowserType.Version) & vbCrLf