📄 blogsearch.1.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 _BLOGSEARCH_1
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public sql,rs,wzrep,wzpage
Public i
Public searchword
Public fieldstr
Public wzpagecount
Public wzcount
Public sqlx
Public rsx
Public clubuser_name
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
Public ASPX_INC_PUBLICFUN As _INC_PUBLICFUN
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_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_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 ( )
Response.Write ( "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr ( 13 ) ) '3
Response.Write ( "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr ( 9 ) & "<head>" & Chr ( 13 ) ) '4
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & Chr ( 13 ) ) '5
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<title>我的空间-欢迎来到飞天论坛我的空间首页</title>" & Chr ( 13 ) ) '6
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<link href=""css/index.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '7
Response.Write ( "" & Chr ( 9 ) & "</head>" & Chr ( 13 ) ) '8
Response.Write ( "" & Chr ( 9 ) & "<body>" & Chr ( 13 ) ) '9
ASPX_NAVHEAD_HTM.AspToAspX_Page_Init ( )
Response.Write ( "" & Chr ( 9 ) & "" & Chr ( 13 ) ) '10
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<link href=""css/inpage.css"" type=""text/css"" rel=""stylesheet"" />" & Chr ( 13 ) ) '11
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<div class=""tag_list"">" & Chr ( 13 ) ) '12
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h4><img src=""blogimages/mright.gif"" alt="""" /> 话题搜索 → 博客文章 </h4>" & Chr ( 13 ) ) '13
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '14
searchword = Checkstr ( AspToAspX_CheckIsNothing ( Request.Form ( "searchword" ) ) ) '16
fieldstr = Checkstr ( AspToAspX_CheckIsNothing ( Request.Form ( "fieldstr" ) ) ) '17
sql = "SELECT * FROM " & ft & "ftblog WHERE sign=0 and " & fieldstr & " like '%" & searchword & "%' order by id desc" '18
rs = New ADODB.Recordset ( ) '19
rs.Open ( sql , conn , 1 , 1 ) '20
If Not rs.EOF Then '21
wzrep = 20 '22
wzpage = AspToAspX_CInt ( Request ( "page" ) ) '23
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'24
rs.PageSize = wzrep '25
rs.AbsolutePage = wzpage '26
wzpagecount = rs.PageCount '27
wzcount = rs.RecordCount '28
For i = 0 To Val ( wzrep ) - 1 '29
If rs.EOF Then
Exit For
End If
'30
sqlx = "select top 1 clubuser_id,clubuser_name from " & ft & "clubuser where clubuser_id=" & AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) & " order by clubuser_id desc" '31
rsx = New ADODB.Recordset ( ) '32
rsx.Open ( sqlx , conn , 3 , 1 ) '33
clubuser_name = AspToAspX_CheckDBNull(rsx.Fields ( "clubuser_name" ) .Value) '34
rsx.Close ( ) '35
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h1><em>评论(" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogplnum" ) .Value) ) '37
Response.Write ( ") | 阅读(" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "hits" ) .Value) ) '37
Response.Write ( ")</em>·<a href=""myblog.aspx?id=" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '37
Response.Write ( "&userid=" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '37
Response.Write ( "&blogtypeid=" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtypeid" ) .Value) ) '37
Response.Write ( """ title=""" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '37
Response.Write ( """>" ) '37
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtitle" ) .Value) ) '37
Response.Write ( "</a></h1>" & Chr ( 13 ) ) '37
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h2>作者：<a href=""home.aspx?userid=" ) '38
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "userid" ) .Value) ) '38
Response.Write ( """ target=""_blank"" alt=""查看个人资料"">" ) '38
Response.Write ( clubuser_name ) '38
Response.Write ( "</a> -- 发表时间：<span>" ) '38
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "writedate" ) .Value) ) '38
Response.Write ( "</span> </h2>" & Chr ( 13 ) ) '38
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "" ) '39
rs.MoveNext ( ) '40
Next '41
rs.Close ( ) '42
rs = Nothing '43
End If '44
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "<h3>" & Chr ( 13 ) ) '46
Response.Write ( " " ) '47
Response.Write ( SearchPage ( wzpagecount , "" , "" , "" , "" ) ) '47
Response.Write ( vbCrLf )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & "</h3>" & Chr ( 13 ) ) '48
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "</div>" & Chr ( 13 ) ) '49
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!-- 版权声明开始 -->" & Chr ( 13 ) ) '50
ASPX_COPYRIGHT_HTM.AspToAspX_Page_Init ( )
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<!-- 版权声明结束 -->" & Chr ( 13 ) ) '52
Response.Write ( "" & Chr ( 9 ) & "</body>" & Chr ( 13 ) ) '53
Response.Write ( "</html>" & Chr ( 13 ) ) '54
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("blogsearch_1_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 fso
Get
fso = _INC_PUBLICFUN.fso
End Get
End Property
Public Function makefolder(ByRef Folder,ByRef fso )
Return ASPX_INC_PUBLICFUN.makefolder( Folder,fso )
End Function
Public Function DelFile(ByRef FileName,ByRef fso )
Return ASPX_INC_PUBLICFUN.DelFile( FileName,fso )
End Function
Public Function makehtml(ByRef htmlurlname,ByRef fso,ByRef nl )
Return ASPX_INC_PUBLICFUN.makehtml( htmlurlname,fso,nl )
End Function
Public Function GetFolderSize(ByRef FolderName,ByRef fso )
Return ASPX_INC_PUBLICFUN.GetFolderSize( FolderName,fso )
End Function
Public Function ClearHTMLCode(ByRef StrCode )
Return ASPX_INC_PUBLICFUN.ClearHTMLCode( StrCode )
End Function
Public Function pagination(ByRef pagecount,ByRef userid )
Return ASPX_INC_PUBLICFUN.pagination( pagecount,userid )
End Function
Public Function SearchPage(ByRef pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
Return ASPX_INC_PUBLICFUN.SearchPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
End Function
Public Function pagenar(ByRef pagecount,ByRef userid,ByRef tyname,ByRef tyvalue )
Return ASPX_INC_PUBLICFUN.pagenar( pagecount,userid,tyname,tyvalue )
End Function
Public Function FtbbsPage(ByRef pagecount,ByRef tyname1,ByRef tyvalue1,ByRef tyname2,ByRef tyvalue2 )
Return ASPX_INC_PUBLICFUN.FtbbsPage( pagecount,tyname1,tyvalue1,tyname2,tyvalue2 )
End Function
Public Function makeadjs(ByRef ft )
Return ASPX_INC_PUBLICFUN.makeadjs( ft )
End Function
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -