📄 show_topic.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 _SHOW_TOPIC
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public i
Public sql
Public rs As ADODB.Recordset
Public wzrep
Public wzpage
Public wzpagecount
Public wzcount
Public indate
Public photo_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public sitenav
Public ASPX_CONN As _CONN
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
Public ASPX_GBTOUTF8 As _GBTOUTF8
Public ASPX_TOPNAV As _TOPNAV
Public ASPX_NAVHEAD_HTM As _NAVHEAD_HTM
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_INC_PUBLICFUN = New _INC_PUBLICFUN()
ASPX_INC_PUBLICFUN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_PUBLICFUN.AspToAspX_InitIncludeFiles()
ASPX_GBTOUTF8 = New _GBTOUTF8()
ASPX_GBTOUTF8.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_GBTOUTF8.AspToAspX_InitIncludeFiles()
ASPX_TOPNAV = New _TOPNAV()
ASPX_TOPNAV.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_TOPNAV.AspToAspX_InitIncludeFiles()
ASPX_NAVHEAD_HTM = New _NAVHEAD_HTM()
ASPX_NAVHEAD_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_NAVHEAD_HTM.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_INC_PUBLICFUN.AspToAspX_UnloadIncludeFiles()
ASPX_INC_PUBLICFUN = Nothing
ASPX_GBTOUTF8.AspToAspX_UnloadIncludeFiles()
ASPX_GBTOUTF8 = Nothing
ASPX_TOPNAV.AspToAspX_UnloadIncludeFiles()
ASPX_TOPNAV = Nothing
ASPX_NAVHEAD_HTM.AspToAspX_UnloadIncludeFiles()
ASPX_NAVHEAD_HTM = 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_INC_PUBLICFUN.AspToAspX_Page_Init ( )
ASPX_GBTOUTF8.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 ) & "<head>" & Chr ( 13 ) ) '5
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '6
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<title>我的空间-欢迎来到飞天论坛我的空间首页</title>" & Chr ( 13 ) ) '7
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<link href=""css/index.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '8
Response.Write ( "<link href=""css/inpage.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '9
Response.Write ( "" & Chr ( 9 ) & "</head>" & Chr ( 13 ) ) '10
Response.Write ( "" & Chr ( 9 ) & "<body>" & Chr ( 13 ) ) '11
ASPX_TOPNAV.AspToAspX_Page_Init ( )
ASPX_NAVHEAD_HTM.AspToAspX_Page_Init ( )
Response.Write ( " <div class=""tag_list"">" & Chr ( 13 ) ) '14
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h4><img src=""blogimages/mright.gif"" alt="""" /> 话题索引 → 相册 </h4>" & Chr ( 13 ) ) '15
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tag_photo"">" & Chr ( 13 ) ) '16
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '17
sql = "SELECT top 20 * FROM " & ft & "ftbbs_upload WHERE (id IN(SELECT MAX(id) FROM " & ft & "ftbbs_upload GROUP BY photo_name)) and (bbs_blog_type=1 or bbs_blog_type=2) and sign=0 order by indate desc" '18
rs = New ADODB.Recordset ( ) '19
rs.Open ( sql , conn , 1 , 1 ) '20
If Not rs.EOF Then '22
wzrep = 20 '23
wzpage = AspToAspX_CInt ( Request ( "page" ) ) '24
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'25
rs.PageSize = wzrep '26
rs.AbsolutePage = wzpage '27
wzpagecount = rs.PageCount '28
wzcount = rs.RecordCount '29
For i = 0 To Val ( wzrep ) - 1 '30
indate = AspToAspX_CheckDBNull(rs.Fields ( "indate" ) .Value) '31
indate = Year ( indate ) & "-" & Month ( indate ) & "-" & Day ( indate ) & " " & Hour ( indate ) & ":" & Minute ( indate ) '32
If rs.EOF Then
Exit For
End If
'33
photo_name = AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) '34
If AspToAspX_Len ( photo_name ) > 9 Then '35
photo_name = left ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) , 8 ) & "..." '36
End If '37
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><a title=""" ) '39
Response.Write ( photo_name ) '39
Response.Write ( """ href=""disphoto.aspx?id=" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '39
Response.Write ( "&userid=" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '39
Response.Write ( "&photo_name=" ) '39
Response.Write ( GBtoUTF8 ( AspToAspX_CheckDBNull(rs.Fields ( "photo_name" ) .Value) ) ) '39
Response.Write ( """ target=""_blank""><img src=""" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_pic" ) .Value) ) '39
Response.Write ( """ alt=""" ) '39
Response.Write ( photo_name ) '39
Response.Write ( """ width=""110"" height=""110"" border=""0"" style=""padding:5px;"" /></a><div class=""name"">作者：<a href=""home.aspx?userid=" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) ) '39
Response.Write ( """ target=""_blank"">" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '39
Response.Write ( "</a></div><div>时间：" ) '39
Response.Write ( indate ) '39
Response.Write ( "</div><div>大小：" ) '39
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "upload_size" ) .Value) ) '39
Response.Write ( "k</div></h1>" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "" & Chr ( 13 ) ) '39
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '40
rs.MoveNext ( ) '41
Next '42
rs.Close ( ) '43
rs = Nothing '44
Else '45
Response.Write ( "<h1>没有数据<h1>" ) '46
End If '47
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<div align=""left"" style=""float: left;"">" ) '49
Response.Write ( SearchPage ( wzpagecount , "" , "" , "" , "" ) ) '49
Response.Write ( " </div>" & Chr ( 13 ) ) '49
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '50
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<!-- 版权声明开始 -->" & Chr ( 13 ) ) '51
ASPX_COPYRIGHT_HTM.AspToAspX_Page_Init ( )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!-- 版权声明结束 -->" & Chr ( 13 ) ) '53
Response.Write ( "" & Chr ( 9 ) & "</body>" & Chr ( 13 ) ) '54
Response.Write ( "</html>" & Chr ( 13 ) ) '55
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("show_topic_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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -