admin_news.asp

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

		<a href="admin_news.asp">全部新闻</a>
		<%
		sql="select * from wapls_news_cat"
		set rs2=server.createobject("adodb.recordset")
		rs2.open sql,conn,1,1	
		do while not rs2.eof
		%>
		 | <a href="?action=list&cat_id=<%=rs2("cat_id")%>"><%=rs2("cat_name")%></a>
		<%
		rs2.movenext
		loop
		if rs2.bof and rs2.eof then
		response.write" | 暂无分类"
		end if
		rs2.close
		set rs2=nothing
		if request.querystring("cat_id")<>"" then
		dim catname
		catname=""
		sql="select cat_name from wapls_news_cat where cat_id="&cint(request.querystring("cat_id"))
		set rscat=conn.execute(sql)
		catname=rscat("cat_name")
		rscat.close
		set rscat=nothing
		%>&nbsp;&nbsp;&nbsp;<strong>||</strong>&nbsp;
		<span class="current_font"><%=catname%></span>分类共有 <span class="current_font"><%=rs.recordcount%></span> 条新闻&nbsp;
		<%else%>
		&nbsp;&nbsp;&nbsp;<strong>||</strong>&nbsp;目前共有 <span class="current_font"><%=rs.recordcount%></span> 条新闻&nbsp;
		<%end if%>
		</td>
	</tr>
	<tr class="tablebody" align="center">
		<td width="13%">编号</td>
		<td width="70%">标题&amp;发表时间</td>
		<td width="20%">操作</td>
	</tr>
	<%
	if not rs.eof then
		rs.movefirst
		perpage=cint(perpage)
		rs.pagesize=perpage
		if trim(request("page"))<>"" then
			currentpage=cint(request.querystring("page"))
			if currentpage>rs.pagecount then
				currentpage=rs.pagecount
			end if
		else
			currentpage=1
		end if
		totalnews=rs.recordcount
		if currentpage<>1 then
			if (currentpage-1)*perpage<totalnews then
				rs.move(currentpage-1)*perpage
			end if
		end if
		if (totalnews mod perpage)=0 then
			totalpages=totalnews\perpage
		else
			totalpages=totalnews\perpage+1
		end if
		k=0
		do while not rs.eof and k<perpage
		sql="select cat_name from wapls_news_cat where cat_id="&rs("cat_id")
		set rscat=conn.execute(sql)
		catname=rscat(0)
		rscat.close:set rscat=nothing
		%>
		<tr class="tablebody">
			<td align="center"><%=rs("news_id")%></td>
			<td><span class="disable_font">[<%=catname%>]</span> <%=rs("news_title")%> <span class="disable_font"><%=rs("news_date")%></span>&nbsp;<%if DateDiff("d",rs("news_date"),now())<1 then%><img src="images/new.gif" border="0"><%end if %><%if rs("user_view")=1 then%>&nbsp;<img src="images/userview.gif" border="0" alt="会员新闻，此条需消费<%=rs("moneypay")%>个金币"><%elseif rs("user_view")=2 then%>&nbsp;<img src="images/vipview.gif" border="0" alt="VIP会员新闻，此条需消费<%=rs("moneypay")%>个金币"><%end if%><%if rs("istop")=1 then%>&nbsp;<img src="images/ztop.gif" border="0" alt="置顶新闻"><%end if%>&nbsp;<img src="<%if rs("news_pic")<>"" then%>../<%=rs("news_pic")%><%else%>images/nopicnews.gif<%end if%>" alt="新闻图象" border=0 onmousewheel="return bbimg(this)" onload="javascript:if(this.width>screen.width-600)this.style.width=screen.width-600;" height="25" width="18"></td>
			<td align="center"><button onClick="window.location
='?id=<%=rs("news_id")%>&action=editnews&page=<%=currentpage%>'">编辑</button>&nbsp;<button onClick="window.location
='?id=<%=rs("news_id")%>&action=delnews&page=<%=currentpage%>'">删除</button></td>
		</tr>
		<%
		k=k+1
		rs.movenext
		loop
	else
		if rs.eof and rs.bof then
		%>
	<tr align="center" class="tablebody">
		<td colspan="3" height="70" class="disable_font">当前没有新闻！</td>
	</tr>
		<%
		end if
	end if
	%>
</table>
<%if totalnews>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
		<form name="form" method="post" action="">
		<tr class="tablebody">
		<td align="center">
		<%showpage totalnews,perpage,"admin_news.asp?action=list&"%>
		</td>
		</tr>
		</form>
	</table>
<%
end if
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：addnews
'=功    能：新增新闻
'==================================
sub addnews()
if request.form("addnews")="true" then
	cat_id=checksql("分类ID",request.form("catid"),0,8)
	newsposter=checksql("新闻作者",request.form("news_poster"),1,20)
	if len(request.form("news_keyword"))>20 then
		keyword=checksql("新闻关键词",left(request.form("news_keyword"),20),1,20)
	else
		keyword=checksql("新闻关键词",request.form("news_keyword"),1,20)
	end if
	newsfrom=checksql("新闻来源",request.form("news_from"),1,50)
	title=checksql("新闻标题",request.form("news_title"),1,100)
	userview=checksql("会员新闻",request.form("userview"),0,1)
	moneypay=checksql("会员消费金币数",request.form("moneypay"),0,10)
	if request.form("istop")="" then
		istop=0
	elseif request.form("istop")=1 then
		istop=1
	else
		istop=0
	end if
	if request.form("news_pic")<>"" then
		newspic=checksql("首页图片新闻",request.form("news_pic"),1,150)
	if left(newspic,7)="http://" and request.form("save")="true" then
		newspic=saveimgfile(newspic)
		newspic=newspic
	end if
	else
		newspic=""
	end if
	newscontent=checksql("新闻内容",request.form("content"),1,0)
	newscontent=replace(newscontent,replaceurl,"")
	sql="select * from wapls_news"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("cat_id")=cat_id
	rs("news_poster")=newsposter
	rs("news_from")=newsfrom
	rs("news_keyword")=keyword
	rs("news_title")=title
	rs("news_pic")=newspic
	rs("user_view")=userview
	if userview=0 then
		rs("moneypay")=0
	else
		rs("moneypay")=moneypay
	end if
	rs("istop")=istop
	rs("news_content")=newscontent
	
	rs.update
	rs.close
	set rs=nothing
	response.redirect "admin_news.asp"
end if
%>
<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">&nbsp;<button onClick="news_poster.value='<%=cur_nickname%>'" title="您的昵称"><%=cur_nickname%></button>&nbsp;<button onClick="news_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button>&nbsp;<button onClick="news_poster.value='未知'">未知</button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">来 源</td>
		<td><input type="text" name="news_from" size="20" value="" 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")%>"><%=rscat("cat_name")%></option>
		<%
		rscat.movenext
		loop
		%>
		</select>
		<%
		if rscat.eof and rscat.bof then
			response.write"<script>alert('请先添加分类');location.href='?action=addcat';</script>"
		end if
		rscat.close:set rscat=nothing
		%>
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
<td><input type="text" name="news_title" size="56"  maxlength="100" onchange="news_keyword.value=news_title.value"></tr>
	<tr class="tablebody">
		<td align="center">关键字</td>
		<td><input type="text" name="news_keyword" size="20" 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" 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" checked> 游客查看
		<input type="radio" name="userview" value="1"> 普通会员
		<input type="radio" name="userview" value="2"> VIP会员
		| 消费金币：<input type="text" name="moneypay" value="1" size="6" maxlength="10" title="阅读此会员新闻所需金币量"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">置&nbsp;&nbsp;顶</td>
		<td>
		<input type="checkbox" name="istop" 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" ></textarea></td>
	</tr>
	<tr class="tablebody">
		<td class="tablebody" height="30" align="center" colspan="2"><input type="submit" name="Submit2" value="确定新增" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}"><input type="hidden" name="addnews" value="true"></td>
	</tr>
	</form>
</table>
<%
end sub
'==================================
'=过 程 名：editnews
'=功    能：编辑新闻
'==================================
sub editnews()
if request.form("editnews")="true" then
	dim curpage
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	if request.form("istop")="" then
		istop=0
	elseif request.form("istop")=1 then
		istop=1
	else
		istop=0
	end if
	news_id=checksql("新闻ID",request.Form("id"),0,8)
	cat_id=checksql("分类ID",request.form("catid"),0,8)
	newsposter=checksql("新闻作者",request.form("news_poster"),1,20)
	keyword=checksql("新闻关键词",request.form("news_keyword"),1,20)
	newsfrom=checksql("新闻来源",request.form("news_from"),1,50)
	title=checksql("新闻标题",request.form("news_title"),1,100)
	if request.form("news_pic")<>"" then
		newspic=checksql("首页图片新闻",request.form("news_pic"),1,150)
	if left(newspic,7)="http://" and request.form("save")="true" then
		newspic=saveimgfile(newspic)
		newspic=newspic
	end if
	else
		newspic=""
	end if
	userview=checksql("会员新闻",request.form("userview"),0,1)
	moneypay=checksql("会员消费金币数",request.form("moneypay"),0,10)
	newscontent=checksql("新闻内容",request.form("content"),1,0)
	newscontent=replace(newscontent,replaceurl,"")
	sql="select * from wapls_news where news_id="&news_id
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("cat_id")=cat_id
	rs("news_poster")=newsposter
	rs("news_from")=newsfrom
	rs("news_keyword")=keyword

	rs("news_title")=title
	rs("news_pic")=newspic
	if userview=0 then
		rs("moneypay")=0
	else
		rs("moneypay")=moneypay
	end if
	rs("user_view")=userview
	rs("istop")=istop