📄 blogcenter_add.aspx.vb
字号:
rs_arrest.MoveNext ( ) '74
Loop '75
rs_arrest.Close ( ) '76
Sql_arrest = "select * from " & ft & "BBS_arrest where kind='Keyword' order by id asc" '78
rs_arrest.Open ( sql_arrest , conn , 1 , 1 ) '79
Do While Not rs_arrest.EOF '80
If ( AspToAspX_CheckDBNull ( InStr ( remenu , AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) ) ) < > 0 Or AspToAspX_CheckDBNull ( InStr ( title , AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) ) ) < > 0 ) Then '81
title = replace ( title , AspToAspX_CheckDBNull(rs_arrest.Fields ( "content" ) .Value) , "*****" ) '82
End If '84
rs_arrest.MoveNext ( ) '85
Loop '86
rs_arrest.Close ( ) '87
rs_arrest = Nothing '88
If AspToAspX_CheckDBNull ( blogtypeid ) = EmptyString.Value Then '89
Response.Write ( "<SCRIPT language=JavaScript>alert('你没有选择日志类型！');history.go(-1);</script>" ) '90
Response.End ( ) '91
End If '92
If AspToAspX_CheckDBNull ( getcookie ( "payuser" ) ) = 3 Then '93
Response.Write ( "<SCRIPT language=JavaScript>alert('你的用户名被管理员封锁,请联系管理员！');history.go(-1);</script>" ) '94
Response.End ( ) '95
End If '96
If AspToAspX_CheckDBNull ( Session ( FTBBS & "LastPostTime" ) ) = EmptyString.Value Then '97
Session ( FTBBS & "LastPostTime" ) = DateAndTime.Now '98
Else '99
If AspToAspX_DateDiff ( "s" , Session ( FTBBS & "LastPostTime" ) , DateAndTime.Now ) < = Application ( "FTBBSMB" ) ( 18 , 0 ) Then '100
Response.Write ( "<SCRIPT language=JavaScript>alert('连续发布时间隔时间不能少于" & Application ( "FTBBSMB" ) ( 18 , 0 ) & "秒！');history.go(-1);</script>" ) '101
Response.End ( ) '102
Else '103
Session ( FTBBS & "LastPostTime" ) = DateAndTime.Now '104
End If '105
End If '106
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '107
codestr = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "codestr" ) ) ) '108
codename = Trim ( AspToAspX_CheckIsNothing ( Request.Form ( "codename" ) ) ) '109
If AspToAspX_CStr ( Session ( "GetCode" & codename ) ) < > AspToAspX_CStr ( codestr ) Then '110
Response.Write ( "<script language='javascript'>alert('验证码错误，请刷新后重新输入！');window.location.href='blogcenter_add.aspx';</script>" ) '111
Response.End ( ) '112
End If '113
End If '114
menu = remenu '119
menu = RegExReplace ( menu , "\b(script)\b" , " $1 " ) '120
menu = RegExReplace ( menu , "\b(iframe)\b" , " $1 " ) '121
myFolder = inFolder '122
AspToAspX_Str = "insert into " & ft & "ftblog(blogtitle,blogcontent,blogtypeid,blogqs,writedate,xinqin,userip,blogtag,userid,plqs,bloghtmfile) values('" & blogtitle & "','" & remenu & "','" & blogtypeid & "','" & blogqs & "','" & writedate & "','" & xinqin & "','" & userip & "','" & blogtag & "','" & userid & "','" & plqs & "','" & bloghtmfile & "')" '124
conn.Execute ( AspToAspX_Str ) '125
AspToAspX_Str = "update " & ft & "ftblog_type set totalnum=totalnum+1 where id=" & blogtypeid & " and userid=" & userid & "" '126
conn.Execute ( AspToAspX_Str ) '127
If AspToAspX_CheckDBNull ( bbstag ) = 1 Then '128
FTBBS_BZ_NAME ( BoardID_1 , ft ) '129
BBS_Cate_Name1 = Application ( "BBS_Cate_Name1" ) '130
FTBBS_BZ_NAME2 ( BoardID_1 , BoardID_2 , ft ) '131
BBS_Cate_Name2 = Application ( "BBS_Cate_Name2" ) '132
BBS_Cate_Manager_Name = Application ( "BBS_Cate_Manager_Name" ) '133
myFolder = inFolder '134
makefolder ( myFolder , fso ) '135
rsql = "update " & ft & "clubuser set jingyuan=jingyuan+" & postget & ",postnum=postnum+1 where tili>0 and clubuser_id=" & clubuser_id_cookie '136
conn.Execute ( rsql ) '137
AspToAspX_Str = "select * from " & ft & "clubuser where clubuser_id=" & clubuser_id_cookie '138
rs = New ADODB.Recordset ( ) '139
rs.Open ( AspToAspX_Str , conn , 3 , 1 ) '140
If Not rs.EOF Then '142
clubuser_id = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_id" ) .Value) '143
jingyuan = AspToAspX_CheckDBNull(rs.Fields ( "jingyuan" ) .Value) '144
tili = AspToAspX_CheckDBNull(rs.Fields ( "tili" ) .Value) '145
clubuser_money = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_money" ) .Value) '146
img = AspToAspX_CheckDBNull(rs.Fields ( "userimg" ) .Value) '147
clubuser_reg_date = formatdatetime ( AspToAspX_CheckDBNull(rs.Fields ( "clubuser_reg_date" ) .Value) , 2 ) '148
If AspToAspX_CheckDBNull ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) < > EmptyString.Value Then '149
signname = ftbbsubbcode ( AspToAspX_CheckDBNull(rs.Fields ( "signname" ) .Value) ) '150
Else '151
signname = "<a href=../moduserinfo.aspx?postuser=" & name_cookie & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '152
End If '153
bz = AspToAspX_CheckDBNull(rs.Fields ( "bbsmanager" ) .Value) '154
procity = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_province" ) .Value) & AspToAspX_CheckDBNull(rs.Fields ( "clubuser_city" ) .Value) '155
clubuser_zip = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_zip" ) .Value) '156
xzstr = "" '157
If AspToAspX_CheckDBNull ( clubuser_zip ) < > EmptyString.Value Then '158
If AspToAspX_CheckDBNull ( InStr ( clubuser_zip , "," ) ) > 0 Then '159
xzarr = AspToAspX_Split ( clubuser_zip , "," ) '160
For i = 0 To Val ( UBound ( xzarr ) ) '161
ar = xzarr ( i ) '162
br = AspToAspX_Split ( ar , "|" ) '163
xzimg = br ( 0 ) '164
xzms = br ( 1 ) '165
xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & "> " '166
Next '167
Else '168
xzarr = AspToAspX_Split ( clubuser_zip , "|" ) '169
xzimg = xzarr ( 0 ) '170
xzms = xzarr ( 1 ) '171
xzstr = xzstr & "<img src=../images/" & xzimg & " width=20 height=35 alt=" & xzms & ">" '172
End If '173
Else '174
xzstr = "" '175
End If '176
Else '177
jingyuan = 0 '178
tili = 100 '179
img = "cache5.gif" '180
signname = "<a href=../moduserinfo.aspx?postuser=" & name_cookie & "><FONT color=#568ac2>个人签名档还未设置，请点击这里进行设置</font></a>" '181
bz = 0 '182
End If '183
touxian = touxianvalue ( jingyuan , ft ) '185
jibie = jibievalue ( jingyuan , ft ) '186
title = blogtitle '187
indate = writedate '188
ip = userip '189
htmfilename = inFolder & "/" & FileName '191
sql = "select * from " & ft & "bbstitle where (id is null)" '192
rsr = New ADODB.Recordset ( ) '193
rsr.Open ( sql , conn , 1 , 3 ) '194
rsr.addnew ( ) '195
rsr.Fields ( "name" ) .Value = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_name" ) .Value) '196
rsr.Fields ( "user_id" ) .Value = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_nickname" ) .Value) '197
rsr.Fields ( "BoardID_1" ) .Value = BoardID_1 '198
rsr.Fields ( "BoardID_2" ) .Value = BoardID_2 '199
rsr.Fields ( "mail" ) .Value = AspToAspX_CheckDBNull(rs.Fields ( "clubuser_email" ) .Value) '200
rsr.Fields ( "title" ) .Value = blogtitle '201
rsr.Fields ( "zhiye" ) .Value = zhiye '202
rsr.Fields ( "menu" ) .Value = remenu '203
rsr.Fields ( "ip" ) .Value = ip '204
rsr.Fields ( "dateh" ) .Value = indate '205
rsr.Fields ( "hit" ) .Value = 0 '206
rsr.Fields ( "rep" ) .Value = 0 '207
rsr.Fields ( "redate" ) .Value = indate '208
rsr.Fields ( "img_url_display" ) .Value = 0 '209
rsr.Fields ( "picture" ) .Value = ticon '210
rsr.Fields ( "htmfilename" ) .Value = htmfilename '211
rsr.Fields ( "titlecolor" ) .Value = titlecolor '212
rsr.Update ( ) '213
rsr.Close ( ) '214
rsr = Nothing '215
sql = "select top 1 id,dateh from " & ft & "bbstitle order by id desc" '217
rsr = New ADODB.Recordset ( ) '218
rsr.Open ( sql , conn , 1 , 3 ) '219
TitleID = AspToAspX_CheckDBNull(rsr.Fields ( "id" ) .Value) '220
rsr.Close ( ) '221
rsr = Nothing '222
strsql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic+1 where BBS_Cate_ID='" & BoardID_1 & "'" '224
conn.Execute ( strsql ) '225
If AspToAspX_CheckDBNull ( BoardID_2 ) < > EmptyString.Value Then '226
strsql = "update " & ft & "BBS_Cate set BBS_Cate_Topic=BBS_Cate_Topic+1 where BBS_Cate_ID='" & BoardID_2 & "'" '227
conn.Execute ( strsql ) '228
End If '229
page = 1 '231
If AspToAspX_CheckDBNull ( Application ( "FTBBSMB" ) ( 8 , 0 ) ) = 1 Then '232
home = "default_list.aspx" '233
mainbbscate = "main.aspx" '234
bbsfbht = "fbht.aspx" '235
bbspoll = "bbspoll.aspx" '236
End If '237
postmb = replace ( replace ( Application ( "FTBBSMB" ) ( 1 , 0 ) , "$PostID$" , TitleID ) , "$pagenav$" , page ) '239
postmb = replace ( postmb , "$page$" , 1 ) '240
postmb = replace ( postmb , "$home$" , home ) '242
postmb = replace ( postmb , "$main$" , mainbbscate ) '243
postmb = replace ( postmb , "$fbht$" , bbsfbht ) '244
postmb = replace ( postmb , "$bbspoll$" , bbspoll ) '245
postmb = replace ( postmb , "$TitleID$" , TitleID ) '247
postmb = replace ( postmb , "$title$" , title ) '248
postmb = replace ( postmb , "$BoardID_1$" , BoardID_1 ) '249
postmb = replace ( postmb , "$BoardID_2$" , BoardID_2 ) '250
postmb = replace ( postmb , "$BBS_Cate_Name1$" , BBS_Cate_Name1 ) '251
postmb = replace ( postmb , "$BBS_Cate_Name2$" , BBS_Cate_Name2 ) '252
postmb = replace ( postmb , "$BBS_Cate_Manager_Name$" , BBS_Cate_Manager_Name ) '253
postmb = replace ( postmb , "$user_id$" , bbsuser_cookie ) '254
postmb = replace ( postmb , "$userid$" , clubuser_id ) '255
postmb = replace ( postmb , "$clubuser_money$" , clubuser_money ) '256
postmb = replace ( postmb , "$touxian$" , touxian ) '257
postmb = replace ( postmb , "$jibie$" , jibie ) '258
postmb = replace ( postmb , "$tili$" , tili ) '259
postmb = replace ( postmb , "$jingyuan$" , jingyuan ) '260
postmb = replace ( postmb , "$procity$" , procity ) '261
postmb = replace ( postmb , "$clubuser_reg_date$" , clubuser_reg_date ) '262
postmb = replace ( postmb , "$clubuser_zip$" , xzstr ) '263
postmb = replace ( postmb , "$name$" , name_cookie ) '264
postmb = replace ( postmb , "$menu$" , menu ) '265
If AspToAspX_CheckDBNull ( BBS_Cate_QS2 ) = EmptyString.Value Then
BBS_Cate_QS2 = 0
End If
'267
postmb = replace ( postmb , "{qs}" , BBS_Cate_QS2 ) '268
postmb = replace ( postmb , "$htmfilename$" , htmfilename ) '269
postmb = replace ( postmb , "$url$" , url ) '270
postmb = replace ( postmb , "$zhiye$" , zhiye ) '271
postmb = replace ( postmb , "$signname$" , signname ) '272
postmb = replace ( postmb , "$img$" , img ) '273
postmb = replace ( postmb , "$date$" , indate ) '274
postmb = replace ( postmb , "$YN$" , YN ) '275
postmb = replace ( postmb , "$img_url$" , "" ) '276
If AspToAspX_CheckDBNull ( fd ) = "Y" Then '278
postmb = replace ( postmb , "$upfile$" , "<SCRIPT src=../bmform.aspx?titleid=" & TitleID & "></SCRIPT>" ) '279
Else '280
postmb = replace ( postmb , "$upfile$" , "" ) '281
End If '282
repostformmb = replace ( replace ( Application ( "FTBBSMB" ) ( 3 , 0 ) , "$PostID$" , TitleID ) , "$pagenav$" , page ) '283
repostformmb = replace ( repostformmb , "<script type=""text/javascript"" src=""../ftbbsdtnl.aspx?titleid=$TitleID$""></script>" , "" ) '284
repostformmb = replace ( repostformmb , "$TitleID$" , TitleID ) '285
repostformmb = replace ( repostformmb , "$title$" , title ) '286
repostformmb = replace ( repostformmb , "$upfiletype$" , upfiletype ) '287
repostformmb = replace ( repostformmb , "$BoardID_1$" , BoardID_1 ) '288
repostformmb = replace ( repostformmb , "$BoardID_2$" , BoardID_2 ) '289
repostformmb = replace ( repostformmb , "$name$" , name_cookie ) '290
repostformmb = replace ( repostformmb , "$htmfilename$" , htmfilename ) '291
repostformmb = replace ( repostformmb , "$filename$" , FileName ) '292
HtmlNLA = postmb & repostformmb '293
mktohtm ( htmfilename , HtmlNLA ) '294
End If '295
AspToAspX_Response_Redirect ( "blogcenter.aspx" ) '296
End If '297
Response.Write ( vbCrLf )
Response.Write ( "<html><head><meta http-equiv=content-type content=""text/html; charset=utf-8"">" & Chr ( 13 ) ) '299
Response.Write ( "</head>" & Chr ( 13 ) ) '300
Response.Write ( "<body onLoad=""addbbs();"">" & Chr ( 13 ) ) '301
Response.Write ( "<center>" & Chr ( 13 ) ) '302
Response.Write ( "<title>" ) '303
Response.Write ( username ) '303
Response.Write ( "的日志管理中心</title>" & Chr ( 13 ) ) '303
Response.Write ( "<link rel=""stylesheet"" type=""text/css"" href=""" ) '304
Response.Write ( cssfile ) '304
Response.Write ( """>" & Chr ( 13 ) ) '304
ASPX_USERNAV.AspToAspX_Page_Init ( )
ASPX_BOKERHEAD.AspToAspX_Page_Init ( )
Response.Write ( "<div class=""stage"">" & Chr ( 13 ) ) '307
Response.Write ( "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" id=""layout"">" & Chr ( 13 ) ) '308
Response.Write ( "<tr>" & Chr ( 13 ) ) '309
Response.Write ( "<td valign=""top"" class=""c2t3"">" & Chr ( 13 ) ) '310
Response.Write ( "<div id=""mod_profile"" class=""mod"" rel=""drag"">" & Chr ( 13 ) ) '311
ASPX_USERCALOG.AspToAspX_Page_Init ( )
Response.Write ( "</div>" & Chr ( 13 ) ) '313
Response.Write ( "</td>" & Chr ( 13 ) ) '314
Response.Write ( "<td valign=""top"" class=""c2t1"">" & Chr ( 13 ) ) '315
Response.Write ( "<div id=""m_blog"" class=""modbox"">" & Chr ( 13 ) ) '316
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '317
Response.Write ( " <tr> " & Chr ( 13 ) ) '318
Response.Write ( " <td height=""50""><div class=""opt""><strong><font color=""#FF0000""> " & Chr ( 13 ) ) '319
Response.Write ( " </font><< 返回</strong>：<a href=""blogcenter.aspx"">日记文集</a></div></td>" & Chr ( 13 ) ) '320
Response.Write ( " </tr>" & Chr ( 13 ) ) '321
Response.Write ( " <tr> " & Chr ( 13 ) ) '322
Response.Write ( " <td height=""1"" colspan=""5"" bgcolor=""#336699"" class=new14><spacer height=""1"" type=""block""></td>" & Chr ( 13 ) ) '323
Response.Write ( " </tr>" & Chr ( 13 ) ) '324
Response.Write ( " <tr> " & Chr ( 13 ) ) '325
Response.Write ( " <td height=""10"" colspan=""5""></td>" & Chr ( 13 ) ) '326
Response.Write ( " </tr>" & Chr ( 13 ) ) '327
Response.Write ( " </table>" & Chr ( 13 ) ) '328
Response.Write ( " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & Chr ( 13 ) ) '329
Response.Write ( " <form name=""form1"" method=""POST"" action="""" onsubmit=""return CheckBlogForm(this)"">" & Chr ( 13 ) ) '330
Response.Write ( " <tr> " & Chr ( 13 ) ) '331
Response.Write ( " <td width=""16%"" height=""27""> " & Chr ( 13 ) ) '332
Response.Write ( " <div align=""center"">标题：</div></td>" & Chr ( 13 ) ) '333
Response.Write ( " <td width=""86%""> " & Chr ( 13 ) ) '334
Response.Write ( " <input name=""blogtitle"" type=""text"" id=""blogtitle"" size=""40"">" & Chr ( 13 ) ) '335
Response.Write ( " 是否公开发表？ " & Chr ( 13 ) ) '336
Response.Write ( " <select name=""blogqs"" id=""blogqs"">" & Chr ( 13 ) ) '337
Response.Write ( " <option value=""0"" selected>是</option>" & Chr ( 13 ) ) '338
Response.Write ( " <option value=""1"">否</option>" & Chr ( 13 ) ) '339
Response.Write ( " </select></td>" & Chr ( 13 ) ) '340
Response.Write ( " </tr>" & Chr ( 13 ) ) '341
Response.Write ( " <tr> " & Chr ( 13 ) ) '342
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '343
Response.Write ( " <div align=""center"">分类：</div></td>" & Chr ( 13 ) ) '344
Response.Write ( " <td><div class=""opt"">" & Chr ( 13 ) ) '345
Response.Write ( " <select name=""blogtypeid"" id=""blogtypeid"">" & Chr ( 13 ) ) '346
Response.Write ( " " ) '347
sql = "select * from " & ft & "ftblog_type where userid=" & userid & " and blogphoto=0 order by id desc" '348
rs = New ADODB.Recordset ( ) '349
rs.Open ( sql , conn , 1 , 3 ) '350
Do While Not rs.EOF '351
Response.Write ( vbCrLf )
Response.Write ( " <option value=""" ) '353
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "id" ) .Value) ) '353
Response.Write ( """ selected>" ) '353
Response.Write ( AspToAspX_CheckDBNull(rs.Fields ( "blogtype" ) .Value) ) '353
Response.Write ( "</option>" & Chr ( 13 ) ) '353
Response.Write ( " " ) '354
rs.MoveNext ( ) '355
Loop '356
rs.Close ( ) '357
Response.Write ( vbCrLf )
Response.Write ( " </select>" & Chr ( 13 ) ) '359
Response.Write ( " <a href=""blog_group.aspx?nav=b"">创建日志分类</a> 心情： " & Chr ( 13 ) ) '360
Response.Write ( " <select name=""select"" id=""postheart"" Onchange=""setHeart();"">" & Chr ( 13 ) ) '361
Response.Write ( " <option value="""">无</option>" & Chr ( 13 ) ) '362
Response.Write ( " <option value=""一般"">一般</option>" & Chr ( 13 ) ) '363
Response.Write ( " <option value=""开心"">开心</option>" & Chr ( 13 ) ) '364
Response.Write ( " <option value=""伤心"">伤心</option>" & Chr ( 13 ) ) '365
Response.Write ( " <option value=""郁闷"">郁闷</option>" & Chr ( 13 ) ) '366
Response.Write ( " <option value=""茫然"">茫然</option>" & Chr ( 13 ) ) '367
Response.Write ( " <option value=""说不清"">说不清</option>" & Chr ( 13 ) ) '368
Response.Write ( " <option value=""selfHeart"">自填心情</option>" & Chr ( 13 ) ) '369
Response.Write ( " </select> <input name=""DiaryHeart"" id=""myheart"" style=""display:none;"" size=""14"" maxlength=""10"">" & Chr ( 13 ) ) '370
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -