admin_denews.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
call managemode
dim action
action=trim(request("action"))
select case action
case "add"
call add
case "de"
call de
case "addok"
call addok
case else
response.write("<script>alert('错误的参数传递！请确定你从有效链接进入！');history.back();</script>")
end select
sub add
%>
<script>
function check(){
if(form1.ntitle.value==""){
alert("请输入新闻标题！");
return false;
}
if(form1.ndt.value==""){
alert("请输入新闻加入时间！");
return false;
}
if(form1.ntext.value==""){
alert("请输入新闻内容！");
return false;
}
}
</script>
<table width="618" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<form action="?action=addok" method="post" name="form1" onSubmit="return check();">
  <tr bgcolor="#F3F3F3">
    <td height="26" colspan="3">　添加新闻</td>
  </tr>
  <tr>
    <td width="111" height="26" align="center" bgcolor="#FFFFFF">新闻标题：</td>
    <td bgcolor="#FFFFFF"><input name="ntitle" type="text" id="ntitle" size="40"></td>
    <td bgcolor="#FFFFFF">不大于60个汉字</td>
  </tr>
  <tr>
    <td height="26" align="center" bgcolor="#FFFFFF">新闻选项：</td>
    <td width="289" height="26" bgcolor="#FFFFFF">日期：
      <input name="ndt" type="text" id="ndt" size="15" value="<%=now()%>">
    置顶：
    <input name="ntop" type="checkbox" id="ntop" value="y"></td>
    <td width="202" bgcolor="#FFFFFF">钩上为置顶</td>
  </tr>
  <tr>
    <td height="26" align="center" bgcolor="#FFFFFF">上传文件：</td>
    <td height="26" colspan="2" bgcolor="#FFFFFF"><iframe frameborder=0 height="25" marginheight=0 marginwidth=0 scrolling=no width=300 src="upload_news_img.asp"  > </iframe></td>
  </tr>
  <tr>
    <td height="26" align="center" bgcolor="#FFFFFF">新闻内容：<br>
      [可用UBB代码]<br>
      [可上传文件]<br>
      上传文件后，框内的代码请不要乱修改，否则上传的文件无法显示。</td>
    <td height="26" colspan="2" bgcolor="#FFFFFF"><textarea name="ntext" cols="60" rows="12" id="ntext"></textarea></td>
  </tr>
  <tr align="center">
    <td height="26" colspan="3" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="添 加"> 　　 
      <input type="reset" name="Submit2" value="清 除"></td>
  </tr>
  </form>
</table>
<p>
  <%
end sub
sub addok
dim ntitle,ndt,ntop,ntext
ntitle=replace(trim(request("ntitle")),"'","")
ndt=replace(trim(request("ndt")),"'","")
ntop=request("ntop")
ntext=replace(request("ntext"),"'","”")
if ntop="y" then
ntop=1
else
ntop=0
end if
sql="insert into news (ntitle,ndt,ntop,ntext) values ('"&ntitle&"','"&ndt&"','"&ntop&"','"&ntext&"')"
conn.execute sql
closeconn
response.write("<script>alert('添加新闻成功！按确定重新载入！');location='admin_denews.asp?action=add';</script>")
end sub
sub de
set rs=server.CreateObject("ADODB.Recordset")
sql="select ntitle,ntop,id,ndt from news order by id desc"
rs.open sql,conn,1,2
rs.pagesize=15
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
%>
<table width="618" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr>
    <td height="26" bgcolor="#F3F3F3"><p>　选择操作新闻[删除][编辑]</p>    </td>
  </tr>
  <tr>
    <td height="26" align="center" bgcolor="#FFFFFF">
<%
		response.write ("<a href=?page=1&action=de>首页</a>　")
		if page>1 then
		response.write ("<a href=?page="&page-1&"&action=de>上一页</a>　")
		else
		response.write("上一页　")
		end if
		if page<pagec then
		response.write("<a href=?page="&page+1&"&action=de>下一页</a>　")
		else
		response.write("下一页　")
		end if
		response.write ("<a href=?page="&pagec&"&action=de>尾页</a>　")
		response.write ("当前："&page&"/"&pagec&"")
		%>	</td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="600" border="0" align="center" cellpadding="0" cellspacing="1">
      <tr align="center" bgcolor="#F7F7F7">
        <td width="30" height="26">ID</td>
        <td width="383">主题</td>
        <td width="115">日期</td>
        <td width="36">编辑</td>
        <td width="36">删除</td>
      </tr>
	  <%
	  a=0
do while not rs.eof and a<rs.pagesize
	  %>
      <tr>
        <td height="26" align="center"><%=rs("id")%></td>
        <td><%
		if rs("ntop")=1 then response.write ("<font color=#ff0000>[置顶新闻]</font>")
		response.write ("<a href='listnews.asp?id="&rs("id")&"' target=_blank>"&rs("ntitle")&"</a>")%></td>
        <td align="center"><%=rs("ndt")%></td>
        <td align="center"><a href="admin_mfk_news.asp?action=edit&id=<%=rs("id")%>"><img src="images/mfk30.gif" width="16" height="16" border="0"></a></td>
        <td align="center"><a href="admin_mfk_news.asp?action=del&id=<%=rs("id")%>"><img src="images/mfk26.gif" width="14" height="15" border="0"></a></td>
      </tr>
<%
rs.movenext
a=a+1
loop
%>
    </table></td>
  </tr>
  <tr>
    <td height="26" align="center" bgcolor="#FFFFFF">请选择相关操作！</td>
  </tr>
</table>

 <%
 rs.close
 set rs=nothing
end sub
manageend
%>
</p>