📄 blogcenter_add.aspx.vb
字号:
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " </div>" & Chr ( 13 ) ) '371
Response.Write ( "<script language=""JavaScript"">" & Chr ( 13 ) ) '372
Response.Write ( "function setHeart()" & Chr ( 13 ) ) '373
Response.Write ( "{" & Chr ( 13 ) ) '374
Response.Write ( "if(document.getElementById(""postheart"").value == ""selfHeart"")" & Chr ( 13 ) ) '375
Response.Write ( "{" & Chr ( 13 ) ) '376
Response.Write ( "document.getElementById(""myheart"").style.display = """";" & Chr ( 13 ) ) '377
Response.Write ( "document.getElementById(""myheart"").style.color = ""#c0c0c0"";" & Chr ( 13 ) ) '378
Response.Write ( "document.getElementById(""myheart"").value = ""请输入自填心情"";" & Chr ( 13 ) ) '379
Response.Write ( "}" & Chr ( 13 ) ) '380
Response.Write ( "else" & Chr ( 13 ) ) '381
Response.Write ( "{" & Chr ( 13 ) ) '382
Response.Write ( "document.getElementById(""myheart"").style.display = ""none"";" & Chr ( 13 ) ) '383
Response.Write ( "document.getElementById(""myheart"").value = document.getElementById(""postheart"").value;" & Chr ( 13 ) ) '384
Response.Write ( "}" & Chr ( 13 ) ) '385
Response.Write ( "}" & Chr ( 13 ) ) '386
Response.Write ( "function isNum(theNum)" & Chr ( 13 ) ) '387
Response.Write ( "{" & Chr ( 13 ) ) '388
Response.Write ( "if (theNum =="""")" & Chr ( 13 ) ) '389
Response.Write ( "return false;" & Chr ( 13 ) ) '390
Response.Write ( "for(var i=0;i<theNum.length;i++){" & Chr ( 13 ) ) '391
Response.Write ( "oneNum=theNum.substring(i,i+1);" & Chr ( 13 ) ) '392
Response.Write ( "if (oneNum<""0"" || oneNum>""9"")" & Chr ( 13 ) ) '393
Response.Write ( "return false;" & Chr ( 13 ) ) '394
Response.Write ( "}" & Chr ( 13 ) ) '395
Response.Write ( "return true;" & Chr ( 13 ) ) '396
Response.Write ( "}" & Chr ( 13 ) ) '397
Response.Write ( "</script>" & Chr ( 13 ) ) '398
Response.Write ( " </td>" & Chr ( 13 ) ) '399
Response.Write ( " </tr>" & Chr ( 13 ) ) '400
Response.Write ( " <tr> " & Chr ( 13 ) ) '401
Response.Write ( " <td height=""28""> " & Chr ( 13 ) ) '402
Response.Write ( " <div align=""center"">时间：</div></td>" & Chr ( 13 ) ) '403
Response.Write ( " <td> " & Chr ( 13 ) ) '404
Response.Write ( " <input name=""writedate"" type=""text"" id=""writedate"" value=""" ) '405
Response.Write ( DateAndTime.Now ) '405
Response.Write ( """ size=""26"" readonly></td>" & Chr ( 13 ) ) '405
Response.Write ( " </tr>" & Chr ( 13 ) ) '406
Response.Write ( " <tr> " & Chr ( 13 ) ) '407
Response.Write ( " <td height=300></td>" & Chr ( 13 ) ) '408
Response.Write ( " <td>" & Chr ( 13 ) ) '409
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""remenu"" style=""position:absolute;left:0;visibility:hidden;""></textarea>" & Chr ( 13 ) ) '410
Response.Write ( "<script type=""text/javascript"" src=""fteditor/blogeditor.js""></script> " & Chr ( 13 ) ) '411
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '412
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '413
Response.Write ( "editor.hiddenName = ""remenu"";" & Chr ( 13 ) ) '414
Response.Write ( "//editor.editorType = ""simple"";" & Chr ( 13 ) ) '415
Response.Write ( "editor.editorWidth = ""100%"";" & Chr ( 13 ) ) '416
Response.Write ( "editor.editorHeight = ""250px"";" & Chr ( 13 ) ) '417
Response.Write ( "editor.show();" & Chr ( 13 ) ) '418
Response.Write ( "</script>" & Chr ( 13 ) ) '419
Response.Write ( " </td>" & Chr ( 13 ) ) '420
Response.Write ( " </tr>" & Chr ( 13 ) ) '421
Response.Write ( " <tr> " & Chr ( 13 ) ) '422
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '423
Response.Write ( " <div align=""center"">标签：</div></td>" & Chr ( 13 ) ) '424
Response.Write ( " <td> " & Chr ( 13 ) ) '425
Response.Write ( " <input name=""blogtag"" type=""text"" id=""blogtag"" value="""" size=""28"">" & Chr ( 13 ) ) '426
Response.Write ( " 多个标签用"|"线分开.</td>" & Chr ( 13 ) ) '427
Response.Write ( " </tr>" & Chr ( 13 ) ) '428
Response.Write ( " <tr> " & Chr ( 13 ) ) '429
Response.Write ( " <td height=""30""> " & Chr ( 13 ) ) '430
Response.Write ( " <div align=""center"">评论：</div></td>" & Chr ( 13 ) ) '431
Response.Write ( " <td> " & Chr ( 13 ) ) '432
Response.Write ( " <input name=""plqs"" type=""radio"" value=""0"" checked>" & Chr ( 13 ) ) '433
Response.Write ( " 允许 " & Chr ( 13 ) ) '434
Response.Write ( " <input type=""radio"" name=""plqs"" value=""1"">" & Chr ( 13 ) ) '435
Response.Write ( " 禁止</td>" & Chr ( 13 ) ) '436
Response.Write ( " </tr>" & Chr ( 13 ) ) '437
Response.Write ( " <tr> " & Chr ( 13 ) ) '438
Response.Write ( " <td height=""28"" colspan=""2""> " & Chr ( 13 ) ) '439
Response.Write ( " <div align=""left""><font color=""#FF0000""> 日志内容是否同时加入论坛？</font> " & Chr ( 13 ) ) '440
Response.Write ( " <select name=""bbstag"" id=""bbstag"" Onchange=""addbbs();"">" & Chr ( 13 ) ) '441
Response.Write ( " <option value=""1"">是</option>" & Chr ( 13 ) ) '442
Response.Write ( " <option value=""0"" selected>否</option>" & Chr ( 13 ) ) '443
Response.Write ( " </select>" & Chr ( 13 ) ) '444
Response.Write ( " 主论坛： " & Chr ( 13 ) ) '445
Response.Write ( "<script language=""javascript"">" & Chr ( 13 ) ) '446
Response.Write ( "<!--" & Chr ( 13 ) ) '447
Response.Write ( "var onecount;" & Chr ( 13 ) ) '448
Response.Write ( "onecount=0;" & Chr ( 13 ) ) '449
Response.Write ( "var j;" & Chr ( 13 ) ) '450
Response.Write ( " " & Chr ( 13 ) ) '451
Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '452
strsql = "select BBS_Cate_ID,BBS_Cate_PID,BBS_Cate_Name,Initial from " & ft & "BBS_Cate where BBS_Cate_PID<>'0' and deleted=0 order by totop asc" '454
rsr_BBS_Cate = New ADODB.Recordset ( ) '455
rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '456
j = 0 '457
Do While Not rsr_BBS_Cate.EOF '458
Response.Write ( vbCrLf )
Response.Write ( "subcat[" ) '460
Response.Write ( j ) '460
Response.Write ( "] = new Array(""" ) '460
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "Initial" ) .Value) & " " & AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '460
Response.Write ( """,""" ) '460
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '460
Response.Write ( """,""" ) '460
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '460
Response.Write ( """);" & Chr ( 13 ) ) '460
j = j + 1 '462
rsr_BBS_Cate.MoveNext ( ) '463
Loop '464
rsr_BBS_Cate.Close ( ) '465
rsr_BBS_Cate = Nothing '466
Response.Write ( vbCrLf )
Response.Write ( "onecount=" ) '468
Response.Write ( j ) '468
Response.Write ( ";" & Chr ( 13 ) ) '468
Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '469
Response.Write ( " {" & Chr ( 13 ) ) '470
Response.Write ( " document.form1.BoardID_2.length = 0; " & Chr ( 13 ) ) '471
Response.Write ( " var locationid=locationid;" & Chr ( 13 ) ) '472
Response.Write ( " var i;" & Chr ( 13 ) ) '473
Response.Write ( " document.form1.BoardID_2.options[0] = new Option('==请选择==','');" & Chr ( 13 ) ) '474
Response.Write ( " for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '475
Response.Write ( " {" & Chr ( 13 ) ) '476
Response.Write ( " if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '477
Response.Write ( " { " & Chr ( 13 ) ) '478
Response.Write ( " document.form1.BoardID_2.options[document.form1.BoardID_2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '479
Response.Write ( " } " & Chr ( 13 ) ) '480
Response.Write ( " }" & Chr ( 13 ) ) '481
Response.Write ( " " & Chr ( 13 ) ) '482
Response.Write ( " }" & Chr ( 13 ) ) '483
Response.Write ( "" & Chr ( 9 ) & " " & Chr ( 13 ) ) '484
Response.Write ( "function addbbs()" & Chr ( 13 ) ) '485
Response.Write ( "{" & Chr ( 13 ) ) '486
Response.Write ( "if(document.getElementById(""bbstag"").value == 0)" & Chr ( 13 ) ) '487
Response.Write ( "{" & Chr ( 13 ) ) '488
Response.Write ( "parent.document.form1.BoardID_1.disabled=true;" & Chr ( 13 ) ) '489
Response.Write ( "parent.document.form1.BoardID_2.disabled=true;" & Chr ( 13 ) ) '490
Response.Write ( "}" & Chr ( 13 ) ) '491
Response.Write ( "else" & Chr ( 13 ) ) '492
Response.Write ( "{" & Chr ( 13 ) ) '493
Response.Write ( "parent.document.form1.BoardID_1.disabled=false;" & Chr ( 13 ) ) '494
Response.Write ( "parent.document.form1.BoardID_2.disabled=false;" & Chr ( 13 ) ) '495
Response.Write ( "}" & Chr ( 13 ) ) '496
Response.Write ( "}" & Chr ( 13 ) ) '497
Response.Write ( "//-->" & Chr ( 13 ) ) '498
Response.Write ( "</script>" & Chr ( 13 ) ) '499
Response.Write ( " <select name=""BoardID_1"" onChange=""changelocation(document.form1.BoardID_1.options[document.form1.BoardID_1.selectedIndex].value)"">" & Chr ( 13 ) ) '500
Response.Write ( " <option value="""">==请选择==</option>" & Chr ( 13 ) ) '501
Response.Write ( " " ) '502
AspToAspX_Str = "select BBS_Cate_ID,BBS_Cate_Name from " & ft & "BBS_CATE Where BBS_Cate_PID='0' and deleted=0 order by BBS_ID asc" '503
rs_BBS_Cate = New ADODB.Recordset ( ) '504
rs_BBS_Cate.Open ( AspToAspX_Str , conn , 1 , 1 ) '505
Do While Not rs_BBS_Cate.EOF '506
Response.Write ( vbCrLf )
Response.Write ( " <option value=""" ) '508
Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '508
Response.Write ( """>" ) '508
Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '508
Response.Write ( "</option>" & Chr ( 13 ) ) '508
Response.Write ( " " ) '509
rs_BBS_Cate.MoveNext ( ) '510
Loop '511
rs_BBS_Cate.Close ( ) '512
rs_BBS_Cate = Nothing '513
Response.Write ( vbCrLf )
Response.Write ( " </select>" & Chr ( 13 ) ) '515
Response.Write ( " 分论坛： " & Chr ( 13 ) ) '516
Response.Write ( " <select name=""BoardID_2"">" & Chr ( 13 ) ) '517
Response.Write ( " <option value="""">==请选择==</option>" & Chr ( 13 ) ) '518
Response.Write ( " </select>" & Chr ( 13 ) ) '519
Response.Write ( " </div></td>" & Chr ( 13 ) ) '520
Response.Write ( " </tr>" & Chr ( 13 ) ) '521
Response.Write ( " " ) '522
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '522
Response.Write ( vbCrLf )
Response.Write ( " <TR class=""maintbtr1""> " & Chr ( 13 ) ) '523
Response.Write ( " <TD width=""16%"" height=""28""> " & Chr ( 13 ) ) '524
Response.Write ( " <div align=""center""> 验证码：</div></TD>" & Chr ( 13 ) ) '525
Response.Write ( " <TD width=""84%""> " & Chr ( 13 ) ) '526
Response.Write ( " <input name=codestr id=codestr type=text size=10 maxlength=4> " & Chr ( 13 ) ) '527
Response.Write ( " " ) '528
Response.Write ( getcode ) '528
Response.Write ( vbCrLf )
Response.Write ( " </TD>" & Chr ( 13 ) ) '529
Response.Write ( " </TR>" & Chr ( 13 ) ) '530
Response.Write ( " " ) '531
End If '531
Response.Write ( vbCrLf )
Response.Write ( " <tr> " & Chr ( 13 ) ) '532
Response.Write ( " <td height=""40""> " & Chr ( 13 ) ) '533
Response.Write ( " <div align=""right""></div></td>" & Chr ( 13 ) ) '534
Response.Write ( " <td>" & Chr ( 13 ) ) '535
Response.Write ( " <input name=""act"" type=""hidden"" id=""act"" value=""y""> <INPUT type=""hidden"" name=""FileName"" value=""" ) '536
Response.Write ( FileName ) '536
Response.Write ( """>" & Chr ( 13 ) ) '536
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & Chr ( 9 ) & " <input type=""submit"" value=""提交"" class=""button"" name=""submit1""> " & Chr ( 13 ) ) '537
Response.Write ( " </td>" & Chr ( 13 ) ) '538
Response.Write ( " </tr>" & Chr ( 13 ) ) '539
Response.Write ( " </form>" & Chr ( 13 ) ) '540
Response.Write ( " </table>" & Chr ( 13 ) ) '541
Response.Write ( " </div>" & Chr ( 13 ) ) '542
Response.Write ( "</td>" & Chr ( 13 ) ) '543
Response.Write ( "</tr></table>" & Chr ( 13 ) ) '544
Response.Write ( "</div>" & Chr ( 13 ) ) '545
Response.Write ( "</div>" & Chr ( 13 ) ) '546
Response.Write ( "<br><center>" & Chr ( 13 ) ) '547
Response.Write ( " " ) '548
ASPX_TAIL.AspToAspX_Page_Init ( )
Response.Write ( " </center>" & Chr ( 13 ) ) '549
Response.Write ( "</center>" & Chr ( 13 ) ) '550
Response.Write ( "</body>" & Chr ( 13 ) ) '551
Response.Write ( "</html>" & Chr ( 13 ) ) '552
closedb ( ) '553
Response.Write ( vbCrLf )
AspToAspX_UnloadIncludeFiles()
Exit Sub
_AspToAspX_Err:
AspToAspX_WriteLog ("blogcenter_add_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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -