📄 admin_newsadd.asp
字号:
<!--#include file = "include.asp"-->
<!--#include file = "sowind.asp"-->
<!--#include file = "admin_checkmana.asp"-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持：风讯在线论坛(http://bbs.cooin.com http://bbs.foosun.net)
'=========================================================
classen = Request("classen")
if EnoughPopedom(classen)=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
%>
<%
set rs = server.createobject("adodb.recordset")
sql = "select NewsTemplet,ClassCN,ClassEN from newsClass where ClassCN='"&request.querystring("ClassCN")&"'"
rs.open sql,conn,1,1
set rs1 = server.createobject("adodb.recordset")
sql1 = "select TempletName from Templet where TempletType='News' order by id desc "
rs1.open sql1,conn,1,1
%>
<SCRIPT language=JavaScript src="Inc/addNews.js"></SCRIPT>
<body bgcolor="#FFFFFF">
<form action="admin_NewsSave.asp?result=ADD" method="POST" name="form" id="form" onsubmit="return CheckNews()">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#339900">
<tr>
<td bgcolor="#F7FFF4"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
<tr>
<td height="26"> <div align="center"><b>添加新闻 </b></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="29" bgcolor="#F7FFF4"> 信息标题：
<%Call title%>
<input name=title size="50">
<br>
副 标 题<font color="#000000">：
<%Call title1%>
<input name="stitle" type="text" id="stitle" size="50" Disabled>
预留功能 </font></td>
</tr>
<tr>
<td height="29" bgcolor="#F7FFF4"><font color="#FF0000"><font color="#000000"> </font><font color="#000000">标题新闻：
<input id=pititle type="radio" name="BiaotiNews" value="true" onclick="return Checkpititle()">
是
<input name="BiaotiNews" type="radio" value="false" checked onclick="return Checkpititle()">
否 转向联接地址：
<input name=UBiaotiNews size="40">
请在地址前加http://</font></font></td>
</tr>
<tr>
<td height="29" bgcolor="#F7FFF4"> 图片新闻<font color="#000000">：
<input id=pi type="radio" name="PicNews" value="true" onclick="return Checkpi()">
是
<input id=pi1 name="PicNews" type="radio" value="false" checked onclick="return Checkpi()">
否 <font color="#0000FF">用于在首页(及图片新闻)的图片文章处显示
</font></font></td>
</tr>
<tr>
<td bgcolor="#F7FFF4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#43CE00" id=pi style="DISPLAY: none ">
<tr bgcolor="#F7FFF4">
<td><div align="right">图片新闻导航说明:</div></td>
<td bgcolor="#F7FFF4">
<textarea name="DhWords" cols="60" id="DhWords"></textarea>
<font color="#0000FF">不能使用HTML代码！</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td width="16%"> <div align="right">添加图片到首页:</div></td>
<td width="84%"> <input type="radio" name="PicNewsi" value="true">
是
<input name="PicNewsi" type="radio" value="false" checked>
否 <font color="#0000FF">是否把此图片添加到首页新闻图片中</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td> <div align="right">图片地址:</div></td>
<td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>小图：
<input name="PicNewsa" type="text" id="PicNewsa" size="40">
<input type="button" name="Button" value="选择小图片" onClick="window.open('FilesManage/index.asp?CurrentPath=/Files','ResWin','resizable,scrollbars,width=600,height=500')" class=Anbutc>
<input id=Upb name="Upbox" type="checkbox" value="checkbox" onclick="return Checkupbox()">
[上传图片]<br>
大图：
<input name="PicNewsa1" type="text" id="PicNewsa1" size="40">
<input type="button" name="Button" value="选择大图片" onClick="window.open('FilesManage/index.asp?CurrentPath=/Files','ResWin','resizable,scrollbars,width=600,height=500')" class=Anbutc></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" id=Upb style="DISPLAY: none ">
<tr>
<td width="7%">图片：</td>
<td width="93%" align=left><iframe style="top:2px" ID="UploadFiles" src="admin_Upload.asp" frameborder=0 scrolling=no width="100%" height="25"></iframe></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#339900" id=pititle style="DISPLAY: ">
<tr>
<td valign="top"> <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#339900">
<tr>
<td width="31%" height="317" rowspan="2" valign="top" bgcolor="#F7FFF4" >
<div align="left">
<table width="97%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#42CA00">
<tr bgcolor="#F3FFF0">
<td colspan="3"> <iframe style="top:2px" ID="UploadFiles" src="Upload_Pic.asp" frameborder=0 scrolling=no width="200" height="25"></iframe>
</td>
</tr>
<tr bgcolor="#F3FFF0">
<td width="41%"> <div align="right">字体大小：</div></td>
<td width="59%" colspan="2">
<% Call FontSize%>
</td>
</tr>
<tr bgcolor="#F3FFF0">
<td> <div align="right">字体颜色：</div></td>
<td colspan="2">
<% Call FontColor%>
</td>
</tr>
<tr bgcolor="#F3FFF0">
<td> <div align="right">字体样式：</div></td>
<td colspan="2">
<% Call FontFace%>
</td>
</tr>
<tr bgcolor="#F3FFF0">
<td> <div align="right">文字背景颜色：</div></td>
<td colspan="2">
<% Call FontBackColor%>
</td>
</tr>
<tr bgcolor="#D3FFC4">
<td colspan="3"> <div align="center">推荐：
<input type="checkbox" name="Recommend" value="X">
源码模式：
<input onClick="setMode(this.checked);" name=viewhtml type="checkbox" value="ON">
</div></td>
</tr>
<tr bgcolor="#E8FFE1">
<td> <div align="right"><font color="#FF0000">选择模板：</font></div></td>
<td colspan="2"> <select name=Templet>
<%
while not rs1.eof
if rs("NewsTemplet")=rs1("TempletName") then
%>
<option value="<%=rs1("TempletName")%>" selected><%=rs1("TempletName")%></option>
<%
else
%>
<option value="<%=rs1("TempletName")%>"><%=rs1("TempletName")%></option>
<%
end if
rs1.movenext
wend
%>
</select> <input type="Hidden" name=ClassEN value=<%=rs("ClassEN")%>>
<input type="Hidden" name=ClassCN value=<%=rs("ClassCN")%>>
<input name="Content" type="hidden" id="Content4" value="">
<%
rs.close
set rs=nothing
rs1.close
set rs1=nothing
%>
</td>
</tr>
<tr bgcolor="#E8FFE1">
<td> <div align="right">所属于专题：</div></td>
<td colspan="2"> <select name="SpeicalCn">
<option selected></option>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from Speical order by id desc "
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("SpeicalCn")%>"><%=rs("SpeicalCn")%></option>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</select></td>
</tr>
<tr bgcolor="#E8FFE1">
<td> <div align="right">新闻关键字：</div></td>
<td colspan="2"> <input type="text" name="Keyword" size="10">
<select name="Keyword1" id="select6" onChange=Dokesite(this.options[this.selectedIndex].value)>
<option value="" selected> </option>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from keys order by id desc "
rs.open rs.source,conn,1,1
while not rs.eof
%>
<option value="<%=rs("keywords")%>"><%=rs("keywords")%></option>
<%
rs.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -