setupmb.aspx.vb
来自「本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成」· VB 代码 · 共 590 行 · 第 1/2 页
VB
590 行
' ***************************************************
' * 本程序由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 _SETUPMB
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public userid
Public mb
Public modcssfile
Public sql
Public cssname
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public rs As ADODB.Recordset
Public username
Public userimg
Public homepagetitle
Public cssfile
Public bokeer
Public blog_mid
Public blogheadimg
Public clubuser_id
Public rs8
Public ASPX_CONN As _CONN
Public ASPX_INC_MD5 As _INC_MD5
Public ASPX_BBSUSER As _BBSUSER
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_MEMBERINFO As _MEMBERINFO
Public ASPX_USERNAV As _USERNAV
Public ASPX_BOKERHEAD As _BOKERHEAD
Public ASPX_TAIL As _TAIL
#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()
ASPX_INC_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
ASPX_MEMBERINFO = New _MEMBERINFO()
ASPX_MEMBERINFO.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_MEMBERINFO.AspToAspX_InitIncludeFiles()
ASPX_USERNAV = New _USERNAV()
ASPX_USERNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_USERNAV.AspToAspX_InitIncludeFiles()
ASPX_BOKERHEAD = New _BOKERHEAD()
ASPX_BOKERHEAD.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_BOKERHEAD.AspToAspX_InitIncludeFiles()
ASPX_TAIL = New _TAIL()
ASPX_TAIL.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_TAIL.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
ASPX_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
ASPX_MEMBERINFO.AspToAspX_UnloadIncludeFiles()
ASPX_MEMBERINFO = Nothing
ASPX_USERNAV.AspToAspX_UnloadIncludeFiles()
ASPX_USERNAV = Nothing
ASPX_BOKERHEAD.AspToAspX_UnloadIncludeFiles()
ASPX_BOKERHEAD = Nothing
ASPX_TAIL.AspToAspX_UnloadIncludeFiles()
ASPX_TAIL = 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 ( )
ASPX_INC_PUBLICFUN.AspToAspX_Page_Init ( )
userid = AspToAspX_CInt ( ( Request.QueryString ( "userid" ) ) ) '6
mb = AspToAspX_CheckIsNothing ( Request.Form ( "mb" ) ) '7
If AspToAspX_CheckDBNull ( mb ) < > EmptyString.Value Then '8
modcssfile = mb '9
sql = "update " & ft & "clubuser set cssfile='" & modcssfile & "' where clubuser_id=" & userid '10
conn.Execute ( sql ) '11
End If '12
Response.Write ( vbCrLf )
ASPX_MEMBERINFO.AspToAspX_Page_Init ( )
Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '15
Response.Write ( "</head>" & Chr ( 13 ) ) '16
Response.Write ( "<script language=""javascript"" src=""js/publicfun.js""></script>" & Chr ( 13 ) ) '17
Response.Write ( "<body>" & Chr ( 13 ) ) '18
Response.Write ( "<center>" & Chr ( 13 ) ) '19
Response.Write ( "<title>" ) '20
Response.Write ( username ) '20
Response.Write ( "的个人博客风格设置</title>" & Chr ( 13 ) ) '20
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '21
Response.Write ( cssfile ) '21
Response.Write ( """>" & Chr ( 13 ) ) '21
ASPX_USERNAV.AspToAspX_Page_Init ( )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
cssname = AspToAspX_Split ( cssfile , "/" ) ( 1 ) '25
Response.Write ( vbCrLf )
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '27
Response.Write ( "<div class=""stagepad"">" & Chr ( 13 ) ) '28
Response.Write ( "<div style=""width:100%"">" & Chr ( 13 ) ) '29
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modth"">" & Chr ( 13 ) ) '30
Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modtl"" width=""7""> </td>" & Chr ( 13 ) ) '31
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap>" & Chr ( 13 ) ) '32
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<table border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>" & Chr ( 13 ) ) '33
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div class=""modhead""><span class=""modtit"">风格选择</span> </div>" & Chr ( 13 ) ) '34
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</td></tr></table>" & Chr ( 13 ) ) '35
Response.Write ( "" & Chr ( 9 ) & "</td>" & Chr ( 13 ) ) '36
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtc"" nowrap align=""right""></td>" & Chr ( 13 ) ) '37
Response.Write ( "" & Chr ( 9 ) & "<td class=""modtr"" width=""7""> </td>" & Chr ( 13 ) ) '38
Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '39
Response.Write ( "<div class=""modbox"">" & Chr ( 13 ) ) '40
Response.Write ( "<div style=""width:100%"">" & Chr ( 13 ) ) '41
Response.Write ( "" & Chr ( 9 ) & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""modact"">" & Chr ( 13 ) ) '42
Response.Write ( " <form action="""" method=""post"" name=""form1"">" & Chr ( 13 ) ) '43
Response.Write ( " <tr> " & Chr ( 13 ) ) '44
Response.Write ( " <td align=""center"" valign=""bottom"" width=""33%""><img src=""mbpicture/1_1.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '45
Response.Write ( " <input type=""radio"" name=""mb"" value=""1.css"" " ) '46
If AspToAspX_CheckDBNull ( cssname ) = "1.css" Then '46
Response.Write ( "checked" ) '46
End If '46
Response.Write ( "> " & Chr ( 13 ) ) '46
Response.Write ( " </td>" & Chr ( 13 ) ) '47
Response.Write ( " <td align=""center"" valign=""middle"" width=""34%""><img src=""mbpicture/2_2.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '48
Response.Write ( " <input name=""mb"" type=""radio"" value=""2.css"" " ) '49
If AspToAspX_CheckDBNull ( cssname ) = "2.css" Then '49
Response.Write ( "checked" ) '49
End If '49
Response.Write ( "> " & Chr ( 13 ) ) '49
Response.Write ( " </td>" & Chr ( 13 ) ) '50
Response.Write ( " <td align=""center"" valign=""middle"" width=""33%""><img src=""mbpicture/3_3.gif"" width=""180"" height=""118""><br>" & Chr ( 13 ) ) '51
Response.Write ( " <input type=""radio"" name=""mb"" value=""3.css"" " ) '52
If AspToAspX_CheckDBNull ( cssname ) = "3.css" Then '52
Response.Write ( "checked" ) '52
End If '52
Response.Write ( "> " & Chr ( 13 ) ) '52
Response.Write ( " </td>" & Chr ( 13 ) ) '53
Response.Write ( " </tr>" & Chr ( 13 ) ) '54
Response.Write ( " <tr> " & Chr ( 13 ) ) '55
Response.Write ( " <td align=""center"" valign=""bottom"" width=""33%""><img src=""mbpicture/4_4.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '56
Response.Write ( " <input type=""radio"" name=""mb"" value=""4.css"" " ) '57
If AspToAspX_CheckDBNull ( cssname ) = "4.css" Then '57
Response.Write ( "checked" ) '57
End If '57
Response.Write ( "> " & Chr ( 13 ) ) '57
Response.Write ( " </td>" & Chr ( 13 ) ) '58
Response.Write ( " <td align=""center"" valign=""middle"" width=""34%""><img src=""mbpicture/5_5.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '59
Response.Write ( " <input name=""mb"" type=""radio"" value=""5.css"" " ) '60
If AspToAspX_CheckDBNull ( cssname ) = "5.css" Then '60
Response.Write ( "checked" ) '60
End If '60
Response.Write ( "> " & Chr ( 13 ) ) '60
Response.Write ( " </td>" & Chr ( 13 ) ) '61
Response.Write ( " <td align=""center"" valign=""middle"" width=""33%""><img src=""mbpicture/6_6.gif"" width=""180"" height=""118""><br>" & Chr ( 13 ) ) '62
Response.Write ( " <input type=""radio"" name=""mb"" value=""6.css"" " ) '63
If AspToAspX_CheckDBNull ( cssname ) = "6.css" Then '63
Response.Write ( "checked" ) '63
End If '63
Response.Write ( "> " & Chr ( 13 ) ) '63
Response.Write ( " </td>" & Chr ( 13 ) ) '64
Response.Write ( " </tr>" & Chr ( 13 ) ) '65
Response.Write ( " <tr> " & Chr ( 13 ) ) '66
Response.Write ( " <td align=""center"" valign=""bottom"" width=""33%""><img src=""mbpicture/7_7.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '67
Response.Write ( " <input type=""radio"" name=""mb"" value=""7.css"" " ) '68
If AspToAspX_CheckDBNull ( cssname ) = "7.css" Then '68
Response.Write ( "checked" ) '68
End If '68
Response.Write ( "> " & Chr ( 13 ) ) '68
Response.Write ( " </td>" & Chr ( 13 ) ) '69
Response.Write ( " <td align=""center"" valign=""middle"" width=""34%""><img src=""mbpicture/8_8.gif"" width=""180"" height=""142""><br>" & Chr ( 13 ) ) '70
Response.Write ( " <input name=""mb"" type=""radio"" value=""8.css"" " ) '71
If AspToAspX_CheckDBNull ( cssname ) = "8.css" Then '71
Response.Write ( "checked" ) '71
End If '71
Response.Write ( "> " & Chr ( 13 ) ) '71
Response.Write ( " </td>" & Chr ( 13 ) ) '72
Response.Write ( " <td align=""center"" valign=""middle"" width=""33%""><img src=""mbpicture/9_9.gif"" width=""180""><br>" & Chr ( 13 ) ) '73
Response.Write ( " <input name=""mb"" type=""radio"" value=""9.css"" " ) '74
If AspToAspX_CheckDBNull ( cssname ) = "9.css" Then '74
Response.Write ( "checked" ) '74
End If '74
Response.Write ( "></td>" & Chr ( 13 ) ) '74
Response.Write ( " </tr>" & Chr ( 13 ) ) '75
Response.Write ( " <tr> " & Chr ( 13 ) ) '76
Response.Write ( " <td align=""center"" valign=""bottom"" width=""33%""><img src=""mbpicture/10_10.gif"" width=""180""><br>" & Chr ( 13 ) ) '77
Response.Write ( " <input type=""radio"" name=""mb"" value=""10.css"" " ) '78
If AspToAspX_CheckDBNull ( cssname ) = "10.css" Then '78
Response.Write ( "checked" ) '78
End If '78
Response.Write ( "> " & Chr ( 13 ) ) '78
Response.Write ( " </td>" & Chr ( 13 ) ) '79
Response.Write ( " <td align=""center"" valign=""middle"" width=""34%""><img src=""mbpicture/11_11.gif"" width=""180""><br>" & Chr ( 13 ) ) '80
Response.Write ( " <input type=""radio"" name=""mb"" value=""11.css"" " ) '81
If AspToAspX_CheckDBNull ( cssname ) = "11.css" Then '81
Response.Write ( "checked" ) '81
End If '81
Response.Write ( "></td>" & Chr ( 13 ) ) '81
Response.Write ( " <td align=""center"" valign=""middle"" width=""33%""><img src=""mbpicture/12_12.gif"" width=""180""><br>" & Chr ( 13 ) ) '82
Response.Write ( " <input type=""radio"" name=""mb"" value=""12.css"" " ) '83
If AspToAspX_CheckDBNull ( cssname ) = "12.css" Then '83
Response.Write ( "checked" ) '83
End If '83
Response.Write ( "></td>" & Chr ( 13 ) ) '83
Response.Write ( " </tr>" & Chr ( 13 ) ) '84
Response.Write ( " <tr> " & Chr ( 13 ) ) '85
Response.Write ( " <td align=""center"" valign=""bottom"" width=""33%""><img src=""mbpicture/13_13.gif"" width=""180""><br>" & Chr ( 13 ) ) '86
Response.Write ( " <input type=""radio"" name=""mb"" value=""13.css"" " ) '87
If AspToAspX_CheckDBNull ( cssname ) = "13.css" Then '87
Response.Write ( "checked" ) '87
End If '87
Response.Write ( "> " & Chr ( 13 ) ) '87
Response.Write ( " </td>" & Chr ( 13 ) ) '88
Response.Write ( " <td align=""center"" valign=""middle"" width=""34%""><img src=""mbpicture/14_14.gif"" width=""180""><br>" & Chr ( 13 ) ) '89
Response.Write ( " <input type=""radio"" name=""mb"" value=""14.css"" " ) '90
If AspToAspX_CheckDBNull ( cssname ) = "14.css" Then '90
Response.Write ( "checked" ) '90
End If '90
Response.Write ( ">" & Chr ( 13 ) ) '90
Response.Write ( " </td>" & Chr ( 13 ) ) '91
Response.Write ( " <td align=""center"" valign=""middle"" width=""33%""><br>" & Chr ( 13 ) ) '92
Response.Write ( " <img src=""mbpicture/15_15.gif"" width=""180""><br> <input type=""radio"" name=""mb"" value=""15.css"" " ) '93
If AspToAspX_CheckDBNull ( cssname ) = "15.css" Then '93
Response.Write ( "checked" ) '93
End If '93
Response.Write ( "> " & Chr ( 13 ) ) '93
Response.Write ( " </td>" & Chr ( 13 ) ) '94
Response.Write ( " </tr>" & Chr ( 13 ) ) '95
Response.Write ( " <tr align=center> " & Chr ( 13 ) ) '96
Response.Write ( " <td colspan=""17""><input type=""submit"" name=""Submit"" value=""修改模板""> " & Chr ( 13 ) ) '97
Response.Write ( " </td>" & Chr ( 13 ) ) '98
Response.Write ( " </tr>" & Chr ( 13 ) ) '99
Response.Write ( " </form>" & Chr ( 13 ) ) '100
Response.Write ( " </table>" & Chr ( 13 ) ) '101
Response.Write ( " <br>" & Chr ( 13 ) ) '102
Response.Write ( "</div>" & Chr ( 13 ) ) '103
Response.Write ( "</div>" & Chr ( 13 ) ) '104
Response.Write ( "" & Chr ( 9 ) & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""8"">" & Chr ( 13 ) ) '105
Response.Write ( "" & Chr ( 9 ) & "<tr><td class=""modbl"" width=""7""> </td>" & Chr ( 13 ) ) '106
Response.Write ( "" & Chr ( 9 ) & "<td class=""modbc""> </td>" & Chr ( 13 ) ) '107
Response.Write ( "" & Chr ( 9 ) & "<td class=""modbr"" width=""7""> </td>" & Chr ( 13 ) ) '108
Response.Write ( "" & Chr ( 9 ) & "</tr></table>" & Chr ( 13 ) ) '109
Response.Write ( "</div>" & Chr ( 13 ) ) '110
Response.Write ( "</div>" & Chr ( 13 ) ) '111
Response.Write ( "</div>" & Chr ( 13 ) ) '112
Response.Write ( "</div>" & Chr ( 13 ) ) '113
Response.Write ( "<br>" & Chr ( 13 ) ) '114
Response.Write ( "<center>" ) '115
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( "</center>" & Chr ( 13 ) ) '115
Response.Write ( "</body></html>" & Chr ( 13 ) ) '116
closedb ( ) '117
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?