admin_board.asp

来自「JSP ACCESS版的论坛源码 深圳盈盈通」· ASP 代码 · 共 768 行 · 第 1/2 页

ASP
768 行
字号
12
<td width="48%"> 
<select name="strAllowForumCode">
<option value="0" <%if rs("strallowForumCode")=0 then%>selected<%end if%>>不使用 
<option value="1" <%if rs("strallowForumCode")=1 then%>selected<%end if%>>使用 
</select>
</td>
</tr>
<tr> 
<td width="52%">HTML标签</td>
<td width="48%"> 
<select name="strAllowHTML">
<option value="0" <%if rs("strallowHTML")=0 then%>selected<%end if%>>不使用 
<option value="1" <%if rs("strallowHTML")=1 then%>selected<%end if%>>使用 
</select>
</td>
</tr>
<tr> 
<td width="52%">贴图标签</td>
<td width="48%"> 
<select name="strIMGInPosts">
<option value="0" <%if rs("strIMGInPosts")=0 then%>selected<%end if%>>不使用 
<option value="1" <%if rs("strIMGInPosts")=1 then%>selected<%end if%>>使用 
</select>
</td>
</tr>
<tr> 
<td width="52%">Flash标签</td>
<td width="48%"> 
<select name="strflash">
<option value="0" <%if rs("strflash")=0 then%>selected<%end if%>>不使用 
<option value="1" <%if rs("strflash")=1 then%>selected<%end if%>>使用 
</select>
</td>
</tr>
<tr> 
<td width="52%">表情标签</td>
<td width="48%"> 
<select name="strIcons">
<option value="0" <%if rs("strIcons")=0 then%>selected<%end if%>>不使用 
<option value="1" <%if rs("strIcons")=1 then%>selected<%end if%>>使用 
</select>
</td>
</tr>
<tr bgcolor=<%=aTableTitleColor%>> 
<td width="52%">&nbsp;</td>
<td width="48%"> 
<input type="submit" name="Submit" value="提交">
</td>
</tr>
</table>
</form>
<%
rs.close
end sub

sub boardinfo()
	    set rs_1 = server.CreateObject ("adodb.recordset")
            set rs_2 = server.CreateObject ("adodb.recordset")
            sql_2 = "select * from class order by id"
            rs_2.Open sql_2,conn,1,1
	    do while not rs_2.Eof
%>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr bgcolor="<%=aTableTitleColor%>">

                <td height="21"><%=rs_2("id")%>,分类名：<b><%=rs_2("class")%></b>    <a href="admin_board.asp?action=add">新增论坛</a> | <a href=admin_board.asp?action=orders&id=<%=rs_2("id")%>>分类排序修改</a> | <a href=admin_board.asp?action=del1&id=<%=rs_2("id")%>>删除分类</a></td>
              </tr>
            </table>
<%
            sql_1 = "select boardid,boardtype,readme from board where class="&rs_2("id")&" order by boardid"
            rs_1.Open sql_1,conn,1,1
            do while not rs_1.EOF 
            %>
            <table width="100%" border="0" cellspacing="3" cellpadding="0">
              <tr> 
                <td height="18"><%=rs_1("boardid")%>,论坛名：<%=rs_1("boardtype")%></td>
              </tr>
              <tr>
                <td height="18">论坛简介：<%=rs_1("readme")%></td>
              </tr>
              <tr>
                <td height="15"><a href="admin_board.asp?action=edit&editid=<%=rs_1("boardid")%>">编辑此论坛</a> | <a href="admin_board.asp?action=del&boardid=<%=rs_1("boardid")%>">删除此论坛</a></td>
              </tr>
            </table>
<hr color=black height=1 width="70%" align=left>
<%
		  rs_1.MoveNext
		  loop
                  rs_1.Close 
        rs_2.MoveNext 
        Loop
        rs_2.Close
%>
          </td>
            </tr>
        </table>      
        </td>
       </tr>
</table>
<%
end sub

sub savenew()
	set rs = server.CreateObject ("adodb.recordset")
	if request("boardtype")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入论坛名称。"
		Founderr=true
	end if
	if request("class")="" then
		Errmsg=Errmsg+"<br>"+"<li>请选择论坛分类。"
		Founderr=true
	end if
	if request("boardmaster")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入版主姓名。"
		Founderr=true
	end if
	if request("readme")="" then
		Errmsg=Errmsg+"<br>"+"<li>请输入论坛说明。"
		Founderr=true
	end if
	if request("lockboard")="" then
		Errmsg=Errmsg+"<br>"+"<li>请选择论坛开放状态。"
		Founderr=true
	end if
	if founderr=true then
	response.write ""&Errmsg&""
	else
		dim boardid
		sql="select boardid from board where boardid="+cstr(request("boardid"))
		rs.open sql,conn,1,1
		if not rs.eof and not rs.bof then
			response.write "您不能指定和别的论坛一样的序号。"
			exit sub
		else
			boardid=request("boardid")
		end if
		rs.close
	sql = "select * from board"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("boardid") = Request("boardid")
	rs("boardtype") = Request.Form ("boardtype")
	rs("class") = Request.Form  ("class")
	rs("boardmaster") = Request("boardmaster")
	rs("readme") = Request("readme")
	rs("lockboard") = 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("lastpostuser") ="未知"
	rs("lastposttime") = now()
	rs("lasttopicnum") = 0 
	rs("lastbbsnum") = 0 
	rs("lasttopicnum") = 0 
	rs.Update 
	rs.Close 
	call addmaster(Request("boardmaster"))
	response.write "<p>论坛添加成功！<br><br>"&str
	end if
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 
	if request("newboardid")<>request("editid") then
	conn.execute("update bbs1 set boardid="&Request.Form ("newboardid")&" where boardid="+Cstr(request("editid")))
	end if
	rs.Close
	call addmaster(Request("boardmaster"))
	response.write "<p>论坛修改成功！<br><br>"&str
	sql="update bbs1 set boardid="&newboardid&" where boardid="+Cstr(request("editid"))
	conn.execute(sql)
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)
	response.write "<p>论坛修改成功！"
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
	response.write "<p>分类删除成功！"
end sub

sub orders()
%><br>
            <table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
              <tr> 
                <td height="22"><b>论坛分类重新排序修改</b><br>
注意：请在相应论坛分类的排序表单内输入相应的排列序号，注意不能和别的论坛分类有相同的排列序号。
		</td>
              </tr>
	      <tr>
		<td>
<%
	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 "<form action=admin_board.asp?action=updateorders method=post>"
		response.write "<input type=text name=classname size=25 value="&rs("class")&">"
		response.write "  <input type=text name=newid size=2 value="&rs("id")&">"
		response.write "<input type=hidden name=id value="&request("id")&">"
		response.write "<input type=submit name=Submit value=修改></form>"
	end if
	rs.close
%>
		</td>
	      </tr>
            </table>
<%
end sub

sub updateorders()
	dim newid
	set rs = server.CreateObject ("Adodb.recordset")
	if request("newid")=request("id") then
		sql="update class set class='"&request("classname")&"' where id="&cstr(request("id"))
		conn.execute(sql)
		response.write "<p align=center>更新成功！</p>"
	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 "<p align=center>更新成功！</p>"
	end if
	end if
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
%>
            <table width="95%" border="0" cellspacing="3" cellpadding="0" align=center>
              <tr> 
                <td height="22" bgcolor=<%=aTableTitleColor%>><b>添加新的论坛分类</b><br>
注意：请完整填写以下表单信息，注意不能和别的论坛分类有相同的排列序号。
		</td>
              </tr>
<form action=admin_board.asp?action=saveclass method=post>
	      <tr>
		<td>分类名：<input name=classname type=text size=25>  序号：
<input name=id type=text size=2 value=<%=classnum+1%>>   
<input type=submit name=Submit value=添加>
		</td>
	      </tr>
</form>
	    </table>
<%
end sub

sub saveclass()
	set rs = server.CreateObject ("Adodb.recordset")
	if request("id")="" or request("classname")="" then
		response.write "您输入的序号和原来的相同，不必更新啦：）"
	else
	sql="select * from class where id="&cstr(request("id"))
	rs.open sql,conn,1,1
	if not rs.eof and not rs.bof then
		response.write "您输入的序号和其他分类序号相同，请重新输入。"
	else
		sql="insert into class(id,class) values("&request("id")&",'"&request("classname")&"')"
		conn.execute(sql)
		response.write "<p align=center>更新成功！</p>"
	end if
	end if
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,"|")<len(s) then
		arr=split(s,"|")
		set rs=server.createobject("adodb.recordset")
		for i=0 to Ubound(arr)
			sql="select username,userpassword,userclass from [user] where username='"& arr(i) &"'"
			rs.open sql,conn,1,3
			if rs.eof and rs.bof then
				rs.addnew
				rs("username")=arr(i)
				rs("userpassword")=pw
				rs("userclass")=19
				rs.update
				str=str&"你添加了以下用户：<b>" &arr(i) &"</b> 密码：<b>"& pw &"</b><br><br>"
			end if
			rs.close
		next
		set rs=nothing
	else
		set rs=server.createobject("adodb.recordset")
		sql="select username,userpassword,userclass from [user] where username='"& s &"'"
		rs.open sql,conn,1,3
		if rs.eof and rs.bof then
			rs.addnew
			rs("username")=s
			rs("userpassword")=pw
			rs("userclass")=19
			rs.update
			rs.close
			str=str&"你添加了以下用户：<b>" &s &"</b> 密码：<b>"& pw &"</b><br><br>"
		end if
		set rs=nothing
	end if
end sub
%>
12

admin_board.asp - 源码说明

本页面展示了「JSP ACCESS版的论坛源码 深圳盈盈通」中的 admin_board.asp 源码文件，采用 ASP 编程语言编写，共 768 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与JSP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?