admin_article.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

		cat_br=0
	end if
	sql="select * from wapls_art_cat"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("cat_name")=cat_name
	rs("cat_num")=cat_num
	rs("cat_br")=cat_br
	rs("cat_title")=cat_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">新的文章分类</td>
	</tr>
<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="cat_name" size="20" maxlength="20"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="cat_num" size="5" maxlength="5" value="1"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
		<td><input type="checkbox" name="cat_br" value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="cat_title" style="overflow:auto;width:96%;"  rows="15" ></textarea>
</td>
	<tr class="tablebody">
		<td class="tablebody" align="center" height="30" colspan="2">
		<input type="submit" name="Submit" value="确定新增">
		<input type="reset" name="reset" value="清空重写">
		<input type="hidden" name="addcat" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：editcat()
'=功    能：编辑大分类
'==================================
sub editcat()
if request.Form("editcat")="true" then
	cat_id=checksql("文章分类ID",request.form("id"),0,4)
	cat_name=checksql("文章分类名称",request.form("cat_name"),1,20)
	cat_title=checksql("栏目说明",request.form("cat_title"),1,0)
	cat_num=checksql("分类排序",request.form("cat_num"),1,5)
	if request.form("cat_br")="" then
		cat_br=0
	elseif request.form("cat_br")=1 then
		cat_br=1
	else
		cat_br=0
	end if
	sql="select * from wapls_art_cat where cat_id="&cat_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("cat_name")=cat_name
	rs("cat_num")=cat_num
	rs("cat_title")=cat_title
	rs("cat_br")=cat_br
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
cat_id=checksql("文章分类ID",request.querystring("id"),0,4)
sql="select * from wapls_art_cat where cat_id="&cat_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改文章分类</td>
	</tr>
	<tr class="tablebody">
		<td   class="td_title" colspan="2">修改分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="cat_name" size="20" maxlength="20" value="<%=rs("cat_name")%>"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="cat_num" size="5" maxlength="5" value="<%=rs("cat_num")%>"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
<td><input type="checkbox" name="cat_br" <%if rs("cat_br")=1 then%> checked <%end if%> value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="cat_title" style="overflow:auto;width:96%;"  rows="15"><%=rs("cat_title")%></textarea>
</td>
</tr>
	<tr class="tablebody">
		<td class="tablebody" align="center" height="30" colspan="2">
		<input name="Submit" type="submit" id="Submit" value="确定修改">
		<input name="reset" type="reset" id="reset" value="清空重写">
		<input type="hidden" name="id" value="<%=rs("cat_id")%>">
		<input type="hidden" name="editcat" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delcat()
'=功    能：删除大分类
'==================================
sub delcat()
if request.Form("delcat")="true" then
	cat_id=checksql("文章分类ID",request.form("id"),0,4)
	dim datainthiscat
	datainthiscat=conn.Execute("select count(*) from wapls_art where cat_id="&cat_id)(0)
	if datainthiscat<>0 then
		response.write "<script>window.alert('此分类下有"&datainthiscat&"条数据，不能删除此分类！如真要删除此分类，请先转移此分类下的数据，再进行删除分类操作！');window.location='javascript:history.go(-1);';</script>"
		response.End
	end if
	sql="select * from wapls_art_cat where cat_id="&cat_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.close
	set rs=nothing
	sql="select * from wapls_art_class where cat_id="&cat_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	do while not rs.eof 
	rs.delete
	rs.movenext
	loop
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
cat_id=checksql("文章分类ID",request.querystring("id"),0,4)
sql="select * from wapls_art_cat where cat_id="&cat_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title">删除文章分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center" height="50">分类名称 - <%=rs("cat_name")%></td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" align="center" height="30">
		<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=request.querystring("name")%>』这个子分类吗?\n\n注意：删除后不可恢复！处于该分类下的文章需要重新进行归类操作！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("cat_id")%>">
		<input type="hidden" name="delcat" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：addclass()
'=功    能：添加子分类
'==================================
sub addclass()
if request.form("addclass")="true" then
	cat_id=checksql("文章分类ID",request.form("cat_id"),0,4)
	class_name=checksql("文章子类名称",request.form("class_name"),1,20)
	class_title=checksql("栏目说明",request.form("class_title"),1,0)
	class_num=checksql("分类排序",request.form("class_num"),1,5)
	if request.form("class_br")="" then
		class_br=0
	elseif request.form("class_br")=1 then
		class_br=1
	else
		class_br=0
	end if
	sql="select * from wapls_art_class"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("cat_id")=cat_id
	rs("class_name")=class_name
	rs("class_br")=class_br
	rs("class_num")=class_num
	rs("class_title")=class_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
			<td class="td_title" colspan="2">新建子分类</td>
	</tr>
	<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="class_name" size="20" maxlength="20"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="class_num" size="5" maxlength="5" value="1"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
		<td><input type="checkbox" name="class_br" value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="class_title" style="overflow:auto;width:96%;"  rows="15" ></textarea>
</td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td><td>
		<select name="cat_id">
		<%
		sql="select * from wapls_art_cat"
		set rs=conn.execute(sql)
		do while not rs.eof
		%>
		<option value="<%=rs("cat_id")%>" <%if rs("cat_name")=request.querystring("catname") then%>selected <%end if%>><%=rs("cat_name")%></option>
		<%
		rs.movenext
		loop
		if rs.eof and rs.bof then
		response.write"<option>暂无分类</option>"
		end if
		rs.close
		set rs=nothing
		%>
		</select></td>
	</tr>
	<tr class="tablebody">
		<td height="30" align="center" colspan="2">
		<input type="submit" name="Submit2" value="确定新增">
		<input type="reset" name="Reset2" value="取消重填">
		<input type="hidden" name="addclass" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：editclass()
'=功    能：编辑子分类
'==================================
sub editclass()
if request.form("editclass")="true" then
	class_id=checksql("",request.form("id"),0,4)
	cat_id=checksql("文章分类ID",request.form("cat_id"),0,4)
	class_name=checksql("文章子类名称",request.form("class_name"),1,20)
	class_title=checksql("栏目说明",request.form("class_title"),1,0)
	class_num=checksql("分类排序",request.form("class_num"),1,5)
	if request.form("class_br")="" then
		class_br=0
	elseif request.form("class_br")=1 then
		class_br=1
	else
		class_br=0
	end if
	sql="select * from wapls_art_class where class_id="&class_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("cat_id")=cat_id
	rs("class_name")=class_name
	rs("class_br")=class_br
	rs("class_num")=class_num
	rs("class_title")=class_title
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=catlist"
end if
class_id=checksql("分类ID",request.querystring("id"),0,8)
sql="select * from wapls_art_class where class_id="&class_id
set rs3=server.createobject("adodb.recordset")
rs3.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改子分类</td>
	</tr>
	<tr class="tablebody">
<tr class="tablebody">
		<td align="center">名 称</td>
		<td><input type="text" name="class_name" size="20" maxlength="20" value="<%=rs3("class_name")%>"> 分类名称 <span class="disable_font">[20个字以内]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">排 序</td>
		<td><input type="text" name="class_num" size="5" maxlength="5" value="<%=rs3("class_num")%>"> 排列顺序 <span class="disable_font">[5个字以内.小，靠前排列]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">换 行</td>
		<td><input type="checkbox" name="class_br" <%if rs3("class_br")=1 then%> checked <%end if%> value="1"> 是否换行 <span class="disable_font">[栏目自动排版]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">说 明</td><td><textarea name="class_title" style="overflow:auto;width:96%;"  rows="15"><%=rs3("class_title")%></textarea>
</td>
	</tr>
	<tr class="tablebody">
		<td align="center">所属分类</td><td>
		<select name="cat_id">
		<%
		sql="select * from wapls_art_cat"