📄 callfun.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 _CALLFUN
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public t1
Public t2
Public n
Public a
Public b
Public c
Public d
Public e
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public ASPX_CONN As _CONN
#Region "..."
Public Sub AspToAspX_InitIncludeFiles()
ASPX_CONN = New _CONN()
ASPX_CONN.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_CONN.AspToAspX_InitIncludeFiles()
End Sub
Public Sub AspToAspX_UnloadIncludeFiles()
ASPX_CONN.AspToAspX_UnloadIncludeFiles()
ASPX_CONN = 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 ( )
t1 = Request.QueryString ( "t1" ) '13
t2 = Request.QueryString ( "t2" ) '14
n = Request.QueryString ( "n" ) '15
a = Request.QueryString ( "a" ) '16
b = Request.QueryString ( "b" ) '17
c = Request.QueryString ( "c" ) '18
d = Request.QueryString ( "d" ) '19
e = Request.QueryString ( "e" ) '20
ft_na ( t1 , t2 , n , a , b , c , d , e ) '21
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("callfun_aspx Page_Init:" & Err.Description)
Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\CALLFUN.ASP
Function ft_na(ByRef t1,ByRef t2,ByRef n,ByRef a,ByRef b,ByRef c,ByRef d,ByRef e )
On Error GoTo _AspToAspX_Err
Dim sql
Dim rs
Dim nl
Dim id
Dim title
Dim boardid_1
Dim boardid_2
Dim BBS_Cate_Name
Dim htmfilename
Dim tk1
Dim astring
Dim bstring
Dim cstring
If AspToAspX_CheckDBNull ( d ) = 1 Then '23
sql = "SELECT top " & n & " * FROM " & ft & "BBS_Cate," & ft & "bbstitle where " & ft & "bbstitle.BoardID_1='" & t1 & "' and " & ft & "bbstitle.BoardID_2='" & t2 & "' and " & ft & "BBS_Cate.BBS_Cate_ID = " & ft & "bbstitle.BoardID_2 and " & ft & "bbstitle.deleted=0 and " & ft & "bbstitle.huati=1 order by " & ft & "bbstitle.redate desc" '24
ElseIf AspToAspX_CheckDBNull ( d ) = 2 Then '25
sql = "SELECT top " & n & " * FROM " & ft & "BBS_Cate," & ft & "bbstitle where " & ft & "bbstitle.BoardID_1='" & t1 & "' and " & ft & "bbstitle.BoardID_2='" & t2 & "' and " & ft & "BBS_Cate.BBS_Cate_ID = " & ft & "bbstitle.BoardID_2 and " & ft & "bbstitle.deleted=0 and " & ft & "bbstitle.sign=1 order by " & ft & "bbstitle.redate desc" '26
Else '27
sql = "SELECT top " & n & " * FROM " & ft & "BBS_Cate," & ft & "bbstitle where " & ft & "bbstitle.BoardID_1='" & t1 & "' and " & ft & "bbstitle.BoardID_2='" & t2 & "' and " & ft & "BBS_Cate.BBS_Cate_ID = " & ft & "bbstitle.BoardID_2 and " & ft & "bbstitle.deleted=0 and " & ft & "BBS_Cate.BBS_Cate_Qs=0 order by " & ft & "bbstitle.redate desc" '28
End If '29
rs = New ADODB.Recordset ( ) '30
rs.Open ( sql , conn , 1 , 1 ) '31
If Not rs.EOF Then '32
nl = "" '33
Do While Not rs.EOF '34
id = AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) '35
title = left ( AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) , e ) '36
boardid_1 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_1" ) .Value) '37
boardid_2 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_2" ) .Value) '38
BBS_Cate_Name = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) '39
htmfilename = AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) '40
tk1 = "default.aspx?a=" & boardid_1 & "&b=" & boardid_2 '41
If AspToAspX_CheckDBNull ( a ) = 1 Then '42
astring = "[<a href=" & tk1 & ">" & AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) & "</a>]" '43
End If '44
If AspToAspX_CheckDBNull ( b ) = 1 Then '45
bstring = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) , 2 ) '46
End If '47
If AspToAspX_CheckDBNull ( c ) = 1 Then '48
cstring = AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) '49
End If '50
nl = nl & astring & "<a href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & ">" & title & "</a> " & cstring & " " & bstring & "<br>" & vbCrLf '51
rs.MoveNext ( ) '52
Loop '53
Else '54
nl = "记录为空" '55
End If '56
rs.Close ( ) '57
Response.Write ( nl ) '58
Exit Function
_AspToAspX_Err:
AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CALLFUN.ASP ft_na:" & Err.Description)
Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\CALLFUN.ASP
Function ft_pic(ByRef n,ByRef a,ByRef b,ByRef c,ByRef d )
On Error GoTo _AspToAspX_Err
Dim sql
Dim rs
Dim nl
Dim id
Dim title
Dim boardid_1
Dim boardid_2
Dim BBS_Cate_Name
Dim htmfilename
Dim tk1
Dim astring
Dim bstring
Dim cstring
sql = "select top " & n & " * from " & ft & "bbstitle," & ft & "ftbbs_upload where " & ft & "bbstitle.htmfilename=" & ft & "ftbbs_upload.upload_htm and " & ft & "bbstitle.deleted=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" '62
rs = New ADODB.Recordset ( ) '63
rs.Open ( sql , conn , 1 , 1 ) '64
If Not rs.EOF Then '65
nl = "" '66
Do While Not rs.EOF '67
id = AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) '68
title = AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) '69
boardid_1 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_1" ) .Value) '70
boardid_2 = AspToAspX_CheckDBNull(rs.Fields ( "boardid_2" ) .Value) '71
BBS_Cate_Name = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) '72
htmfilename = AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) '73
tk1 = "default.aspx?a=" & boardid_1 & "&b=" & boardid_2 '74
If AspToAspX_CheckDBNull ( a ) = 1 Then '75
astring = "[<a href=" & tk1 & ">" & AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) & "</a>]" '76
End If '77
If AspToAspX_CheckDBNull ( b ) = 1 Then '78
bstring = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "redate" ) .Value) , 2 ) '79
End If '80
If AspToAspX_CheckDBNull ( c ) = 1 Then '81
cstring = AspToAspX_CheckDBNull(rs.Fields ( "user_id" ) .Value) '82
End If '83
nl = nl & astring & "<a href=" & AspToAspX_CheckDBNull(rs.Fields ( "htmfilename" ) .Value) & " target=""_blank"">" & AspToAspX_CheckDBNull(rs.Fields ( "title" ) .Value) & "</a> " & cstring & " " & bstring & "<br>" & vbCrLf '84
rs.MoveNext ( ) '85
Loop '86
Else '87
nl = "记录为空" '88
End If '89
rs.Close ( ) '90
Response.Write ( nl ) '91
Exit Function
_AspToAspX_Err:
AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\CALLFUN.ASP ft_pic:" & Err.Description)
Resume Next
End Function
#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
#End Region
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -