admin_article.asp

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

	<tr class="tablebody">
		<td align="center">来 源</td>
		<td><input name="art_from" type="text" id="art_from" size="20" maxlength="20" value="<%=rs("art_from")%>">&nbsp;<button onClick="art_from.value='<%=webname%>'"><%=webname%></button><button onClick="art_from.value='互联网'">互联网</button><button onClick="art_from.value='不祥'">不祥</button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><input name="art_title" type="text" id="art_title" size="56" maxlength="100" value="<%=rs("art_title")%>"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关键词</td>
		<td><input name="art_keyword" type="text" id="art_keyword" value="<%=rs("art_keyword")%>" size="20" maxlength="20"> <span class="disable_font">[≤20]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">分 类</td>
		<td>
		<select name="of" id="of">
		<%
		set rscat = server.createobject("adodb.recordset")
		sql="select * from wapls_art_cat"
		rscat.open sql,conn,1,1
		if not (rscat.eof and rscat.bof) then
			rscat.movefirst
			do while not rscat.eof
			sql="select * from wapls_art_class where cat_id="&rscat("cat_id")
			set rsclass = server.createobject("adodb.recordset")
			rsclass.open sql,conn,1,1
			if not (rsclass.eof and rsclass.bof) then
				do while not rsclass.eof
				catid=rscat("cat_id")
				classid=rsclass("class_id")
				%>
				<option value='<%=rsclass("class_id")%>' <%if rsclass("class_id")=rs("class_id") then response.Write "selected" end if%>><%=rsclass("class_name")%>（<%=rscat("cat_name")%>）</option>
				<%
				rsclass.movenext
				loop
			end if
			rscat.movenext
			rsclass.close
			set rsclass=nothing
			response.write"<option>- - - - - - - - - -</option>"
			loop
			rscat.close
			set rscat=nothing
		end if
		%>
		</select>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">图 片</td>
		<td>
		<iframe src="wapls_upload.asp" scrolling="no" frameborder="0" height="25" width="100%"></iframe></td>
	</tr>
	<tr class="tablebody">
		<td align="center">查看权限</td>
		<td>
		<input type="radio" name="userview" value="0" <%if rs("user_view")=0 then%>checked<%end if%>> 游客查看
		<input type="radio" name="userview" value="1" <%if rs("user_view")=1 then%>checked<%end if%>> 普通会员
		<input type="radio" name="userview" value="2"  <%if rs("user_view")=2 then%>checked<%end if%>> VIP会员
		| 消费金币：<input type="text" name="moneypay" <%if rs("user_view")=0 then%> value="1" <%else%> value="<%=rs("moneypay")%>" <%end if%> size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td>
		<input type="checkbox" name="istop" <%if rs("istop")=1 then%> checked <%end if%> value="1"> 文章置顶 <span class="disable_font">[总是显示于文章列表顶部]</span>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文章评级</td>
		<td>
		<input type="radio" name="art_good" value="0" <%if rs("art_good")=0 then%>checked<%end if%>> 普通文章
		<input type="radio" name="art_good" value="1" <%if rs("art_good")=1 then%>checked<%end if%>> 推荐文章
		<input type="radio" name="art_good" value="2"  <%if rs("art_good")=2 then%>checked<%end if%>> 精品文章
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">内 容</td>
<td><textarea name="content" style="overflow:auto;width:96%;" rows="15"><%=rs("art_content")%></textarea></td>
		</tr>
	<tr class="tablebody">
		<td colspan="2" height="30" align="center">
		<input name="Submit" type="submit" id="Submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="id" value="<%=rs("art_id")%>">
		<input type="hidden" name="editart" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delart()
'=功    能：删除文章
'==================================
sub delart()
if request.Form("delart")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	art_id=checksql("文章ID",request.form("id"),0,16)
	sql="select * from wapls_remark where class_id=4 and list_id="&art_id
	set rs=server.createobject("adodb.recordset")	
	rs.open sql,conn,1,3
	if not rs.eof then
		do while not rs.eof
		rs.delete
		rs.movenext
		loop
	end if
	rs.close:set rs=nothing
	sql="select * from wapls_art where art_id="&art_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
art_id=checksql("文章ID",request.querystring("art_id"),0,16)
sql="select * from wapls_art where art_id="&art_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="addart" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">删除文章</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">作 者</td>
		<td width="87%"><%=rs("art_poster")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">来 源</td>
		<td><%=rs("art_from")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><%=rs("art_title")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">分 类</td>
		<td>
		<%
		sql="select * from wapls_art_cat where cat_id="&rs("cat_id")
		set rscat=server.createobject("adodb.recordset")
		rscat.open sql,conn,1,1
		if not rscat.eof then
			catname=rscat("cat_name")
		else
			catname="此分类已删除"
		end if
		rscat.close:set rscat=nothing
		sql="select * from wapls_art_class where class_id="&rs("class_id")
		set rsclass=server.createobject("adodb.recordset")
		rsclass.open sql,conn,1,1
		if not rsclass.eof then
			classname=rsclass("class_name")
		else
			classname="此子类已删除"
		end if
		rsclass.close:set rsclass=nothing
		%>
		<%=catname%> | <%=classname%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关键字</td>
		<td><%=rs("art_keyword")%>
	</td>
	</tr>
	<tr class="tablebody">
		<td align="center">查看权限</td>
		<td><%if rs("user_view")=0 then%>游客方式查看<%elseif rs("user_view")=1 then%>普通会员方式查看&nbsp;<span class="disable_font">[消费<%=rs("moneypay")%>个金币]</span><%elseif rs("user_view")=2 then%>VIP会员方式查看&nbsp;<span class="disable_font">[消费<%=rs("moneypay")%>个金币]</span><%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td><%if rs("istop")=1 then%><span class="current_font">[置顶文章]</span><%else%>一般文章<%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">文章评级</td>
		<td><%if rs("art_good")=0 then%>普通文章<%elseif rs("art_good")=1 then%>推荐文章<%elseif rs("art_good")=2 then%>精品文章<%end if%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">内 容</td>
		<td><%=rs("art_content")%>
	</td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" height="30" align="center" colspan="2">
		<input name="Submit" type="submit" id="Submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("art_title")%>』这篇文章吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("art_id")%>">
		<input type="hidden" name="delart" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：remarklist()
'=功    能：文章评论列表
'==================================
sub remarklist()
dim totaldiary,Currentpage,totalpages,i
sql="select * from wapls_remark where class_id=4 order by remark_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody">
		<td colspan="4" class="td_title">文 章 评 论 管 理</td>
	</tr>
	<tr align="center" class="tablebody">
		<td width="13%">编号</td>
		<td width="60%">评论内容</td>
		<td width="20%">评论文章</td>
		<td width="13%">操作</td>
	</tr>
	<%
	if not rs.eof then
	rs.Movefirst
	perpage=cint(perpage)
	rs.pagesize=perpage
	if trim(request.querystring("page"))<>"" then
	    currentpage=cint(request.querystring("page"))
		if currentpage>rs.pagecount then
		   currentpage=rs.pagecount
		end if
	else
	    currentpage=1
	end if
	    totalremark=rs.recordcount
		if currentpage<>1 then
		   if(currentpage-1)*perpage<totalremark then
		      rs.move(currentpage-1)*perpage
		   end if
		end if
		if (totaldiary mod perpage)=0 then
		   totalpages=totalremark\perpage
		else
		   totalpages=totalremark\perpage+1
		end if
	i=0
	do while not rs.eof and i<perpage
	%>
	<tr class="tablebody">
		<td align="center"><%=rs("remark_id")%></td>
		<td><strong>评论：<%=rs("remark")%></strong><br>[评论人：<%=rs("remarker")%>|时间：<%=rs("remark_date")%>|IP：<%=rs("remarker_ip")%>]</td>
		<%
		sql2="select art_title from wapls_art where art_id="&rs("list_id")
		set rs2=server.createobject("adodb.recordset")
		rs2.open sql2,conn,1,1
		if not (rs2.bof and rs2.eof)  then 
		%>
		<td><%=rs2("art_title")%></td>
		<%else%>
		<td align="center"><font color="red">无相关内容或已经删除</font></td>
		<%
		end if
		rs2.close
		set rs2=nothing
		%>
		<td align="center"><button onclick="{if(confirm('您再次确定要删除『<%=rs("remark_id")%>』这条评论吗?\n\n注意：删除后不可恢复！')){window.location='?action=delremark&id=<%=rs("remark_id")%>&page=<%=currentpage%>'}return false;}">删除</button></td>
	</tr>
	<%
	i=i+1
	rs.movenext
	loop
	else
	If rs.EOF And rs.BOF Then
	%>
	<tr class="tablebody">
		<td colspan="4" align="center" height="70" class="disable_font">当前还没有评论！</td>
	</tr>
	<%
	end if
	end if
	%>
</table>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form" method="post" action="">
	<tr class="tablebody">
		<td align="center"><%showpage totalremark,perpage,"admin_article.asp?action=remarklist&"%></td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delremark()
'=功    能：删除文章评论
'==================================
sub delremark()
if request.querystring("page")<>"" then
	curpage=cint(request.querystring("page"))
else
	curpage=1
end if
remark_id=checksql("文章评论ID",request.querystring("id"),0,8)
sql="select * from wapls_remark where remark_id="&remark_id
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=nothing
response.redirect "?action=remarklist&page="&curpage&""
end sub%>
<!--#include file="wapls_admin_bottom.asp"-->