admin_diary.asp

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

<%
'==================================
'=文 件 名：admin_diary.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：网站公告系统管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
end if
dim page,ddid,d_content,d_poster,d_title
if request.querystring("page")<>"" then
	page=checksql("公告分页",request.querystring("page"),0,8)
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr class="tablebody" align="center">
		<td width="50%" class="td_title"><a href="?action=list"><font color="#ffffff">公告管理</font></a></td>
		<td width="50%" class="td_title"><a href="admin_diary.asp?action=add"><font color="#ffffff">新增公告</font></a></td>
	</tr>
</table>
<br>
<%
'==================================
'=功    能：主调代码，相应功能皆有说明
'==================================
Select case request.QueryString("action")
	case "list"		'公告列表
		call list()
	case "add"		'添加公告
		call add()
	case "edit"		'编辑公告
		call edit()
	case "del"		'删除公告
		call del()
	case else
		call list()
End Select
'==================================
'=过 程 名：list()
'=功    能：公告列表
'==================================
sub list()
dim totaldiary,currentpage,totalpages,i
sql="select * from wapls_diary order by d_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<tr>
		<td colspan="3" class="td_title">公告管理</td>
	</tr>
	<tr align="center" class="tablebody">
		<td  width="13%">编号</td>
		<td  width="70%">内容</td>
		<td  width="20%">操作</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
		totaldiary=rs.recordcount
		if currentpage<>1 then
			if(currentpage-1)*perpage<totaldiary then
				rs.move(currentpage-1)*perpage
			end if
		end if
		if (totaldiary mod perpage)=0 then
			totalpages=totaldiary\perpage
		else
			totalpages=totaldiary\perpage+1
		end if
		i=0
		do while not rs.eof and i<perpage
		%>
	<tr class="tablebody">
		<td align="center"><%=rs("d_id")%></td>
		<td><%=rs("d_title")%>&nbsp;<span class="disable_font">[<%=rs("d_date")%>]</span><%if DateDiff("d",rs("d_date"),now())<1 then%>&nbsp;<img src="images/new.gif" border="0"><%end if %><%if rs("d_index")=1 then%>&nbsp;<span class="current_font">[首页公告]</span><%end if%></td>
		<td align="center"><button onClick="window.location
='?action=edit&id=<%=rs("d_id")%>&page=<%=currentpage%>'">编辑</button>&nbsp;<button onClick="window.location
='?action=del&id=<%=rs("d_id")%>&page=<%=currentpage%>'">删除</button></td>
	</tr>
		<%
		i=i+1
		rs.movenext
		loop
	elseif rs.eof and rs.bof then
		%>
	<tr class="tablebody">
		<td colspan="3" align="center" height="70" class="disable_font">当前还没有公告！</td>
	</tr>
	<%
		rs.close
		set rs=nothing
	end if
	%>
</table>
<%if totaldiary>perpage then%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form" method="post" action="">
	<tr class="tablebody">
		<td align="center"><%showpage totaldiary,perpage,"admin_diary.asp?action=list&"%></td>
	</tr>
	</form>
</table>
<%
end if
end sub
'==================================
'=过 程 名：add()
'=功    能：添加公告
'==================================
sub add()
if request.form("add")="true" then
	dim indexdiary
	d_poster=checksql("公告作者",request.form("d_poster"),1,10)
	d_title=checksql("公告标题",request.form("d_title"),1,100)
	d_content=checksql("公告内容",request.form("content"),1,0)
	d_content=replace(d_content,replaceurl,"")
	if request.form("index_diary")="" then
		indexdiary=0
	else
		indexdiary=1
	end if
	sql="select * from wapls_diary"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("d_content")=d_content
	rs("d_poster")=d_poster
	rs("d_title")=d_title
	rs("d_index")=indexdiary
	rs("d_date")=now()
	rs.update
	rs.close
	set rs=nothing
	response.redirect "admin_diary.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="d_poster" size="20" maxlength="10">&nbsp;<button onClick="d_poster.value='<%=cur_nickname%>'" title="您的昵称"><%=cur_nickname%></button>&nbsp;<button onClick="d_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><input size="56" type="text" name="d_title" maxlength="100">
	<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="checkbox" name="index_diary" value="1"> 首页公告 <span class="disable_font">[显示在首页的重要公告]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">内 容<br><br>支持UBB</td><td><textarea name="content" style="overflow:auto;width:96%;"  rows="20" ></textarea>
</td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定新增" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="add" value="true">
		</td>
	</tr>
	</form>
</table>
<%end sub
'==================================
'=过 程 名：edit()
'=功    能：编辑公告
'==================================
sub edit()
if request.form("edit_diary")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	dim indexdiary
	if request.form("index_diary")="" then
		indexdiary=0
	else
		indexdiary=1
	end if
	d_poster=checksql("公告作者",request.form("d_poster"),1,10)
	d_title=checksql("公告标题",request.form("d_title"),1,100)
	d_content=checksql("公告内容",request.form("content"),1,0)
	sql="select * from wapls_diary where d_id="&cint(request.form("id"))
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("d_content")=d_content
	rs("d_poster")=d_poster
	rs("d_title")=d_title
	rs("d_index")=indexdiary
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
ddid=checksql("公告ID",request.Querystring("id"),0,8)
page=checksql("公告分页",request.Querystring("page"),0,8)
sql="select * from wapls_diary where d_id="&ddid
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="d_poster" value="<%=rs("d_poster")%>" size="20" maxlength="10">&nbsp;<button onClick="d_poster.value='<%=cur_nickname%>'" title="您的昵称"><%=cur_nickname%></button>&nbsp;<button onClick="d_poster.value='<%=webboss%>'" title="网站站长"><%=webboss%></button></td>
	</tr>
	<tr class="tablebody">
		<td align="center">发布时间</td>
		<td><input type="text" name="d_date" value="<%=rs("d_date")%>" disabled></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><input type=text size="50" name="d_title" value="<%=rs("d_title")%>" maxlength="50"></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="checkbox" name="index_diary" <%if rs("d_index")=1 then%>checked<%end if%> value="1"> 首页公告 <span class="disable_font">[显示在首页的重要公告]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">内 容<br><br>支持UBB</td>
		<td><textarea name="content" rows="20" cols="100"><%=rs("d_content")%></textarea></td>
		</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定修改" onClick="if (Dvbbs_bTextMode!=1) {Dvbbs_setMode(1);}">
		<input type="hidden" name="id" value="<%=rs("d_id")%>">
		<input type="hidden" name="edit_diary" value="true">
	</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：del()
'=功    能：删除公告
'==================================
sub del()
if request.form("del")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	ddid=checksql("公告ID",request.form("id"),0,8)
	sql="select * from wapls_diary where d_id="&ddid
	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
ddid=checksql("公告ID",request.Querystring("id"),0,8)
page=checksql("公告分页",request.Querystring("page"),0,8)
sql="select * from wapls_diary where d_id="&ddid
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="<%=mm_editaction%>">
	<tr class="tablebody">
		<td class="td_title" colspan="2">删除公告</td>
	</tr>
	<tr class="tablebody">
		<td align="center" width="13%">作 者</td>
		<td width="87%"><%=rs("d_poster")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">标 题</td>
		<td><%=rs("d_title")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">位 置</td>
		<td><%if rs("d_index")=1 then%><span class="current_font">首页公告</span><%else%>普通公告<%end if%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" height="100" valign="top">内 容</td>
		<td><%=ChangeEmot(rs("d_content"))%><br><div align="right">第<%=rs("d_id")%>篇，发表于-<%=rs("d_date")%></div></td>
	</tr>
	<tr class="tablebody">
		<td align="center" height="30" colspan="2">
		<%
		if instr(rs("d_title"),"<font color")<>0 then
			dtitle=split(rs("d_title"),">")
			d_title=replace(dtitle(1),"</font","")
		else
			d_title=rs("d_title")
		end if
		%>
		<input type="submit" name="submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("d_title")%>』这条公告吗?\n\n注意：删除后不可恢复！删除后请即时更新统计信息。')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("d_id")%>">
		<input type="hidden" name="del" value="true">
		</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub%>
<!--#include file="wapls_admin_bottom.asp"-->