📄 fbht.aspx.vb
字号:
Response.Write ( " " & Chr ( 13 ) ) '115
Response.Write ( "subcat = new Array();" & Chr ( 13 ) ) '116
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" '118
rsr_BBS_Cate = New ADODB.Recordset ( ) '119
rsr_BBS_Cate.Open ( strsql , conn , 3 , 1 ) '120
j = 0 '121
Do While Not rsr_BBS_Cate.EOF '122
Response.Write ( vbCrLf )
Response.Write ( "subcat[" ) '124
Response.Write ( j ) '124
Response.Write ( "] = new Array(""" ) '124
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "Initial" ) .Value) & " " & AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '124
Response.Write ( """,""" ) '124
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_PID" ) .Value) ) '124
Response.Write ( """,""" ) '124
Response.Write ( AspToAspX_CheckDBNull(rsr_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '124
Response.Write ( """);" & Chr ( 13 ) ) '124
j = j + 1 '126
rsr_BBS_Cate.MoveNext ( ) '127
Loop '128
rsr_BBS_Cate.Close ( ) '129
rsr_BBS_Cate = Nothing '130
Response.Write ( vbCrLf )
Response.Write ( "onecount=" ) '132
Response.Write ( j ) '132
Response.Write ( ";" & Chr ( 13 ) ) '132
Response.Write ( "function changelocation(locationid)" & Chr ( 13 ) ) '133
Response.Write ( " {" & Chr ( 13 ) ) '134
Response.Write ( " document.myform.BoardID_2.length = 0; " & Chr ( 13 ) ) '135
Response.Write ( " var locationid=locationid;" & Chr ( 13 ) ) '136
Response.Write ( " var i;" & Chr ( 13 ) ) '137
Response.Write ( " document.myform.BoardID_2.options[0] = new Option('==请选择==','');" & Chr ( 13 ) ) '138
Response.Write ( " for (i=0;i < onecount; i++)" & Chr ( 13 ) ) '139
Response.Write ( " {" & Chr ( 13 ) ) '140
Response.Write ( " if (subcat[i][1] == locationid)" & Chr ( 13 ) ) '141
Response.Write ( " { " & Chr ( 13 ) ) '142
Response.Write ( " document.myform.BoardID_2.options[document.myform.BoardID_2.length] = new Option(subcat[i][0], subcat[i][2]);" & Chr ( 13 ) ) '143
Response.Write ( " } " & Chr ( 13 ) ) '144
Response.Write ( " }" & Chr ( 13 ) ) '145
Response.Write ( " " & Chr ( 13 ) ) '146
Response.Write ( " } " & Chr ( 13 ) ) '147
Response.Write ( "//-->" & Chr ( 13 ) ) '148
Response.Write ( "</script>" & Chr ( 13 ) ) '149
Response.Write ( " <TR> " & Chr ( 13 ) ) '150
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">主论坛：</div></TD>" & Chr ( 13 ) ) '151
Response.Write ( " <TD width=""84%"" height=""25"" class=""loopborder1""> <SELECT NAME=""BoardID_1"" onChange=""changelocation(document.myform.BoardID_1.options[document.myform.BoardID_1.selectedIndex].value)"">" & Chr ( 13 ) ) '152
Response.Write ( " <option value="""">==请选择==</option>" & Chr ( 13 ) ) '153
Response.Write ( " " ) '154
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" '155
rs_BBS_Cate = New ADODB.Recordset ( ) '156
rs_BBS_Cate.Open ( AspToAspX_Str , conn , 1 , 1 ) '157
Do While Not rs_BBS_Cate.EOF '158
Response.Write ( vbCrLf )
Response.Write ( " <option value=""" ) '160
Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_ID" ) .Value) ) '160
Response.Write ( """>" ) '160
Response.Write ( AspToAspX_CheckDBNull(rs_BBS_Cate.Fields ( "BBS_Cate_Name" ) .Value) ) '160
Response.Write ( "</option>" & Chr ( 13 ) ) '160
Response.Write ( " " ) '161
rs_BBS_Cate.MoveNext ( ) '162
Loop '163
rs_BBS_Cate.Close ( ) '164
rs_BBS_Cate = Nothing '165
Response.Write ( vbCrLf )
Response.Write ( " </SELECT> </TD>" & Chr ( 13 ) ) '167
Response.Write ( " </TR>" & Chr ( 13 ) ) '168
Response.Write ( " <TR> " & Chr ( 13 ) ) '169
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">分论坛：</div></TD>" & Chr ( 13 ) ) '170
Response.Write ( " <TD width=""84%"" height=""25"" class=""loopborder1""> <SELECT NAME=""BoardID_2"">" & Chr ( 13 ) ) '171
Response.Write ( " <option value="""">==请选择==</option>" & Chr ( 13 ) ) '172
Response.Write ( " </SELECT> </TD>" & Chr ( 13 ) ) '173
Response.Write ( " </TR>" & Chr ( 13 ) ) '174
Response.Write ( " " ) '175
Else '175
Response.Write ( vbCrLf )
Response.Write ( " <TR class=""maintbtr1""> " & Chr ( 13 ) ) '176
Response.Write ( " <TD width=""16%""> <div align=""right""></div></TD>" & Chr ( 13 ) ) '177
Response.Write ( " <TD width=""84%""> <INPUT TYPE=""hidden"" name=""BoardID_1"" value=""" ) '178
Response.Write ( BoardID_1 ) '178
Response.Write ( """> " & Chr ( 13 ) ) '178
Response.Write ( " <INPUT TYPE=""hidden"" name=""BoardID_2"" value=""" ) '179
Response.Write ( BoardID_2 ) '179
Response.Write ( """> </TD>" & Chr ( 13 ) ) '179
Response.Write ( " </TR>" & Chr ( 13 ) ) '180
Response.Write ( " " ) '181
End If '181
Response.Write ( vbCrLf )
Response.Write ( " <TR> " & Chr ( 13 ) ) '182
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">贴子标题：</div></TD>" & Chr ( 13 ) ) '183
Response.Write ( " <TD width=""84%"" height=""25"" class=""loopborder1""> <select name=""zhiye"" id=""zhiye"" style=""width:60px"" onChange=""changetitle(document.myform.zhiye.options[document.myform.zhiye.selectedIndex].text)"">" & Chr ( 13 ) ) '184
Response.Write ( " <option value=""1"" selected>[原创]</option>" & Chr ( 13 ) ) '185
Response.Write ( " <option value=""2"">[转载]</option>" & Chr ( 13 ) ) '186
Response.Write ( " <option value=""3"">[灌水]</option>" & Chr ( 13 ) ) '187
Response.Write ( " <option value=""4"">[讨论]</option>" & Chr ( 13 ) ) '188
Response.Write ( " <option value=""5"">[求助]</option>" & Chr ( 13 ) ) '189
Response.Write ( " <option value=""6"">[推荐]</option>" & Chr ( 13 ) ) '190
Response.Write ( " <option value=""7"">[公告]</option>" & Chr ( 13 ) ) '191
Response.Write ( " <option value=""8"">[贴图]</option>" & Chr ( 13 ) ) '192
Response.Write ( " <option value=""9"">[建议]</option>" & Chr ( 13 ) ) '193
Response.Write ( " <option value=""10"">[下载]</option>" & Chr ( 13 ) ) '194
Response.Write ( " </select> <input type=""text"" name=""title"" size=""50"" id=""title""> " & Chr ( 13 ) ) '195
Response.Write ( " " ) '196
If AspToAspX_CheckDBNull ( getcookie ( "bz" ) ) = 1 Or AspToAspX_CheckDBNull ( getcookie ( "bbsadmin" ) ) = 1 Then '196
Response.Write ( vbCrLf )
Response.Write ( " <SELECT name=""titlecolor"">" & Chr ( 13 ) ) '197
Response.Write ( " <option style=""background-color:#ffffff;color: #000000"" value="""" selected>标题颜色</option>" & Chr ( 13 ) ) '198
Response.Write ( " <option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">#FF0000</option>" & Chr ( 13 ) ) '199
Response.Write ( " <option style=""background-color:#BC8F8F;color: #BC8F8F"" value=""#BC8F8F"">#BC8F8F</option>" & Chr ( 13 ) ) '200
Response.Write ( " <option style=""background-color:#4169E1;color: #4169E1"" value=""#4169E1"">#4169E1</option>" & Chr ( 13 ) ) '201
Response.Write ( " <option style=""background-color:#8B4513;color: #8B4513"" value=""#8B4513"">#8B4513</option>" & Chr ( 13 ) ) '202
Response.Write ( " <option style=""background-color:#FA8072;color: #FA8072"" value=""#FA8072"">#FA8072</option>" & Chr ( 13 ) ) '203
Response.Write ( " <option style=""background-color:#F4A460;color: #F4A460"" value=""#F4A460"">#F4A460</option>" & Chr ( 13 ) ) '204
Response.Write ( " <option style=""background-color:#2E8B57;color: #2E8B57"" value=""#2E8B57"">#2E8B57</option>" & Chr ( 13 ) ) '205
Response.Write ( " <option style=""background-color:#A0522D;color: #A0522D"" value=""#A0522D"">#A0522D</option>" & Chr ( 13 ) ) '206
Response.Write ( " <option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">#C0C0C0</option>" & Chr ( 13 ) ) '207
Response.Write ( " <option style=""background-color:#87CEEB;color: #87CEEB"" value=""#87CEEB"">#87CEEB</option>" & Chr ( 13 ) ) '208
Response.Write ( " <option style=""background-color:#6A5ACD;color: #6A5ACD"" value=""#6A5ACD"">#6A5ACD</option>" & Chr ( 13 ) ) '209
Response.Write ( " <option style=""background-color:#708090;color: #708090"" value=""#708090"">#708090</option>" & Chr ( 13 ) ) '210
Response.Write ( " <option style=""background-color:#4682B4;color: #4682B4"" value=""#4682B4"">#4682B4</option>" & Chr ( 13 ) ) '211
Response.Write ( " <option style=""background-color:#D2B48C;color: #D2B48C"" value=""#D2B48C"">#D2B48C</option>" & Chr ( 13 ) ) '212
Response.Write ( " <option style=""background-color:#008080;color: #008080"" value=""#008080"">#008080</option>" & Chr ( 13 ) ) '213
Response.Write ( " <option style=""background-color:#D8BFD8;color: #D8BFD8"" value=""#D8BFD8"">#D8BFD8</option>" & Chr ( 13 ) ) '214
Response.Write ( " <option style=""background-color:#FF6347;color: #FF6347"" value=""#FF6347"">#FF6347</option>" & Chr ( 13 ) ) '215
Response.Write ( " <option style=""background-color:#40E0D0;color: #40E0D0"" value=""#40E0D0"">#40E0D0</option>" & Chr ( 13 ) ) '216
Response.Write ( " <option style=""background-color:#EE82EE;color: #EE82EE"" value=""#EE82EE"">#EE82EE</option>" & Chr ( 13 ) ) '217
Response.Write ( " <option style=""background-color:#F5DEB3;color: #F5DEB3"" value=""#F5DEB3"">#F5DEB3</option>" & Chr ( 13 ) ) '218
Response.Write ( " <option style=""background-color:#435454;color: #435454"" value=""#435454"">#435454</option>" & Chr ( 13 ) ) '219
Response.Write ( " <option style=""background-color:#9ACD32;color: #9ACD32"" value=""#9ACD32"">#9ACD32</option>" & Chr ( 13 ) ) '220
Response.Write ( " </SELECT> " & Chr ( 13 ) ) '221
Response.Write ( " " ) '222
End If '222
Response.Write ( vbCrLf )
Response.Write ( " </TD>" & Chr ( 13 ) ) '223
Response.Write ( " </TR>" & Chr ( 13 ) ) '224
Response.Write ( "" & Chr ( 9 ) & "" ) '225
If AspToAspX_CheckDBNull ( fd ) = "5" Then '225
Response.Write ( vbCrLf )
Response.Write ( " <TR> " & Chr ( 13 ) ) '226
Response.Write ( " <TD width=""16%"" height=""28"" align=""right"" valign=""bottom"" class=""loopborder1""> " & Chr ( 13 ) ) '227
Response.Write ( " 悬赏设置：</TD>" & Chr ( 13 ) ) '228
Response.Write ( " <TD width=""84%"" height=""25"" class=""loopborder1"" align=""left"">奖励金额" & Chr ( 13 ) ) '229
Response.Write ( " <input name=""xsjf"" type=""text"" id=""xsjf"" onkeyup=""value=value.replace(/[^\d]/g,'');"" value=""0"" size=""3"">" & Chr ( 13 ) ) '230
Response.Write ( " 积分 ,有效天数 " & Chr ( 13 ) ) '231
Response.Write ( " <input name=""xsdaynum"" type=""text"" id=""xsdaynum"" onkeyup=""value=value.replace(/[^\d]/g,'');"" value=""3"" size=""3"">" & Chr ( 13 ) ) '232
Response.Write ( " 天(所填必须为整数)</TD>" & Chr ( 13 ) ) '233
Response.Write ( " </TR>" & Chr ( 13 ) ) '234
Response.Write ( "" & Chr ( 9 ) & "" ) '235
End If '235
Response.Write ( vbCrLf )
Response.Write ( " <TR class=""maintbtr3""> " & Chr ( 13 ) ) '236
Response.Write ( " <TD class=""loopborder1""> <div align=""right"">贴子内容：</div></TD>" & Chr ( 13 ) ) '237
Response.Write ( " <TD height=300>" & Chr ( 13 ) ) '238
Response.Write ( "<TEXTAREA type=""hidden"" rows=1 cols=1 name=""menu"" style=""position:absolute;left:0;visibility:hidden;""></textarea>" & Chr ( 13 ) ) '239
Response.Write ( "<script type=""text/javascript"" src=""fteditor/editor.js""></script> " & Chr ( 13 ) ) '240
Response.Write ( "<script type=""text/javascript"">" & Chr ( 13 ) ) '241
Response.Write ( "var editor = new FtEditor(""editor"");" & Chr ( 13 ) ) '242
Response.Write ( "editor.hiddenName = ""menu"";" & Chr ( 13 ) ) '243
Response.Write ( "editor.editorWidth = ""100%"";" & Chr ( 13 ) ) '244
Response.Write ( "editor.editorHeight = ""300px"";" & Chr ( 13 ) ) '245
Response.Write ( "editor.show();" & Chr ( 13 ) ) '246
Response.Write ( "</script>" & Chr ( 13 ) ) '247
Response.Write ( " </TD>" & Chr ( 13 ) ) '248
Response.Write ( " </TR>" & Chr ( 13 ) ) '249
Response.Write ( " <TR> " & Chr ( 13 ) ) '250
Response.Write ( " <TD width=""16%"" class=""loopborder1""> <div align=""right"">上传附件：</div></TD>" & Chr ( 13 ) ) '251
Response.Write ( " <TD width=""84%"" height=""28"" class=""loopborder1""> <IFRAME name=mqs marginWidth=0 marginHeight=0 src=FtbbsUpFile.aspx?filename=" ) '252
Response.Write ( filename ) '252
Response.Write ( " frameBorder=0 width=100% scrolling=no height=25></IFRAME> " & Chr ( 13 ) ) '252
Response.Write ( " </TD>" & Chr ( 13 ) ) '253
Response.Write ( " </TR>" & Chr ( 13 ) ) '254
Response.Write ( " <TR> " & Chr ( 13 ) ) '255
Response.Write ( " <TD width=""16%"" class=""loopborder1""> <div align=""right"">发布状态：</div></TD>" & Chr ( 13 ) ) '256
Response.Write ( " <TD width=""84%"" class=""loopborder1"" height=""30"">" & Chr ( 13 ) ) '257
Response.Write ( "" & Chr ( 9 ) & " <input type=radio name=ticon value=0.gif> <img src=images/0.gif width=19 height=19 > " & Chr ( 13 ) ) '258
Response.Write ( " <input type=radio name=ticon value=29.gif> <img src=images/29.gif width=19 height=19> " & Chr ( 13 ) ) '259
Response.Write ( " <input type=radio name=ticon value=30.gif> <img src=images/30.gif width=19 height=19> " & Chr ( 13 ) ) '260
Response.Write ( " <input type=radio name=ticon value=31.gif> <img src=images/31.gif width=19 height=19>" & Chr ( 13 ) ) '261
Response.Write ( " <input type=radio name=ticon value=34.gif> <img src=images/34.gif width=19 height=19> " & Chr ( 13 ) ) '262
Response.Write ( " <input type=radio name=ticon value=36.gif> <img src=images/36.gif width=19 height=19> " & Chr ( 13 ) ) '263
Response.Write ( " <input type=radio name=ticon value=37.gif> <img src=images/37.gif width=19 height=19> " & Chr ( 13 ) ) '264
Response.Write ( " <input type=radio name=ticon value=38.gif> <img src=images/38.gif width=19 height=19> " & Chr ( 13 ) ) '265
Response.Write ( " <input type=radio name=ticon value=39.gif> <img src=images/39.gif width=19 height=19> " & Chr ( 13 ) ) '266
Response.Write ( " <input type=radio name=ticon value=40.gif> <img src=images/40.gif width=19 height=19> " & Chr ( 13 ) ) '267
Response.Write ( " <input type=radio name=ticon value=41.gif> <img src=images/41.gif width=19 height=19> " & Chr ( 13 ) ) '268
Response.Write ( " <input type=radio name=ticon value=42.gif> <img src=images/42.gif width=19 height=19> " & Chr ( 13 ) ) '269
Response.Write ( " <input type=radio name=ticon value=43.gif> <img src=images/43.gif width=19 height=19> " & Chr ( 13 ) ) '270
Response.Write ( " </TD>" & Chr ( 13 ) ) '271
Response.Write ( " </TR>" & Chr ( 13 ) ) '272
Response.Write ( " " ) '273
If AspToAspX_CheckDBNull ( fd ) < > "Y" And AspToAspX_CheckDBNull ( fd ) < > "5" Then '273
Response.Write ( vbCrLf )
Response.Write ( " <TR> " & Chr ( 13 ) ) '274
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">其他选项：</div></TD>" & Chr ( 13 ) ) '275
Response.Write ( " <TD width=""84%"" class=""loopborder1""> <select name=""flag"" id=""flag"">" & Chr ( 13 ) ) '276
Response.Write ( " <option value=""0"" selected>普通贴</option>" & Chr ( 13 ) ) '277
Response.Write ( " <option value=""3"">注册用户可查看</option>" & Chr ( 13 ) ) '278
Response.Write ( " <option value=""4"">回贴后可以查看</option>" & Chr ( 13 ) ) '279
Response.Write ( " </select> </TD>" & Chr ( 13 ) ) '280
Response.Write ( " </TR>" & Chr ( 13 ) ) '281
Response.Write ( " " ) '282
End If '282
Response.Write ( vbCrLf )
Response.Write ( " <TR> " & Chr ( 13 ) ) '283
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right""><font color=""#FF0000"">是否加入博客：</font></div></TD>" & Chr ( 13 ) ) '284
Response.Write ( " <TD width=""84%"" class=""loopborder1""><input type=""radio"" name=""addblog"" value=""Y"">" & Chr ( 13 ) ) '285
Response.Write ( " 是 (内容加入到个人博客) " & Chr ( 13 ) ) '286
Response.Write ( " <input name=""addblog"" type=""radio"" value=""N"" checked>" & Chr ( 13 ) ) '287
Response.Write ( " 否 (内容不加入个人博客)</TD>" & Chr ( 13 ) ) '288
Response.Write ( " </TR>" & Chr ( 13 ) ) '289
Response.Write ( " " ) '290
If AspToAspX_CheckDBNull ( getcodeoff ) = 1 Then '290
Response.Write ( vbCrLf )
Response.Write ( " <TR> " & Chr ( 13 ) ) '291
Response.Write ( " <TD width=""16%"" height=""25"" class=""loopborder1""> <div align=""right"">验 证 码：</div></TD>" & Chr ( 13 ) ) '292
Response.Write ( " <TD width=""84%"" class=""loopborder1""><input name=codestr id=codestr type=text size=10 maxlength=4> " & Chr ( 13 ) ) '293
Response.Write ( " " ) '294
Response.Write ( getcode ) '294
Response.Write ( vbCrLf )
Response.Write ( " </TD>" & Chr ( 13 ) ) '295
Response.Write ( " </TR>" & Chr ( 13 ) ) '296
Response.Write ( " " ) '297
End If '297
Response.Write ( vbCrLf )
Response.Write ( " <TR class=""maintbtr3""> " & Chr ( 13 ) ) '298
Response.Write ( " <TD height=""35"" colspan=2 align=center>" & Chr ( 13 ) ) '299
Response.Write ( "" & Chr ( 9 ) & " <input name=""bbs_img_display"" type=""hidden"" id=""bbs_img_display""> " & Chr ( 13 ) ) '300
Response.Write ( " <input name=""bbs_img"" type=""hidden"" id=""bbs_img"">" & Chr ( 13 ) ) '301
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""sale"" type=""hidden"" id=""sale"">" & Chr ( 13 ) ) '302
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<input name=""CurrentMode"" type=""hidden"" id=""CurrentMode"">" & Chr ( 13 ) ) '303
Response.Write ( "" & Chr ( 9 ) & Chr ( 9 ) & "<INPUT type=""hidden"" name=""FileName"" value=""" ) '304
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -