📄 morepic.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 _MOREPIC
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public sitenav
Public pagestr
Public root
Public sql
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public photo_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
Public layer_1
Public layer_2
Public ASPX_CONN As _CONN
Public ASPX_FTBBS_NAV As _FTBBS_NAV
Public ASPX_PAGEFUN As _PAGEFUN
Public ASPX_NAVHOME As _NAVHOME
Public ASPX_COPYRIGHT_HTM As _COPYRIGHT_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_FTBBS_NAV = New _FTBBS_NAV()
ASPX_FTBBS_NAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_FTBBS_NAV.AspToAspX_InitIncludeFiles()
ASPX_PAGEFUN = New _PAGEFUN()
ASPX_PAGEFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_PAGEFUN.AspToAspX_InitIncludeFiles()
ASPX_NAVHOME = New _NAVHOME()
ASPX_NAVHOME.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_NAVHOME.AspToAspX_InitIncludeFiles()
ASPX_COPYRIGHT_HTM = New _COPYRIGHT_HTM()
ASPX_COPYRIGHT_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_COPYRIGHT_HTM.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = Nothing
ASPX_FTBBS_NAV.AspToAspX_UnloadIncludeFiles()
ASPX_FTBBS_NAV = Nothing
ASPX_PAGEFUN.AspToAspX_UnloadIncludeFiles()
ASPX_PAGEFUN = Nothing
ASPX_NAVHOME.AspToAspX_UnloadIncludeFiles()
ASPX_NAVHOME = Nothing
ASPX_COPYRIGHT_HTM.AspToAspX_UnloadIncludeFiles()
ASPX_COPYRIGHT_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
ASPX_CONN.AspToAspX_Page_Init ( )
ASPX_FTBBS_NAV.AspToAspX_Page_Init ( )
ASPX_PAGEFUN.AspToAspX_Page_Init ( )
Response.Write ( "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr ( 13 ) ) '4
Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 9 ) & "" & Chr ( 13 ) ) '5
Response.Write ( "<head>" & Chr ( 13 ) ) '6
Response.Write ( "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '7
Response.Write ( "<title>飞天论坛,静态论坛,生成静态贴子的论坛</title>" & Chr ( 13 ) ) '8
Response.Write ( "<meta name=""keywords"" content=""飞天论坛,静态论坛,生成静态贴子的论坛"">" & Chr ( 13 ) ) '9
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '10
Response.Write ( "<script>" & Chr ( 13 ) ) '11
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '12
Response.Write ( "var style;" & Chr ( 13 ) ) '13
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '14
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '15
Response.Write ( "{" & Chr ( 13 ) ) '16
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '17
Response.Write ( "}" & Chr ( 13 ) ) '18
Response.Write ( "else" & Chr ( 13 ) ) '19
Response.Write ( "{" & Chr ( 13 ) ) '20
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '21
Response.Write ( "}" & Chr ( 13 ) ) '22
Response.Write ( "style=""default0""+stylecook+"".css"";" & Chr ( 13 ) ) '23
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '24
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '25
Response.Write ( "</script>" & Chr ( 13 ) ) '26
Response.Write ( "<style type=""text/css"">" & Chr ( 13 ) ) '27
Response.Write ( "<!--" & Chr ( 13 ) ) '28
Response.Write ( "/*分页*/" & Chr ( 13 ) ) '29
Response.Write ( ".intd,.outtd{ height:18px; text-align:center; line-height:18px; font-family:Arial;font-size:12px;cursor:pointer;}" & Chr ( 13 ) ) '30
Response.Write ( ".intd{ background:#66ABD9; font-weight:bold; color:#fff; width:20px; border:1px solid #B3DDF8; }" & Chr ( 13 ) ) '31
Response.Write ( ".outtd{ background:#fff; color:#049; width:20px; border:1px solid #B3DDF8; }" & Chr ( 13 ) ) '32
Response.Write ( ".inputpage {padding:0;font-size:14px;height:18px;border:1px #B3DDF8 solid;}" & Chr ( 13 ) ) '33
Response.Write ( "-->" & Chr ( 13 ) ) '34
Response.Write ( "</style>" & Chr ( 13 ) ) '35
Response.Write ( "</head>" & Chr ( 13 ) ) '36
Response.Write ( "<body>" & Chr ( 13 ) ) '37
FTBBS_HTML_MB ( ft ) '39
sitenav = Application ( "FTBBSMB" ) ( 65 , 0 ) '40
Response.Write ( sitenav ) '41
Response.Write ( vbCrLf )
ASPX_NAVHOME.AspToAspX_Page_Init ( )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!--最新图片/相册开始-->" & Chr ( 13 ) ) '44
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div id=""morePhotos"" class=""width780"">" & Chr ( 13 ) ) '45
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '46
pagestr = "" '47
root = "" '48
sql = "select " & ft & "bbstitle.title," & ft & "ftbbs_upload.upload_pic," & ft & "ftbbs_upload.upload_htm," & ft & "ftbbs_upload.userid from " & ft & "bbstitle," & ft & "ftbbs_upload where " & ft & "bbstitle.htmfilename=" & ft & "ftbbs_upload.upload_htm and " & ft & "bbstitle.deleted=0 and " & ft & "bbstitle.flag=0 and " & ft & "ftbbs_upload.sign=0 and " & ft & "ftbbs_upload.bbs_blog_type=0 and (" & ft & "ftbbs_upload.upload_ext='jpg' or " & ft & "ftbbs_upload.upload_ext='gif') order by " & ft & "bbstitle.id desc" '49
rs = New ADODB.Recordset ( ) '50
rs.Open ( sql , conn , 3 , 1 ) '51
If Not rs.EOF Then '52
wzrep = 30 '53
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '54
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'55
rs.PageSize = wzrep '56
rs.AbsolutePage = wzpage '57
wzpagecount = rs.PageCount '58
wzcount = rs.RecordCount '59
For i = 1 To Val ( wzrep ) '60
If rs.EOF Then
Exit For
End If
'61
photo_name = AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) '62
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<h1><a href=""" ) '64
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_htm" ) .Value) ) '64
Response.Write ( """ target=""_blank""><img src=""" ) '64
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '64
Response.Write ( """ alt=""" ) '64
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) ) '64
Response.Write ( """ width=""110"" height=""110"" border=""0"" /></a><div><a href=""" ) '64
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_htm" ) .Value) ) '64
Response.Write ( """ target=""_blank"">" ) '64
Response.Write ( photo_name ) '64
Response.Write ( "</a></div></h1>" & Chr ( 13 ) ) '64
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '65
rs.MoveNext ( ) '66
Next '67
End If '68
rs.Close ( ) '69
rs = Nothing '70
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div align=""left"" style=""float: left;"">" ) '72
Response.Write ( pageclass ( wzpagecount , wzcount , wzrep , pagestr , root ) ) '72
Response.Write ( " </div>" & Chr ( 13 ) ) '72
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '73
Response.Write ( "<!--最新图片/相册结束-->" & Chr ( 13 ) ) '74
Response.Write ( "<!-- 版权声明开始 -->" & Chr ( 13 ) ) '75
ASPX_COPYRIGHT_HTM.AspToAspX_Page_Init ( )
Response.Write ( "<!-- 版权声明结束 -->" & Chr ( 13 ) ) '77
Response.Write ( "</body>" & Chr ( 13 ) ) '78
Response.Write ( "</html>" & Chr ( 13 ) ) '79
closedb ( ) '81
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("morepic_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 Property ftbbs_nav_name
Get
ftbbs_nav_name = ASPX_FTBBS_NAV.ftbbs_nav_name
End Get
Set(ByVal value)
ASPX_FTBBS_NAV.ftbbs_nav_name = value
End Set
End Property
Public Property ftbbs_clubuser_id
Get
ftbbs_clubuser_id = ASPX_FTBBS_NAV.ftbbs_clubuser_id
End Get
Set(ByVal value)
ASPX_FTBBS_NAV.ftbbs_clubuser_id = value
End Set
End Property
Public Function pageclass(ByRef totalpage,ByRef wzcount,ByRef wzrep,ByRef pagestr,ByRef root )
Return ASPX_PAGEFUN.pageclass( totalpage,wzcount,wzrep,pagestr,root )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -