" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
Login MeskyDMS V3 Powered By:Www.Mesky.Cn | " & vbCrLf Response.Write "
" & vbCrLf Response.Write " |
" & 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 (" << = 返回管理员登录页") End If Case "logout" Call logout Case Else Call login End Select Response.Write " | " & vbCrLf Response.Write "
" & vbCrLf Set BrowserType = New Cls_Browser Response.Write ("客户端操作系统:" & BrowserType.platform & " 客户端浏览器: " & BrowserType.Browser & BrowserType.Version) & vbCrLf Set BrowserType = Nothing Response.Write " |