📄 bz.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 _BZ
Inherits System.Web.UI.Page
Implements IHttpHandler, AspToAspX_Interface
Public AspToAspX_Host_Class_Object As Object
Public rssql,getstring
Public wzcount,wzrep,wzpage,wzpagecount,wzpagerep,boardstr
Public i
Public p
Public defaulthome
Public homepage
Public root
Public pagestr
Public sql
Public rs As ADODB.Recordset
Public bzname
Public BBS_Cate_Name
Public BBS_Cate_ID
Public BBS_Cate_PID
Public BBS_Cate_Qs
Public clubuser_id
Public clubuser_name
Public postnum
Public clubuser_lasttime
Public sql2
Public rsbz2
Public daynum
Public ruslt
Public sql3
Public rsbz3
Public linkdb
Public ft
Public ku
Public ckiesdomain
Public conndb
Public ConnectionString
Public userinfo
Public userinfox
Public num
Public smsnum
Public ASPX_CONN As _CONN
Public ASPX_FTBBS_NAV As _FTBBS_NAV
Public ASPX_PAGEFUN As _PAGEFUN
Public ASPX_INC_BBSTAIL_HTM As _INC_BBSTAIL_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_INC_BBSTAIL_HTM = New _INC_BBSTAIL_HTM()
ASPX_INC_BBSTAIL_HTM.AspToAspX_Host_Class_Object = AspToAspX_Host_Class_Object
ASPX_INC_BBSTAIL_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_INC_BBSTAIL_HTM.AspToAspX_UnloadIncludeFiles()
ASPX_INC_BBSTAIL_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 ( )
FTBBS_HTML_MB ( ft ) '5
defaulthome = Application ( "FTBBSMB" ) ( 31 , 0 ) '6
homepage = ft_home ( defaulthome ) '7
root = "" '8
pagestr = "" '9
wzrep = Application ( "FTBBSMB" ) ( 5 , 0 ) '13
Response.Write ( vbCrLf )
Response.Write ( "<HTML><HEAD>" & Chr ( 13 ) ) '15
Response.Write ( "<title>版主工作评定</title>" & Chr ( 13 ) ) '16
Response.Write ( "<META http-equiv=Content-Type content=text/html;charset=utf-8>" & Chr ( 13 ) ) '17
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '18
Response.Write ( "<script>" & Chr ( 13 ) ) '19
Response.Write ( "//载入上次cookies记录的样式" & Chr ( 13 ) ) '20
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '21
Response.Write ( "var style;" & Chr ( 13 ) ) '22
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '23
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '24
Response.Write ( "{" & Chr ( 13 ) ) '25
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '26
Response.Write ( "}" & Chr ( 13 ) ) '27
Response.Write ( "else" & Chr ( 13 ) ) '28
Response.Write ( "{" & Chr ( 13 ) ) '29
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '30
Response.Write ( "}" & Chr ( 13 ) ) '31
Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '32
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '33
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '34
Response.Write ( "</script>" & Chr ( 13 ) ) '35
Response.Write ( "</head>" & Chr ( 13 ) ) '36
Response.Write ( "<body>" & Chr ( 13 ) ) '37
If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '39
Response.Write ( headhtml ) '40
End If '41
Response.Write ( vbCrLf )
Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" class=""maintbbg"">" & Chr ( 13 ) ) '43
Response.Write ( " <tr> " & Chr ( 13 ) ) '44
Response.Write ( " <td> <table width=""100%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '45
Response.Write ( " <tbody>" & Chr ( 13 ) ) '46
Response.Write ( " <tr> " & Chr ( 13 ) ) '47
Response.Write ( " <td height=""25"" colspan=""3"" class=""f12bg""> " ) '48
Response.Write ( userinfo ) '48
Response.Write ( "</td>" & Chr ( 13 ) ) '48
Response.Write ( " </tr>" & Chr ( 13 ) ) '49
Response.Write ( " <tr> " & Chr ( 13 ) ) '50
Response.Write ( " <td height=""25"" colspan=""3"" class=""maintbtr3""> <a href=""" ) '51
Response.Write ( homepage ) '51
Response.Write ( """>论坛首页</a> " & Chr ( 13 ) ) '51
Response.Write ( " >> 版主工作评定</td>" & Chr ( 13 ) ) '52
Response.Write ( " </tr>" & Chr ( 13 ) ) '53
Response.Write ( " </tbody>" & Chr ( 13 ) ) '54
Response.Write ( " </table>" & Chr ( 13 ) ) '55
Response.Write ( " </td>" & Chr ( 13 ) ) '56
Response.Write ( " </tr>" & Chr ( 13 ) ) '57
Response.Write ( "</table>" & Chr ( 13 ) ) '58
Response.Write ( "<table cellspacing=0 cellpadding=0 width=""99%"" align=center border=0>" & Chr ( 13 ) ) '59
Response.Write ( " <tr> " & Chr ( 13 ) ) '60
Response.Write ( " <td height=5></td>" & Chr ( 13 ) ) '61
Response.Write ( " </tr>" & Chr ( 13 ) ) '62
Response.Write ( "</table>" & Chr ( 13 ) ) '63
Response.Write ( "<table width=""99%"" border=0 cellpadding=0 cellspacing=0 class=""listborder"" align=""center"">" & Chr ( 13 ) ) '64
Response.Write ( " <tbody>" & Chr ( 13 ) ) '65
Response.Write ( " <tr align=middle class=f12> " & Chr ( 13 ) ) '66
Response.Write ( " <td width=""9%"" height=""28"" class=""f12bg"" align=""center"">版主网名</td>" & Chr ( 13 ) ) '67
Response.Write ( " <td width=""23%"" class=""f12bg"" align=""center""> 最后登陆时间</td>" & Chr ( 13 ) ) '68
Response.Write ( " <td width=""12%"" class=""f12bg"" align=""center""> 发表文章数</td>" & Chr ( 13 ) ) '69
Response.Write ( " <td width=""10%"" class=""f12bg"" align=""center""> 失踪天数</td>" & Chr ( 13 ) ) '70
Response.Write ( " <td width=""17%"" class=""f12bg"" align=""center""> 担任版块</td>" & Chr ( 13 ) ) '71
Response.Write ( " <td width=""30%"" class=""f12bg"" align=""center""> 评定结果</td>" & Chr ( 13 ) ) '72
Response.Write ( " </tr>" & Chr ( 13 ) ) '73
Response.Write ( " " ) '74
sql = "select BBS_Cate_Name,BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Qs,BBS_Cate_Note,BBS_Cate_Topic,BBS_Cate_Reply,BBS_Cate_Manager_Name from " & ft & "BBS_Cate where deleted=0 and BBS_Cate_PID<>'0' order by bbs_id desc" '75
rs = New ADODB.Recordset ( ) '76
rs.Open ( sql , conn , 1 , 1 ) '77
If Not rs.EOF Then '78
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '79
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'80
rs.PageSize = wzrep '81
rs.AbsolutePage = wzpage '82
wzpagecount = rs.PageCount '83
wzcount = rs.RecordCount '84
For i = 0 To Val ( wzrep ) - 1 '85
If rs.EOF Then
Exit For
End If
'86
bzname = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Manager_Name" ) .Value) '87
BBS_Cate_Name = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Name" ) .Value) '88
BBS_Cate_ID = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_ID" ) .Value) '89
BBS_Cate_PID = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_PID" ) .Value) '90
BBS_Cate_Qs = AspToAspX_CheckDBNull(rs.Fields ( "BBS_Cate_Qs" ) .Value) '91
If AspToAspX_CheckDBNull ( InStr ( bzname , "|" ) ) > 0 Then '92
bzname = AspToAspX_Split ( bzname , "|" ) '93
For p = 0 To Val ( UBound ( bzname ) ) '94
clubuser_id = "" '95
clubuser_name = "" '96
postnum = "" '97
clubuser_lasttime = "" '98
sql2 = "select clubuser_id,clubuser_name,postnum,clubuser_lasttime from " & ft & "clubuser where clubuser_name='" & bzname ( p ) & "'" '99
rsbz2 = New ADODB.Recordset ( ) '100
rsbz2.Open ( sql2 , conn , 1 , 1 ) '101
If Not rsbz2.EOF Then '102
clubuser_id = AspToAspX_CheckDBNull(rsbz2.Fields ( "clubuser_id" ) .Value) '103
clubuser_name = bzname ( p ) '104
postnum = AspToAspX_CheckDBNull(rsbz2.Fields ( "postnum" ) .Value) '105
clubuser_lasttime = AspToAspX_CheckDBNull(rsbz2.Fields ( "clubuser_lasttime" ) .Value) '106
daynum = AspToAspX_DateDiff ( "d" , ToDay ( ) , clubuser_lasttime ) '107
If AspToAspX_CheckDBNull ( daynum ) < 0 Then '108
daynum = daynum * ( - 1 ) '109
Else '110
daynum = 0 '111
End If '112
If AspToAspX_CheckDBNull ( daynum ) > 7 Then '113
ruslt = "此斑竹已<font color=red>严重失职</font>,将取消资格!" '114
ElseIf AspToAspX_CheckDBNull ( daynum ) > 0 And AspToAspX_CheckDBNull ( daynum ) < = 7 Then '115
ruslt = "此斑竹<font color=red>7</font>天之内有登录!" '116
Else '117
ruslt = "此斑竹比较勤快，加油哦!" '118
End If '119
Response.Write ( vbCrLf )
Response.Write ( " <tr align=middle> " & Chr ( 13 ) ) '121
Response.Write ( " <td width=""9%"" height=""28"" class=""loopborder1"" align=""center""><a href=""home.aspx?userid=" ) '122
Response.Write ( clubuser_id ) '122
Response.Write ( """ target=""_blank"">" & Chr ( 13 ) ) '122
Response.Write ( " " ) '123
Response.Write ( clubuser_name ) '123
Response.Write ( vbCrLf )
Response.Write ( " </a></td>" & Chr ( 13 ) ) '124
Response.Write ( " <td width=""22%"" align=left valign=""middle"" class=""loopborder3"">" & Chr ( 13 ) ) '125
Response.Write ( " " ) '126
Response.Write ( clubuser_lasttime ) '126
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '127
Response.Write ( " <td width=""12%"" class=""loopborder1"" align=""center""><font color=""#FF0000"">" & Chr ( 13 ) ) '128
Response.Write ( " " ) '129
Response.Write ( postnum ) '129
Response.Write ( vbCrLf )
Response.Write ( " </font>篇</td>" & Chr ( 13 ) ) '130
Response.Write ( " <td width=""10%"" class=""loopborder3"" align=""center"">" & Chr ( 13 ) ) '131
Response.Write ( " " ) '132
Response.Write ( daynum ) '132
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '133
Response.Write ( " <td width=""17%"" class=""loopborder1"" align=""center""><a href=""main.aspx?layer_1=" ) '134
Response.Write ( BBS_Cate_PID ) '134
Response.Write ( "&layer_2=" ) '134
Response.Write ( BBS_Cate_ID ) '134
Response.Write ( "&qs=" ) '134
Response.Write ( BBS_Cate_Qs ) '134
Response.Write ( """>" & Chr ( 13 ) ) '134
Response.Write ( " " ) '135
Response.Write ( BBS_Cate_Name ) '135
Response.Write ( vbCrLf )
Response.Write ( " </a></td>" & Chr ( 13 ) ) '136
Response.Write ( " <td width=""30%"" class=""loopborder3"" align=""center"">" & Chr ( 13 ) ) '137
Response.Write ( " " ) '138
Response.Write ( ruslt ) '138
Response.Write ( vbCrLf )
Response.Write ( " </td>" & Chr ( 13 ) ) '139
Response.Write ( " </tr>" & Chr ( 13 ) ) '140
Response.Write ( " " ) '141
End If '142
Next '143
Else '144
sql3 = "select clubuser_id,clubuser_name,postnum,clubuser_lasttime from " & ft & "clubuser where clubuser_name='" & bzname & "'" '145
rsbz3 = New ADODB.Recordset ( ) '146
rsbz3.Open ( sql3 , conn , 1 , 1 ) '147
If Not rsbz3.EOF Then '148
clubuser_id = "" '149
clubuser_name = "" '150
postnum = "" '151
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -