admin_btitle.asp

非常好的源码 非常好的源码 非常好的源码

<!--#include file=admin_login_check.asp-->
<%
const PageSize=15	'一页15条记录
dim bid
bid=TRim(Request("bid"))
IF  Request.QueryString("Action")="add" Then
	call BBSSET
elseIF  Request.QueryString("Action")="edit" Then
	call edit
elseIF  Request.QueryString("Action")="del" Then
	call del
else
	call main
end if

Function BBSSET

%>

<form name="pollform3sdx" method="post" action="admin_btitle.asp?Action=add&bid=<%=bid%>">
  <p style="margin-left:15px;">
  <b>添加文章分类</b><br/><a href='admin_btitle.asp?bid=<%=bid%>'>返回文章分类</a></p>
  <input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">

	<tr>
	<td align="center">
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbsboards
			Exit Function
	Else
			DisplayBBSSet
	End If
	%>
	</td></tr>
	<tr>
	<td align="center">
	<input type=submit name=提交 value=提　交 class=fmbtn>　
	<input type=reset name=取消 value=清　除 class=fmbtn>
	</td>
	</tr>
</table>
</form>
<%

End Function


Function DisplayBBSSet


%>
		
  <table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>


  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">分类名称:</td>
    <td><input name="name" type="text" class=fminpt id="boardName" size="30" maxlength="50">
      <font color=gray>(分类名称，50字，必填)</font></td>
  </tr>
 		       <tr bgcolor=#f7f7f7 class=TBBG9> 
  		        <td valign="top">分类说明:<br/>支持UBB</td>
  		        <td><textarea rows="15" name="title" cols="63" >--------------</textarea></td>
   			     </tr>
  </table>
		<%

End Function



Function Addbbsboards
	dim flag,errmsg,id,name,classID,pid
	flag=1
	errmsg="<ul><font color=red>"
	name=TRim(Request.Form("name"))
	title=TRim(Request.Form("title"))
	if name=""  then errmsg=errmsg&"<li>分类名称不能为空</li>":flag=0
	if title=""  then errmsg=errmsg&"<li>分类说明不能为空</li>":flag=0
		if flag<>0 then
			Dim sql,rs
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from blist WHERE bid='" & bid&"' order by pid asc"
			rs.open sql,conn,1,1
			if not (rs.bof and rs.eof)  then 
				rs.MoveLast
				pid=rs("pid")
			else
				pid=0
			end if
				Rs.close
				set rs=nothing
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from blist"
			rs.open sql,conn,1,3
				rs.addnew()
					rs("title")=title
					rs("name")=name
					rs("bid")=bid
					rs("pid")=pid+1
				rs.update()
				Rs.close
				set rs=nothing
				Response.Write("成功添加名为<font color='red'>"&name&"</font>的分类！")
				Response.Write("<br/><a href='admin_btitle.asp?bid="&bid&"'>返回文章分类</a>")
				errmsg=errmsg&"</font></ul>"
		else
			Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
		end if	
End Function



Function main
	if not isnumeric(bid) then bid=""
	if bid<>""  then
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM bclass  WHERE id=" & bid
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 

%>
<form name="pollform3sdx" method="post" action="admin_btitle.asp?bid=<%=bid%>">
  <p style="margin-left:15px;">
  <b>文章分类管理-<%=rs("class")%></b><br/>
<% if session("flag")="1" or session("flag")="2" then%>
<a href='admin_btitle.asp?Action=add&bid=<%=bid%>'>添加文章分类</a>|
<%end if%>
<a href='admin_add_btitle.asp'>返回文章栏目</a></p>
<input type="hidden" name="SubmitFlag" value=yes>
  <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF0000" >
	<%
		Rs.close
		set rs=nothing

	If Request("SubmitFlag") <> "" Then
			Addbbs
			Exit Function
	Else
			mainBBSSet
	End If
	%>

</table>
</form>
<%
end if
end if
End Function

Function Addbbs
	dim flag,errmsg,id,name,classID,sql,rs
	flag=1
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from blist  WHERE bid='" & bid&"' order by pid asc"
			rs.open sql,conn,1,1
			errmsg="<ul><font color=red>"
			Page = Request("Page")
			Rs.PageSize = PageSize
			if not (rs.bof and rs.eof)  then 
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
					Page = Rs.AbsolutePage

	For i=1 to Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
		classID=TRim(Request.Form("classID"&i))
	if classID=""  then errmsg=errmsg&"<li>排序编号不能为空</li>":flag=0
	if not isnumeric(classID) then errmsg=errmsg&"<li>排序编号必须为数字</li>":flag=0
		Rs.MoveNext
	Next
		Rs.close
		set rs=nothing
		if flag<>0 then
			set rs=server.CreateObject("adodb.recordset")
			sql="select * from blist  WHERE bid='" & bid&"' order by pid asc"
			rs.open sql,conn,1,3
			Page = Request("Page")
			Rs.PageSize = PageSize
			if not (rs.bof and rs.eof)  then 
			IF Not IsEmpty(Page) Then
				IF Not IsNumeric(Page) Then		'判断Page是否为数字
					Page=1
				Else
					Page=Cint(Page)		'转换成短整形Integer
				End IF
				IF Page > Rs.PageCount Then
					Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
				ElseIF Page <= 0 Then
					Rs.AbsolutePage = 1		'设置当前页等于第一页
				Else
					Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
				End IF
			Else
				Rs.AbsolutePage = 1
			End IF
			Page = Rs.AbsolutePage

			For i=1 to Rs.PageSize
				If Rs.Eof Then
					exit For
				End If
					rs("pid")=TRim(Request.Form("classID"&i))
					rs.update()
					Rs.MoveNext
			Next
			end if
		Rs.close
		set rs=nothing

				Response.Write("成功排序文章分类！")
				Response.Write("<br/><a href='admin_btitle.asp?bid="&bid&"'>返回文章分类</a>")
				errmsg=errmsg&"</font></ul>"
		end if
		else
			Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
		end if	
End Function



Function mainBBSSet
	if not isnumeric(bid) then bid=""
	if bid<>""  then
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM bclass  WHERE id=" & bid
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 
%>
    <tr bgcolor="#799ae1"> 
      <td class="blu">ID</td>
      <td class="blu">文章分类名称</td>
      <td class="blu">操作</td>
      <td class="blu">排序</td>
    </tr>
<%
		Rs.close
		set rs=nothing
dim sql,h,i
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM blist  WHERE bid='" & bid&"' order by pid asc"
	Rs.Open Sql,conn,1,1
	Page = Request("Page")
	Rs.PageSize = PageSize
	if not (rs.bof and rs.eof)  then 
	IF Not IsEmpty(Page) Then
		IF Not IsNumeric(Page) Then		'判断Page是否为数字
			Page=1
		Else
			Page=Cint(Page)		'转换成短整形Integer
		End IF
		IF Page > Rs.PageCount Then
			Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
		ElseIF Page <= 0 Then
			Rs.AbsolutePage = 1		'设置当前页等于第一页
		Else
			Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
		End IF
	Else
		Rs.AbsolutePage = 1
	End IF
	Page = Rs.AbsolutePage

	For i=1 to Rs.PageSize
		If Rs.Eof Then
			exit For
		End If
%>
    <tr bgcolor="#eeeeee" class=TBBG9> 
      <td width="10%"><%=rs("lid")%></td>
      <td width="35%"><a href="admin_title.asp?bid=<%=rs("bid")%>&lid=<%=rs("lid")%>"><%=rs("name")%></a></td>
      
    <td width="15%"><a href="admin_btitle.asp?Action=edit&lid=<%=rs("lid")%>&bid=<%=bid%>">修改</a> 
<% if session("flag")="1" or session("flag")="2" then%>
<a href="admin_btitle.asp?Action=del&lid=<%=rs("lid")%>&bid=<%=bid%>">删除分类</a>
<%end if%>      
    </td>
    <td width="10%"><input type="text" class=fminpt  name="classID<%=i%>" size="4" value="<%=rs("pid")%>" maxlength="12" onkeyup='this.value=this.value.replace(/\D/gi,"")'>

      </td>
      

    </tr>
<%
		Rs.MoveNext
	Next
%>
    <tr bgcolor="#eeeeee">
        <td  colspan="4" > <div align="center">
    <%
    if page<=1 then
        Response.Write ("[首页][上一页]")
    else        
        Response.Write("[<a href=admin_btitle.asp?bid="&bid&"&Page=1>首页</a>]")
        Response.Write("[<a href=admin_btitle.asp?bid="&bid&"&Page=" & (Page-1) & ">上一页</a>]")
    end if

    if page>=Rs.PageCount then
        Response.Write ("[下一页][尾页]")        
    else
        Response.Write("[<a href=admin_btitle.asp?bid="&bid&"&Page=" & (Page+1) & ">下一页</a>]")
        Response.Write("[<a href=admin_btitle.asp?bid="&bid&"&Page=" & Rs.PageCount & ">尾页</a>]")            
    end if
    Response.Write("[页次:<font color=red>" & page & "</font>/" & Rs.PageCount)    
    Response.Write("][共" & Rs.RecordCount & "条 <font color=red>"& Rs.PageSize & "</font>条/页]")
%>
  </div></td>
  </tr>
    <tr bgcolor="#eeeeee">
        <td  colspan="4" > <div align="center">栏目排序,序号越小越排前!<br/>
	<input type="hidden" name="page" value="<%=page%>">
 	<input type=submit name=提交 value=修改排序 class=fmbtn>　
	<input type=reset name=取消 value=清　除 class=fmbtn>
        </div></td>
    </tr>
</table>
</form>
<%
	else
%>
    <tr bgcolor="#eeeeee" class=TBBG9> 
      <td  colspan="4" > <div align="center">
      	暂无分类,请添加!<br/>
<% if session("flag")="1" or session("flag")="2" then%>
<a href='admin_btitle.asp?Action=add&bid=<%=bid%>'>添加分类</a>
<%end if %>       </div></td>
    </tr>
<%
	end if
		Rs.close
		set rs=nothing

%>

</table>
<%
	end if
end if
End Function




Function edit
dim lid
lid=TRim(Request("lid"))
	if not isnumeric(lid) then lid=""
	if lid<>""  then
		Dim sql,rs
		set rs=server.CreateObject("adodb.recordset")
		sql="select * from blist where lid="&lid
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then 
%>

		<form name="pollform3sdx" method="post" action="admin_btitle.asp?Action=edit&lid=<%=lid%>&bid=<%=bid%>">
		<p style="margin-left:15px;">
		<b>修改分类</b></p>
		<input type="hidden" name="SubmitFlag" value=yes>
		<table width="100%" border="0" align="center" cellpadding="8" cellspacing="0">

		 <tr>
		 <td align="center">
<%
		 If Request("SubmitFlag") <> "" Then
		 	dim flag,errmsg,name,classID
		 	flag=1
		 	errmsg="<ul><font color=red>"
			title=Request.Form("title")
		 	name=TRim(Request.Form("name"))
			if name=""  then errmsg=errmsg&"<li>分类名称不能为空</li>":flag=0
			if title=""  then errmsg=errmsg&"<li>分类说明不能为空</li>":flag=0
			if flag<>0 then
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from blist where lid="&lid
				rs.open sql,conn,1,3
					rs("name")=name
					rs("title")=title
				rs.update()
				Response.Write("成功修改名为<font color='red'>"&name&"</font>的分类！")
				Response.Write("<br/><a href='admin_btitle.asp?bid="&bid&"'>返回文章分类</a>")
				errmsg=errmsg&"</font></ul>"
			else
				Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
		
			end if	
		Else%>
			<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1  bgcolor="#FF0000"  class=TBone>

 			 <tr bgcolor=#f7f7f7 class=TBBG9> 
  			  <td class="tar">分类名称:</td>
  			  <td><input name="name" type="text" class=fminpt value="<%=rs("name")%>"  id="boardName" size="30" maxlength="50">
    			  <font color=gray>(分类名称，50字，必填)</font></td>
  			</tr>
 		       <tr bgcolor=#f7f7f7 class=TBBG9> 
  		        <td valign="top">分类说明:<br/>支持UBB</td>
  		        <td><textarea rows="15" name="title" cols="63" ><%
			test=replace(rs("title"),"<BR>",chr(13))
			test=replace(test,"&nbsp;"," ")
			response.write test
			%></textarea></td>
   			     </tr>
    			<tr bgcolor="#eeeeee">
      			<td  colspan="4" > <div align="center">
			<input type=submit name=保存 value="保 存" class=fmbtn>　
			<input type=button name=取消 value=取　消  onclick="javascript:history.go(-1);">
			</td>
			</tr>
			</table>
		<%End If%>

		</form>
<%	

	else%>
		<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
		  <tr bgcolor=#f7f7f7 class=TBBG9> 
		    <td colspan="2">没有该分类！</td>
 		 </tr>
		</table>
	<%end if
	end if

End Function

Function del
dim lid 
lid=Request.QueryString("lid")
%>
  <p style="margin-left:15px;">
  <b>删除分类</b></p>
	<%
	If Request("SubmitFlag") <> "" Then
		dim i,sql,rs
		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select * FROM blist WHERE lid=" & lid
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then 
		rs.Delete
		end if
		rs.Close
		Set rs = Nothing


		Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select * FROM btitle WHERE lid='" & lid&"'"
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then 
		For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If

		rs.Delete
		Rs.MoveNext

		Next
		end if
		rs.Close
		Set rs = Nothing%>
		<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
		  <tr bgcolor=#f7f7f7 class=TBBG9> 
		    <td colspan="2">删除分类成功！<br/><a href='admin_btitle.asp?bid=<%=bid%>'>返回文章分类</a></td>
 		 </tr>
		</table>

<%	else%>
<form name="pollform3sdx" method="post" action="admin_btitle.asp?Action=del&lid=<%=lid%>&bid=<%=bid%>">
<input type="hidden" name="SubmitFlag" value=yes>		
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td colspan="2">注意：删除分类将删除一切分类和其它信息！<br>
				　　　在删除前务必确认此分类分类已经转移。<br><br><b><font color=ff0000 class=RedFont> 
      <strong><font color="#FF0000">确认信息： 真的要删除编号为<%=lid%>分类吗？</font></strong><br><br>
      <input type=button value="不能删啊" onclick="javascript:history.go(-1);">
		<input type=submit name=删除 value="当然删除" class=fmbtn></td>
  </tr>
</table>
</form>
<%
end if
End Function
%>