📄 pwd.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 _PWD
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public id
Public userid
Public photo_name
Public pwd1
Public sql
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_INC_MD5 As _INC_MD5
Public ASPX_BBSUSER As _BBSUSER
#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_BBSUSER = New _BBSUSER()
ASPX_BBSUSER.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BBSUSER.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_BBSUSER.AspToAspX_UnloadIncludeFiles()
ASPX_BBSUSER = 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
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_INC_MD5.AspToAspX_Page_Init ( )
ASPX_BBSUSER.AspToAspX_Page_Init ( )
Response.Buffer = True '6
Response.Expires = - 1 '7
Response.ExpiresAbsolute = Convert.ToDateTime ( Now.Value - 1 ) '8
Response.Expires = 0 '9
Response.CacheControl = "no-cache" '10
If AspToAspX_CheckDBNull ( Request ( "pwd2" ) ) < > EmptyString.Value Then '11
id = AspToAspX_CInt ( Request ( "id" ) ) '12
userid = AspToAspX_CInt ( Request ( "userid" ) ) '13
photo_name = Checkstr ( ( Request ( "photo_name" ) ) ) '14
pwd1 = Checkstr ( Request ( "pwd1" ) ) '15
sql = "update " & ft & "ftblog_type set sign=2,alumpwd='" & pwd1 & "' where id=" & id '16
conn.Execute ( sql ) '17
sql = "update " & ft & "ftbbs_upload set sign=2 where clubuser_id=" & userid & " and photo_name='" & photo_name & "'" '18
conn.Execute ( sql ) '19
AspToAspX_Response_Redirect ( "blog_group.aspx?nav=a" ) '20
End If '21
Response.Write ( vbCrLf )
Response.Write ( "<HTML>" & Chr ( 13 ) ) '23
Response.Write ( "<HEAD>" & Chr ( 13 ) ) '24
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '25
Response.Write ( "<TITLE>设置相册密码</TITLE>" & Chr ( 13 ) ) '26
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""css/ftbbs01.css"">" & Chr ( 13 ) ) '27
Response.Write ( "</head>" & Chr ( 13 ) ) '28
Response.Write ( "<script language=javascript src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '29
Response.Write ( "<BODY bgColor=menu topmargin=15 leftmargin=15 >" & Chr ( 13 ) ) '30
Response.Write ( "<form name=""form1"" method=""post"" action="""">" & Chr ( 13 ) ) '31
Response.Write ( "<table width=100% border=""0"" align=""center"" cellpadding=""0"" cellspacing=""2"">" & Chr ( 13 ) ) '32
Response.Write ( " <tr><td>" & Chr ( 13 ) ) '33
Response.Write ( "<FIELDSET align=left>" & Chr ( 13 ) ) '34
Response.Write ( " <LEGEND align=left>设置密码</LEGEND>" & Chr ( 13 ) ) '35
Response.Write ( " <table width=""100%"" border=""0"" align=center cellpadding=""0"" cellspacing=""3"">" & Chr ( 13 ) ) '36
Response.Write ( " <tr> " & Chr ( 13 ) ) '37
Response.Write ( " <td colspan=""2"">密 码： " & Chr ( 13 ) ) '38
Response.Write ( " <input name=""pwd1"" type=""password"" id=""url"" value='' size=10 maxlength=""10""> " & Chr ( 13 ) ) '39
Response.Write ( " </td>" & Chr ( 13 ) ) '40
Response.Write ( " </tr>" & Chr ( 13 ) ) '41
Response.Write ( " <tr> " & Chr ( 13 ) ) '42
Response.Write ( " <td> 确认密码： " & Chr ( 13 ) ) '43
Response.Write ( " <input name=""pwd2"" type=""password"" id=alttext size=10 maxlength=""10""> </td>" & Chr ( 13 ) ) '44
Response.Write ( " </tr>" & Chr ( 13 ) ) '45
Response.Write ( " </table>" & Chr ( 13 ) ) '46
Response.Write ( "</fieldset>" & Chr ( 13 ) ) '47
Response.Write ( "</td><td width=80 align=""center""><input name=""cmdOK"" type=""button"" id=""cmdOK"" value="" 确定 "" onClick=""OK();"">" & Chr ( 13 ) ) '48
Response.Write ( " <br>" & Chr ( 13 ) ) '49
Response.Write ( " <input name=""id"" type=""hidden"" id=""id"" value=""" ) '50
Response.Write ( Request ( "id" ) ) '50
Response.Write ( """><input name=""userid"" type=""hidden"" id=""userid"" value=""" ) '50
Response.Write ( Request ( "userid" ) ) '50
Response.Write ( """>" & Chr ( 13 ) ) '50
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""photo_name"" type=""hidden"" id=""photo_name"" value=""" ) '51
Response.Write ( Request ( "photo_name" ) ) '51
Response.Write ( """> <br>" & Chr ( 13 ) ) '51
Response.Write ( "<input name=""cmdCancel"" type=button id=""cmdCancel"" onclick=""window.close();"" value=' 取消 '></td></tr>" & Chr ( 13 ) ) '52
Response.Write ( "</table>" & Chr ( 13 ) ) '53
Response.Write ( "</form>" & Chr ( 13 ) ) '54
Response.Write ( "</body>" & Chr ( 13 ) ) '55
Response.Write ( "</html>" & Chr ( 13 ) ) '56
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("pwd_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
#Region "..."
Public Property conn
Get
conn = ASPX_CONN.conn
End Get
Set(ByVal value)
ASPX_CONN.conn = value
End Set
End Property
Public Property qs
Get
qs = ASPX_CONN.qs
End Get
Set(ByVal value)
ASPX_CONN.qs = value
End Set
End Property
Public Property errc
Get
errc = ASPX_CONN.errc
End Get
Set(ByVal value)
ASPX_CONN.errc = value
End Set
End Property
Public Property iii
Get
iii = ASPX_CONN.iii
End Get
Set(ByVal value)
ASPX_CONN.iii = value
End Set
End Property
Public Property nothis
Get
nothis = ASPX_CONN.nothis
End Get
Set(ByVal value)
ASPX_CONN.nothis = value
End Set
End Property
Public Sub makeftbbstree(ByRef ft )
ASPX_CONN.makeftbbstree( ft )
End Sub
Public Sub CloseDb
ASPX_CONN.CloseDb
End Sub
Public Sub SaveToFile( ByVal strBody,ByVal File )
ASPX_CONN.ASPX_ADOSTREAM.SaveToFile( strBody, File )
End Sub
Public Function Checkstr(ByRef AspToAspX_Str )
Return ASPX_CONN.Checkstr( AspToAspX_Str )
End Function
Public Function CheckCharStr(ByRef usernamepsw,ByRef flag )
Return ASPX_CONN.CheckCharStr( usernamepsw,flag )
End Function
Public Function ftbbs_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.ftbbs_msg( msg,reurl )
End Function
Public Function login_msg(ByRef msg,ByRef reurl )
Return ASPX_CONN.login_msg( msg,reurl )
End Function
Public Function FTBBS_HTML_MB(ByRef ft )
Return ASPX_CONN.FTBBS_HTML_MB( ft )
End Function
Public Function FTBBS_BZ_NAME(ByRef BoardID_1,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME( BoardID_1,ft )
End Function
Public Function FTBBS_BZ_NAME2(ByRef BoardID_1,ByRef BoardID_2,ByRef ft )
Return ASPX_CONN.FTBBS_BZ_NAME2( BoardID_1,BoardID_2,ft )
End Function
Public Function makefilename(ByRef fname )
Return ASPX_CONN.makefilename( fname )
End Function
Public Function GetExtendName(ByRef FileName )
Return ASPX_CONN.GetExtendName( FileName )
End Function
Public Function IsObjInstalled(ByRef strClassString )
Return ASPX_CONN.IsObjInstalled( strClassString )
End Function
Public Function ChkMapPath( ByVal strPath )
Return ASPX_CONN.ChkMapPath( strPath )
End Function
Public Function userlogin(ByRef ft )
Return ASPX_CONN.userlogin( ft )
End Function
Public Function headhtml
Return ASPX_CONN.headhtml
End Function
Public Function GetOpInfo(ByRef AspToAspX_Str,ByRef Flag )
Return ASPX_CONN.GetOpInfo( AspToAspX_Str,Flag )
End Function
Public Function getcode
Return ASPX_CONN.getcode
End Function
Public Function codepass
Return ASPX_CONN.codepass
End Function
Public Function Ftbbs_Time
Return ASPX_CONN.Ftbbs_Time
End Function
Public Function ft_home(ByRef defaulthome )
Return ASPX_CONN.ft_home( defaulthome )
End Function
Public Function chkpost
Return ASPX_CONN.chkpost
End Function
Public Function CodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.CodeCookie( AspToAspX_Str )
End Function
Public Function DecodeCookie(ByRef AspToAspX_Str )
Return ASPX_CONN.DecodeCookie( AspToAspX_Str )
End Function
Public Function setcookie(ByRef cookexpires,ByRef cookdomain,ByRef cookneme,ByRef cookvalue )
Return ASPX_CONN.setcookie( cookexpires,cookdomain,cookneme,cookvalue )
End Function
Public Function getcookie(ByRef ckname )
Return ASPX_CONN.getcookie( ckname )
End Function
Public Function clearcookie(ByRef cookdomain,ByRef cookneme )
Return ASPX_CONN.clearcookie( cookdomain,cookneme )
End Function
Public Function LoadFile( ByVal File )
Return ASPX_CONN.ASPX_ADOSTREAM.LoadFile( File )
End Function
Public Shared ReadOnly Property BITS_TO_A_BYTE
Get
BITS_TO_A_BYTE = _INC_MD5.BITS_TO_A_BYTE
End Get
End Property
Public Shared ReadOnly Property BYTES_TO_A_WORD
Get
BYTES_TO_A_WORD = _INC_MD5.BYTES_TO_A_WORD
End Get
End Property
Public Shared ReadOnly Property BITS_TO_A_WORD
Get
BITS_TO_A_WORD = _INC_MD5.BITS_TO_A_WORD
End Get
End Property
Public Property m_lOnBits
Get
m_lOnBits = ASPX_INC_MD5.m_lOnBits
End Get
Set(ByVal value)
ASPX_INC_MD5.m_lOnBits = value
End Set
End Property
Public Property m_l2Power
Get
m_l2Power = ASPX_INC_MD5.m_l2Power
End Get
Set(ByVal value)
ASPX_INC_MD5.m_l2Power = value
End Set
End Property
Public Sub md5_FF(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_INC_MD5.md5_FF( a,b,c,d,x,s,ac )
End Sub
Public Sub md5_GG(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_INC_MD5.md5_GG( a,b,c,d,x,s,ac )
End Sub
Public Sub md5_HH(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_INC_MD5.md5_HH( a,b,c,d,x,s,ac )
End Sub
Public Sub md5_II(ByRef a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
ASPX_INC_MD5.md5_II( a,b,c,d,x,s,ac )
End Sub
Public Function LShift(ByRef lValue,ByRef iShiftBits )
Return ASPX_INC_MD5.LShift( lValue,iShiftBits )
End Function
Public Function RShift(ByRef lValue,ByRef iShiftBits )
Return ASPX_INC_MD5.RShift( lValue,iShiftBits )
End Function
Public Function RotateLeft(ByRef lValue,ByRef iShiftBits )
Return ASPX_INC_MD5.RotateLeft( lValue,iShiftBits )
End Function
Public Function AddUnsigned(ByRef lX,ByRef lY )
Return ASPX_INC_MD5.AddUnsigned( lX,lY )
End Function
Public Function md5_F(ByRef x,ByRef y,ByRef z )
Return ASPX_INC_MD5.md5_F( x,y,z )
End Function
Public Function md5_G(ByRef x,ByRef y,ByRef z )
Return ASPX_INC_MD5.md5_G( x,y,z )
End Function
Public Function md5_H(ByRef x,ByRef y,ByRef z )
Return ASPX_INC_MD5.md5_H( x,y,z )
End Function
Public Function md5_I(ByRef x,ByRef y,ByRef z )
Return ASPX_INC_MD5.md5_I( x,y,z )
End Function
Public Function ConvertToWordArray(ByRef sMessage )
Return ASPX_INC_MD5.ConvertToWordArray( sMessage )
End Function
Public Function WordToHex(ByRef lValue )
Return ASPX_INC_MD5.WordToHex( lValue )
End Function
Public Function MD5(ByRef sMessage )
Return ASPX_INC_MD5.MD5( sMessage )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -