admin_news.asp

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

	rs("news_content")=newscontent
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
news_id=checksql("新闻ID",request.querystring("id"),0,8)
sql="select * from wapls_news where news_id="&news_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="" onsubmit="javascript:submits();">
	<tr class="tablebody">
		<td class="td_title" colspan="2">修改新闻</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">作 者</td>
		<td width="87%"><input type="text" name="news_poster" size="20" maxlength="20" value="<%=rs("news_poster")%>">&nbsp;<button onClick="news_poster.value='<%=cur_nickname%>'" title="您的昵称"><%=cur_nickname%></button>&nbsp;<button onClick="news_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button>
	</tr>
	<tr class="tablebody">
		<td align="center">来 源</td>
		<td><input type="text" name="news_from"  size="20" value="<%=rs("news_from")%>" maxlength="50">&nbsp;<button onClick="news_from.value='<%=webname%>'"><%=webname%></button>&nbsp;<button onClick="news_from.value='未知'">未知</button>&nbsp;<button onClick="news_from.value='互联网'">互联网</button></td>
	</tr>
		<tr class="tablebody">
		<td align="center">分 类</td>
		<td>
		<select name="catid">
		<% 
		sql="select * from wapls_news_cat"
		set rscat=conn.execute(sql)
		do while not rscat.eof
		%>
		<option value="<%=rscat("cat_id")%>"  <%if rscat("cat_id")=rs("cat_id") then response.Write "selected" end if%>><%=rscat("cat_name")%></option>
		<%
		rscat.movenext
		loop
		rscat.close
		set rscat=nothing
		%>
		</select></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td>
		<input type="text" name="news_title"  size="56" value="<%=rs("news_title")%>" maxlength="100">
		</tr>
	<tr class="tablebody">
		<td align="center">关键字</td>
		<td><input type="text" name="news_keyword" size="20"  value="<%=rs("news_keyword")%>" maxlength="20"> <span class="disable_font">[≤20]</span></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="text" name="news_pic" value="<%=rs("news_pic")%>" size="50"  maxlength="150">&nbsp;&nbsp;<input type="checkbox" name="save" value="true">保存远程图片<br><span class="disable_font">[注：内容为空则为普通新闻，若是本地上传图片，则复制图片路径]</span></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" valign="top">内 容</td>
<td><textarea name="content" style="overflow:auto;width:96%;" rows="20"><%=rs("news_content")%></textarea></td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" colspan="2" height="30" align="center">
		<input type="submit" name="Submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="id" value="<%=rs("news_id")%>">
		<input type="hidden" name="editnews" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：delnews
'=功    能：删除新闻
'==================================
sub delnews() 
if request.form("delnews")="true" then
	dim curpage
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	news_id=checksql("新闻ID",request.Form("id"),0,8)
	sql="select * from wapls_remark where class_id=0 and list_id="&news_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	if not rs.eof then
		do while not rs.eof
		rs.update
		rs.delete
		rs.movenext
		loop
	end if
	rs.close:set rs=nothing
	sql="select * from wapls_news where news_id="&news_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
news_id=checksql("新闻ID",request.querystring("id"),0,8)
sql="select * from wapls_news where news_id="&news_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 width="13%" align="center">作 者</td>
		<td width="87%"><%=rs("news_poster")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">关键字</td>
		<td><%=rs("news_keyword")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">来 源</td>
		<td><%=rs("news_from")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><%=rs("news_title")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">首页图片新闻</td>
		<td><%=rs("news_pic")%> <span class="disable_font"> [注：内容为空则为普通新闻]</span></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" height="100" valign="top">内 容</td>
		<td><%=rs("news_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("news_title")%>』这篇新闻吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("news_id")%>">
		<input type="hidden" name="delnews" value="true"></td>
		<input type="hidden" name="cur_page" value="<%=request.querystring("page")%>">
	</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=0 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>
		<%
		sql3="select * from wapls_news where news_id="&cint(rs("list_id"))
		set rs3=server.createobject("adodb.recordset")
		rs3.open sql3,conn,1,1
		if not (rs3.bof and rs3.eof)  then 
		%>
		<td align="center"><%=rs3("news_title")%></td>
		<%else%>
		<td align="center"><font color="red">无相关内容或已经删除</font></td>
		<%
		end if
		rs3.close
		set rs3=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_news.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="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
response.redirect "?action=remarklist&page="&curpage&""
end sub%>
<!--#include file="wapls_admin_bottom.asp"-->