|
||||||||||
论坛添加成功！
"&str
end if
set rs=nothing
end sub
sub savedit()
dim newboardid
set rs = server.CreateObject ("adodb.recordset")
if request("newboardid")=request("editid") then
newboardid=request("newboardid")
else
sql="select boardid from board where boardid="+cstr(request("newboardid"))
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
response.write "您不能指定和别的论坛一样的序号。"
exit sub
else
newboardid=request("newboardid")
end if
rs.close
end if
sql = "select * from board where boardid="+Cstr(request("editid"))
rs.Open sql,conn,1,3
rs("boardid") = Request.Form ("newboardid")
rs("boardtype") = Request.Form ("boardtype")
rs("class") = Request.Form ("class")
rs("boardmaster") = Request("boardmaster")
rs("readme") = Request("readme")
rs("lockboard") = Trim(Request("lockboard"))
rs("Tableback") = Request("Tableback")
rs("Tabletitle") = Request("Tabletitle")
rs("Tablebody") = Request("Tablebody")
rs("aTablebody") = Request("aTablebody")
rs("TableFont") = Request("TableFont")
rs("TableContent") = Request("TableContent")
rs("AlertFont") = Request("AlertFont")
rs("Forumlogo") = Request("Logo")
rs("indexIMG")=request.form("indexIMG")
rs("strAllowForumCode") = Request("strAllowForumCode")
rs("strAllowHTML") = Request("strAllowHTML")
rs("strIMGInPosts") = Request("strIMGInPosts")
rs("strIcons") = Request("strIcons")
rs("strflash") = Request("strflash")
rs.Update
rs.Close
set rs=nothing
if request("newboardid")<>request("editid") then
conn.execute("update bbs1 set boardid="&Request.Form ("newboardid")&" where boardid="+Cstr(request("editid")))
end if
call addmaster(Request("boardmaster"))
response.write "
论坛修改成功！
"&str
end sub
sub del()
set rs = server.CreateObject ("adodb.recordset")
sql = "delete from board where boardid="+Cstr(Request("boardid"))
conn.execute(sql)
sql = "delete from bbs1 where boardid="+cstr(Request("boardid"))
conn.execute(sql)
set rs=nothing
response.write "
论坛修改成功！" end sub sub del1() set rs = server.CreateObject ("adodb.recordset") sql = "delete from class where id="+Cstr(Request("id")) conn.execute(sql) sql = "delete from board where class="+Cstr(Request("id")) conn.execute(sql) sql="select boardid from board where class="+Cstr(Request("id")) rs.open sql,conn,1,1 do while not rs.eof sql_1 = "delete from bbs1 where boardid="+cstr(rs("boardid")) conn.execute(sql_1) rs.movenext loop rs.close set rs=nothing response.write "
分类删除成功！"
end sub
sub orders()
%>
| 论坛分类重新排序修改 注意：请在相应论坛分类的排序表单内输入相应的排列序号，注意不能和别的论坛分类有相同的排列序号。 |
| <% set rs = server.CreateObject ("Adodb.recordset") sql="select * from class where id="&cstr(request("id")) rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "没有找到相应的论坛分类。" else response.write "" end if rs.close set rs=nothing %> |
更新成功！
" else sql="select * from class where id="&cstr(request("newid")) rs.open sql,conn,1,1 if not rs.eof and not rs.bof then response.write "您输入的序号和其他分类序号相同，请重新输入。" else sql="update class set id="&request("newid")&",class='"&request("classname")&"' where id="&cstr(request("id")) conn.execute(sql) sql="update board set class="&request("newid")&" where class="&cstr(request("id")) conn.execute(sql) response.write "更新成功！
" end if end if rs.close set rs=nothing end sub sub addclass() set rs = server.CreateObject ("Adodb.recordset") sql="select id from class" rs.open sql,conn,1,1 classnum=rs.recordcount rs.close %>| >添加新的论坛分类 注意：请完整填写以下表单信息，注意不能和别的论坛分类有相同的排列序号。 |
更新成功！
" end if end if set rs=nothing end sub sub delclass() end sub sub addmaster(s) dim arr,i,rs,sql,pw randomize pw=Cint(rnd*9000)+1000 if instr(s,"|")<>0 and instr(s,"|")