📄 main.aspx.vb
字号:
BBS_Cate_Manager_Email = AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Manager_Email" ) .Value) '69
BBS_Cate_Topic = AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Topic" ) .Value) '70
BBS_Cate_Reply = AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Reply" ) .Value) '71
rs_BBS_Cate.Close ( ) '72
End If '73
rs_BBS_Cate = Nothing '74
qs = Request ( "qs" ) '75
If AspToAspX_CheckDBNull ( qs ) = EmptyString.Value Or AspToAspX_CheckDBNull ( qs ) = 4 Or AspToAspX_CheckDBNull ( qs ) = 5 Then
qs = 0
End If
'76
If AspToAspX_CheckDBNull ( qs ) < > 0 Then '77
If ( AspToAspX_CheckDBNull ( qs ) = 1 Or AspToAspX_CheckDBNull ( qs ) = 2 Or AspToAspX_CheckDBNull ( qs ) = 3 ) And AspToAspX_CheckDBNull ( ftbbs_name ) = EmptyString.Value Then '78
AspToAspX_Response_Redirect ( "userlogin.aspx" ) '79
ElseIf AspToAspX_CheckDBNull ( qs ) = 2 And AspToAspX_CheckDBNull ( ftbbs_payuser ) = 0 And AspToAspX_CheckDBNull ( ftbbs_bz ) = 0 Then '80
login_msg ( 1 , "userlogin.aspx" ) '81
ElseIf AspToAspX_CheckDBNull ( ftbbs_bz ) = 0 And AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 0 And AspToAspX_CheckDBNull ( qs ) = 3 Then '82
login_msg ( 2 , "userlogin.aspx" ) '83
End If '84
End If '85
If AspToAspX_CheckDBNull ( ftbbs_name ) = EmptyString.Value Then '87
strqssql = "where BBS_Cate_Qs=1 or BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '88
Else '89
If AspToAspX_CheckDBNull ( ftbbs_payuser ) = 1 And AspToAspX_CheckDBNull ( ftbbs_bz ) = 0 And AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 0 Then '90
strqssql = "where BBS_Cate_Qs=3" '91
ElseIf AspToAspX_CheckDBNull ( ftbbs_bz ) = 1 Or AspToAspX_CheckDBNull ( ftbbs_bbsadmin ) = 1 Then '92
strqssql = "" '93
Else '94
strqssql = "where BBS_Cate_Qs=2 or BBS_Cate_Qs=3" '95
End If '96
End If '97
strqs = "" '98
qssqlstr1 = "" '99
qssql = "select * from " & ft & "BBS_Cate where BBS_ID in(select MIN(BBS_ID) from " & ft & "BBS_Cate " & strqssql & " group by BBS_Cate_ID) order by BBS_ID asc" '100
qsrs = New ADODB.Recordset ( ) '101
qsrs.Open ( qssql , conn , 1 , 1 ) '102
If Not qsrs.EOF And AspToAspX_CheckDBNull ( strqssql ) < > EmptyString.Value Then '103
qsnum = qsrs.RecordCount '104
If AspToAspX_CheckDBNull ( qsnum ) > 1 Then '105
i = 0 '106
Do While Not qsrs.EOF '107
If AspToAspX_CheckDBNull ( i ) = AspToAspX_CheckExpression ( qsnum ) - 1 Then '108
qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) '109
Else '110
qsbbsx1 = AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "," '111
End If '112
qsbbs1 = qsbbs1 & qsbbsx1 '113
qsrs.MoveNext ( ) '114
i = i + 1 '115
Loop '116
qsarray1 = AspToAspX_Split ( qsbbs1 , "," ) '117
For k = 0 To Val ( UBound ( qsarray1 ) ) '118
If AspToAspX_CheckDBNull ( k ) = UBound ( qsarray1 ) Then '119
qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "'" '120
Else '121
qssqlstrx = "Boardid_1<>'" & qsarray1 ( k ) & "' and Boardid_2<>'" & qsarray1 ( k ) & "' and " '122
End If '123
qssqlstr1 = qssqlstr1 & qssqlstrx '124
Next '125
qssqlstr1 = "" & qssqlstr1 '126
Else '127
qssqlstr1 = "Boardid_1<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "' and Boardid_2<>'" & AspToAspX_CheckDBNull(qsrs.Fields ( "BBS_Cate_ID" ) .Value) & "'" '128
End If '129
strqs = qssqlstr1 & " and " '130
End If '131
qsrs.Close ( ) '132
jh = Request.QueryString ( "huati" ) '134
tj = Request.QueryString ( "sign" ) '135
flag = Request.QueryString ( "flag" ) '136
jhtj = "" '137
jhortj = "" '138
order_key = Request ( "order_key" ) '139
If AspToAspX_CheckDBNull ( order_key ) = EmptyString.Value Then '140
If AspToAspX_CheckDBNull ( layer_1 ) = EmptyString.Value Then '141
order_key = "bbstop1 desc,redate" '142
Else '143
order_key = "bbstop1 desc,bbstop desc,redate" '144
End If '145
End If '146
searchcontent = Checkstr ( trim ( Request ( "searchcontent" ) ) ) '147
searchkind = Request ( "searchkind" ) '148
If AspToAspX_CheckDBNull ( jh ) = "1" Then '149
jhtj = "and huati=" & jh '150
jhortj = " and huati=" & jh '151
jhpage = "&huati=" & jh '152
End If '153
If AspToAspX_CheckDBNull ( tj ) = "1" Then '154
jhtj = "and sign=" & tj '155
jhortj = " and sign=" & tj '156
tjpage = "&sign=" & tj '157
End If '158
If AspToAspX_CheckDBNull ( flag ) = "1" Or AspToAspX_CheckDBNull ( flag ) = "2" Or AspToAspX_CheckDBNull ( flag ) = "5" Then '159
jhtj = "and flag=" & flag '160
jhortj = " and flag=" & flag '161
tjpage = "&flag=" & flag '162
End If '163
root = "" '165
If AspToAspX_CheckDBNull ( searchcontent ) < > EmptyString.Value Then '166
pagestr = "&searchkind=" & searchkind & "&searchcontent=" & searchcontent '167
ElseIf AspToAspX_CheckDBNull ( layer_1 ) < > ""And AspToAspX_CheckDBNull ( layer_2 ) = ""Then '168
pagestr = "&layer_1=" & layer_1 & jhpage & tjpage '169
ElseIf AspToAspX_CheckDBNull ( layer_1 ) < > ""And AspToAspX_CheckDBNull ( layer_2 ) < > ""Then '170
pagestr = "&layer_1=" & layer_1 & "&layer_2=" & layer_2 & jhpage & tjpage '171
Else '172
pagestr = "" & jhpage & tjpage '173
End If '174
wzrep = Application ( "FTBBSMB" ) ( 5 , 0 ) '178
If AspToAspX_CheckDBNull ( searchkind ) = EmptyString.Value Then '179
search_str = " " '180
ElseIf AspToAspX_CheckDBNull ( searchkind ) = "name"Then '181
If AspToAspX_CheckDBNull ( userlogin ( ft ) ) = "N" Then '182
Response.Write ( "" ) '183
Response.End ( ) '184
End If '185
search_str = " and name= '" & searchcontent & "' " '186
End If '187
If AspToAspX_CheckDBNull ( layer_1 ) = EmptyString.Value Then '189
strsql = "select id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo,xsjf,xsreid from " & ft & "bbstitle where " & strqs & " deleted=0 " & search_str & " " & jhortj & " order by " & order_key & " desc" '190
Else '191
If AspToAspX_CheckDBNull ( layer_2 ) = EmptyString.Value Then '192
strsql = "select id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo,xsjf,xsreid from " & ft & "bbstitle where " & strqs & " deleted=0 and (boardid_1='" & layer_1 & "' or bbstop1=1)" & search_str & " " & jhortj & " order by " & order_key & " desc" '193
Else '194
strsql = "select id,Boardid_1,Boardid_2,user_id,name,title,hit,rep,dateh,redate,bbs_img,bbs_img_display,huati,img_url_display,P_display,picture,sign,zhiye,htmfilename,bbstop,bbstop1,flag,titlecolor,boardsign,reinfo,xsjf,xsreid from " & ft & "bbstitle where " & strqs & " deleted=0 and ((boardid_1='" & layer_1 & "' and boardid_2='" & layer_2 & "') or bbstop1=1) " & jhortj & " order by " & order_key & " desc" '195
End If '196
End If '197
cus = New ADODB.Recordset ( ) '198
cus.Open ( strsql , conn , 1 , 1 ) '199
wzpage = AspToAspX_CInt ( ( Request.QueryString ( "page" ) ) ) '200
If AspToAspX_Len ( wzpage ) = 0 Or AspToAspX_CheckDBNull ( wzpage ) = 0 Then
wzpage = 1
End If
'201
If Not cus.EOF Then '202
cus.PageSize = wzrep '203
cus.AbsolutePage = wzpage '204
wzpagecount = cus.PageCount '205
wzcount = cus.RecordCount '206
Else '207
wzpagecount = 0 '208
wzcount = 0 '209
End If '210
Response.Write ( vbCrLf )
Response.Write ( "<HTML><HEAD>" & Chr ( 13 ) ) '212
Response.Write ( "<META http-equiv=Content-Type content=text/html;charset=utf-8>" & Chr ( 13 ) ) '213
Response.Write ( "<title>" ) '214
Response.Write ( Application ( "FTBBSMB" ) ( 11 , 0 ) ) '214
Response.Write ( "</title>" & Chr ( 13 ) ) '214
If AspToAspX_CheckDBNull ( num ) > 0 And AspToAspX_CheckDBNull ( ftbbs_name ) < > EmptyString.Value Then '215
Response.Write ( vbCrLf )
Response.Write ( "<script src=""smsad.js""></script>" & Chr ( 13 ) ) '216
End If '217
Response.Write ( vbCrLf )
Response.Write ( "<script language=javascript src=""inc/cookies.js""></script>" & Chr ( 13 ) ) '218
Response.Write ( "<script>" & Chr ( 13 ) ) '219
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '220
Response.Write ( "var style;" & Chr ( 13 ) ) '221
Response.Write ( "var strstyle;" & Chr ( 13 ) ) '222
Response.Write ( "if(stylecook=="""")" & Chr ( 13 ) ) '223
Response.Write ( "{" & Chr ( 13 ) ) '224
Response.Write ( " stylecook=1;" & Chr ( 13 ) ) '225
Response.Write ( "}" & Chr ( 13 ) ) '226
Response.Write ( "else" & Chr ( 13 ) ) '227
Response.Write ( "{" & Chr ( 13 ) ) '228
Response.Write ( " stylecook++;" & Chr ( 13 ) ) '229
Response.Write ( "}" & Chr ( 13 ) ) '230
Response.Write ( "style=""main0""+stylecook+"".css"";" & Chr ( 13 ) ) '231
Response.Write ( "strstyle=""<link href=\""css/""+style+""\"" rel=\""stylesheet\"" type=\""text/css\""> "";" & Chr ( 13 ) ) '232
Response.Write ( "document.write(strstyle);" & Chr ( 13 ) ) '233
Response.Write ( "</script>" & Chr ( 13 ) ) '234
Response.Write ( "</HEAD>" & Chr ( 13 ) ) '235
Response.Write ( "<SCRIPT LANGUAGE=""VBScript""> " & Chr ( 13 ) ) '236
Response.Write ( "<!--" & Chr ( 13 ) ) '237
Response.Write ( "Sub order_key_OnChange" & Chr ( 13 ) ) '238
Response.Write ( "" & Chr ( 9 ) & "if document.jump.order_key.value <> """" then" & Chr ( 13 ) ) '239
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "document.jump.action = ""main.aspx?layer_1=" ) '240
Response.Write ( layer_1 ) '240
Response.Write ( "&layer_2=" ) '240
Response.Write ( layer_2 ) '240
Response.Write ( "&order_key=""&document.jump.order_key.value&""&Searchkind=" ) '240
Response.Write ( Searchkind ) '240
Response.Write ( "&Searchcontent=" ) '240
Response.Write ( Searchcontent ) '240
Response.Write ( """" & Chr ( 13 ) ) '240
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "jump.submit" & Chr ( 13 ) ) '241
Response.Write ( "" & Chr ( 9 ) & "end if" & Chr ( 13 ) ) '242
Response.Write ( "End Sub" & Chr ( 13 ) ) '243
Response.Write ( "-->" & Chr ( 13 ) ) '244
Response.Write ( "</SCRIPT>" & Chr ( 13 ) ) '245
Response.Write ( "<script>" & Chr ( 13 ) ) '246
Response.Write ( "function changeCssStyle()" & Chr ( 13 ) ) '247
Response.Write ( "{" & Chr ( 13 ) ) '248
Response.Write ( "" & Chr ( 9 ) & "var sCssType = document.all.select3.value;" & Chr ( 13 ) ) '249
Response.Write ( "" & Chr ( 9 ) & "setCookie(""STYLESHOW"", sCssType);" & Chr ( 13 ) ) '250
Response.Write ( "" & Chr ( 9 ) & "//window.navigate(""default.aspx"");" & Chr ( 13 ) ) '251
Response.Write ( " window.location.href='main.aspx';" & Chr ( 13 ) ) '252
Response.Write ( " parent.left.document.location.reload();" & Chr ( 13 ) ) '253
Response.Write ( "}" & Chr ( 13 ) ) '254
Response.Write ( "</script>" & Chr ( 13 ) ) '255
Response.Write ( "</head>" & Chr ( 13 ) ) '256
Response.Write ( "<body>" & Chr ( 13 ) ) '257
Response.Write ( "<script>" & Chr ( 13 ) ) '258
Response.Write ( "var stylecook = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '259
Response.Write ( "var style;" & Chr ( 13 ) ) '260
Response.Write ( "var tmpstylecook;" & Chr ( 13 ) ) '261
Response.Write ( "function setcookies()" & Chr ( 13 ) ) '262
Response.Write ( "{" & Chr ( 13 ) ) '263
Response.Write ( " tmpstylecook = stylecook;" & Chr ( 13 ) ) '264
Response.Write ( "}" & Chr ( 13 ) ) '265
Response.Write ( "function reloadcook()" & Chr ( 13 ) ) '266
Response.Write ( "{" & Chr ( 13 ) ) '267
Response.Write ( " var scooks = getCookie(""STYLESHOW"");" & Chr ( 13 ) ) '268
Response.Write ( " if(scooks != tmpstylecook)" & Chr ( 13 ) ) '269
Response.Write ( " {" & Chr ( 13 ) ) '270
Response.Write ( " " & Chr ( 9 ) & "window.location.reload();" & Chr ( 13 ) ) '271
Response.Write ( " }" & Chr ( 13 ) ) '272
Response.Write ( "}" & Chr ( 13 ) ) '273
Response.Write ( "setcookies();" & Chr ( 13 ) ) '274
Response.Write ( "setInterval('reloadcook()',1000);" & Chr ( 13 ) ) '275
Response.Write ( "</script>" & Chr ( 13 ) ) '276
If AspToAspX_CheckDBNull ( getcookie ( "ftbbstype" ) ) = 1 Then '278
Response.Write ( headhtml ) '279
End If '280
Response.Write ( vbCrLf )
Response.Write ( "<table width=""99%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & Chr ( 13 ) ) '282
Response.Write ( " <tr>" & Chr ( 13 ) ) '283
Response.Write ( " <td> " & Chr ( 13 ) ) '284
Response.Write ( " <table width=""100%"" border=0 cellpadding=2 cellspacing=1 class=""maintbbg"">" & Chr ( 13 ) ) '285
Response.Write ( " <tbody>" & Chr ( 13 ) ) '286
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -