📄 userlogin.aspx.vb
字号:
' ***************************************************
' * 本程序由AspToAspX风火轮0.99转换生成 *
' * http://Www.AspToAspX.Cn *
' * Q Q : 139227536 *
' * QQ群: 17152722 *
' * MSN : gzliangjianhua@hotmail.com *
' * EMail AspToDll@vip.163.com *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState
Public Class _USERLOGIN
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public getcodeoff
Public logintili
Public flag
Public msg
Public geturl
Public bbsuser
Public password
Public AspToAspX_Str
Public rs As ADODB.Recordset
Public cookexpires
Public clubuser_password
Public sql
Public msgstr
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
Public ASPX_CONN As _CONN
Public ASPX_INC_MD5 As _INC_MD5
Public ASPX_FTBBS_NAV As _FTBBS_NAV
Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_HTM
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
ASPX_INC_MD5 = New _INC_MD5()
ASPX_INC_MD5.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_MD5.AspToAspX_InitIncludeFiles()
ASPX_FTBBS_NAV = New _FTBBS_NAV()
ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
ASPX_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_BBSTAIL_HTM.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_INC_MD5.AspToAspX_UnloadIncludeFiles()
ASPX_INC_MD5 = Nothing
ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
ASPX_FTBBS_NAV = Nothing
ASPX_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
ASPX_INC_BBSTAIL_HTM = Nothing
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
AspToAspXGlobal.Application = Application
AspToAspXGlobal.Server = Server
AspToAspXGlobal.Response = Response
AspToAspXGlobal.Request = Request
AspToAspXGlobal.Session = Session
AspToAspX_Host_Class_Object = Me
AspToAspX_InitIncludeFiles()
AspToAspX_Page_Init()
End Sub
Public Sub AspToAspX_Page_Init()
On Error GoTo _AspToAspX_Err
Response.Write ( "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & Chr ( 13 ) ) '1
Response.Write ( "<html>" & Chr ( 13 ) ) '2
Response.Write ( "<head>" & Chr ( 13 ) ) '3
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '4
Response.Write ( "<title>用户登录</title>" & Chr ( 13 ) ) '5
Response.Write ( "</head>" & Chr ( 13 ) ) '6
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_INC_MD5.AspToAspX_Page_Init ( )
ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
FTBBS_HTML_MB ( ft ) '11
getcodeoff = Application ( "FTBBSMB" ) ( 30 , 0 ) '12
logintili = Application ( "FTBBSMB" ) ( 53 , 0 ) '13
flag = Request ( "flag" ) '14
msg = trim ( Request ( "msg" ) ) '15
If AspToAspX_CheckDBNull ( flag ) = "Y" Then '16
geturl = Request ( "reurl" ) '17
Else '18
geturl = "default.aspx" '19
End If '20
If AspToAspX_CheckDBNull ( Request ( "act" ) ) = "y" Then '21
bbsuser = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "bbsuser" ) ) ) '22
password = trim ( AspToAspX_CheckIsNothing ( Request.Form ( "password" ) ) ) '23
bbsuser = Checkstr ( bbsuser ) '24
CheckCharStr ( bbsuser , 1 ) '25
CheckCharStr ( password , 1 ) '26
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '27
If Not codepass And AspToAspX_CheckDBNull ( Session ( "errorlogin" ) ) > = 3 Then '28
login_msg ( 3 , "userlogin.aspx" ) '29
End If '30
End If '31
AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_name='" & bbsuser & "'and jfmsign=0" '32
rs = New ADODB.Recordset ( ) '33
rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '34
If rs.EOF Then '35
login_msg ( 4 , "userlogin.aspx" ) '36
Else '37
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) = md5 ( password ) And AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) = bbsuser Then '38
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) = 3 Then '39
login_msg ( 5 , "userlogin.aspx" ) '40
End If '41
cookexpires = AspToAspX_CheckIsNothing ( Request.Form ( "ckies" ) ) '43
clubuser_password = CodeCookie ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_password" ) .Value) ) '44
setcookie ( cookexpires , ckiesdomain , "clubuser_id" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '45
setcookie ( cookexpires , ckiesdomain , "bbsuser" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_nickname" ) .Value) ) '46
setcookie ( cookexpires , ckiesdomain , "name" , AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) ) '47
setcookie ( cookexpires , ckiesdomain , "clubuser_password" , clubuser_password ) '48
setcookie ( cookexpires , ckiesdomain , "bz" , AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) ) '49
setcookie ( cookexpires , ckiesdomain , "bbsadmin" , AspToAspX_CheckDBNull(rs.Fields ( "bbsadmin" ) .Value) ) '50
setcookie ( cookexpires , ckiesdomain , "payuser" , AspToAspX_CheckDBNull(rs.Fields ( "payuser" ) .Value) ) '51
setcookie ( cookexpires , ckiesdomain , "bokeer" , AspToAspX_CheckDBNull(rs.Fields ( "bokeer" ) .Value) ) '52
sql = "update " & ft & "clubuser set clubuser_lasttime='" & Ftbbs_Time & "',clubuser_enter_count=clubuser_enter_count+1,tili=tili+" & logintili & " where clubuser_name='" & bbsuser & "'" '53
conn.Execute ( sql ) '54
Session ( "errorlogin" ) = 0 '55
AspToAspX_Response_Redirect ( geturl ) '56
Else '58
Session ( "errorlogin" ) = Session ( "errorlogin" ) + 1 '59
login_msg ( 6 , "userlogin.aspx" ) '60
End If '61
End If '62
End If '63
Response.Write ( vbCrLf )
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '65
Response.Write ( "<script>" & Chr ( 13 ) ) '66
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '67
Response.Write ( "var style;" & Chr ( 13 ) ) '68
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '69
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '70
Response.Write ( "{" & Chr ( 13 ) ) '71
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '72
Response.Write ( "}" & Chr ( 13 ) ) '73
Response.Write ( "else" & Chr ( 13 ) ) '74
Response.Write ( "{" & Chr ( 13 ) ) '75
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '76
Response.Write ( "}" & Chr ( 13 ) ) '77
Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '78
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '79
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '80
Response.Write ( "</script>" & Chr ( 13 ) ) '81
Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '82
Response.Write ( "<!--" & Chr ( 13 ) ) '83
Response.Write ( "" & Chr ( 9 ) & "function check(form)" & Chr ( 13 ) ) '84
Response.Write ( "" & Chr ( 9 ) & "{" & Chr ( 13 ) ) '85
Response.Write ( " if (form.bbsuser.value=="""")" & Chr ( 13 ) ) '86
Response.Write ( " " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '87
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写用户名！"");" & Chr ( 13 ) ) '88
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "form.bbsuser.focus();" & Chr ( 13 ) ) '89
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '90
Response.Write ( " " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '91
Response.Write ( " if (form.password.value=="""")" & Chr ( 13 ) ) '92
Response.Write ( " " & Chr ( 9 ) & "{" & Chr ( 13 ) ) '93
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "alert(""请填写密码！"");" & Chr ( 13 ) ) '94
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "form.password.focus();" & Chr ( 13 ) ) '95
Response.Write ( " " & Chr ( 9 ) & Chr ( 9 ) & "return false;" & Chr ( 13 ) ) '96
Response.Write ( " " & Chr ( 9 ) & "}" & Chr ( 13 ) ) '97
Response.Write ( "return true;" & Chr ( 13 ) ) '98
Response.Write ( "" & Chr ( 9 ) & "}" & Chr ( 13 ) ) '99
Response.Write ( "//-->" & Chr ( 13 ) ) '100
Response.Write ( "</script>" & Chr ( 13 ) ) '101
Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '102
Response.Write ( "<!--" & Chr ( 13 ) ) '103
Response.Write ( "html,body {height:100%; font-size:12px;}" & Chr ( 13 ) ) '104
Response.Write ( ".mydiv {" & Chr ( 13 ) ) '105
Response.Write ( "background-color: #FFF;" & Chr ( 13 ) ) '106
Response.Write ( "border: 1px solid #B3DDF8;" & Chr ( 13 ) ) '107
Response.Write ( "background: #FFF url(""images/ad_bg1.gif"");" & Chr ( 13 ) ) '108
Response.Write ( "background-repeat: repeat-x;" & Chr ( 13 ) ) '109
Response.Write ( "padding-left: 10px;" & Chr ( 13 ) ) '110
Response.Write ( "text-align: left;" & Chr ( 13 ) ) '111
Response.Write ( "line-height: 30px;" & Chr ( 13 ) ) '112
Response.Write ( "font-size: 12px;" & Chr ( 13 ) ) '113
Response.Write ( "z-index:99;" & Chr ( 13 ) ) '114
Response.Write ( "width: 280px;" & Chr ( 13 ) ) '115
Response.Write ( "height: 180px !important;" & Chr ( 13 ) ) '116
Response.Write ( "height: 160px;" & Chr ( 13 ) ) '117
Response.Write ( "left:50%;/*FF IE7*/" & Chr ( 13 ) ) '118
Response.Write ( "top:50%;/*FF IE7*/" & Chr ( 13 ) ) '119
Response.Write ( "margin-left:-150px!important;/*FF IE7 该值为本身宽的一半 */" & Chr ( 13 ) ) '120
Response.Write ( "margin-top:-60px!important;/*FF IE7 该值为本身高的一半*/" & Chr ( 13 ) ) '121
Response.Write ( "margin-top:0px;" & Chr ( 13 ) ) '122
Response.Write ( "position:fixed!important;/*FF IE7*/" & Chr ( 13 ) ) '123
Response.Write ( "position:absolute;/*IE6*/" & Chr ( 13 ) ) '124
Response.Write ( "_top: expression(eval(document.compatMode &&" & Chr ( 13 ) ) '125
Response.Write ( " document.compatMode=='CSS1Compat') ?" & Chr ( 13 ) ) '126
Response.Write ( " documentElement.scrollTop + (document.documentElement.clientHeight-this.offsetHeight)/2 :/*IE6*/" & Chr ( 13 ) ) '127
Response.Write ( " document.body.scrollTop + (document.body.clientHeight - this.clientHeight)/2);/*IE5 IE5.5*/" & Chr ( 13 ) ) '128
Response.Write ( "}" & Chr ( 13 ) ) '129
Response.Write ( ".bg {" & Chr ( 13 ) ) '130
Response.Write ( "background-color: #666;" & Chr ( 13 ) ) '131
Response.Write ( "width: 100%;" & Chr ( 13 ) ) '132
Response.Write ( "height: 100%;" & Chr ( 13 ) ) '133
Response.Write ( "left:0;" & Chr ( 13 ) ) '134
Response.Write ( "top:0;/*FF IE7*/" & Chr ( 13 ) ) '135
Response.Write ( "filter:alpha(opacity=80);/*IE*/" & Chr ( 13 ) ) '136
Response.Write ( "opacity:0.9;/*FF*/" & Chr ( 13 ) ) '137
Response.Write ( "z-index:1;" & Chr ( 13 ) ) '138
Response.Write ( "position:fixed!important;/*FF IE7*/" & Chr ( 13 ) ) '139
Response.Write ( "position:absolute;/*IE6*/" & Chr ( 13 ) ) '140
Response.Write ( "_top: expression(eval(document.compatMode &&" & Chr ( 13 ) ) '141
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -