📄 admin_newsmodify.asp
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<!--#include file = sowind.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)
'=========================================================
%>
<%
if request.querystring("NewsID")="" then response.redirect"admin_NewsManage.asp"
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from News where NewsID="&request.querystring("NewsID")&" "
rs.open sql,conn,1,1
set rs1=Server.CreateObject("adodb.recordset")
sql1="select * from Templet where TempletType='News' order by id desc"
rs1.open sql1,conn,1,1
set rs3=Server.CreateObject("adodb.Recordset")
sql3="select * from newsClass where ClassCN='"&rs("ClassCN")&"'"
rs3.open sql3,conn,1,1
bingpai=rs("bingpai")
zimu=Rs("zimu")
PicNews=rs("PicNews")
PicNewsi=rs("PicNewsi")
%>
<body bgcolor="#FFFFFF">
<form name="form" method="POST" action="admin_NewsSave.asp?result=Modify" onsubmit="return CheckNews()">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#339900">
<tr>
<td><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 value="<%=rs("title")%>" size="56">
日期:
<input name="Date" type="text" id="Date" value=<%=rs("Date")%> size="10">
<font color="#0000FF">格式：2003-8-6 </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()" <% if rs("BiaotiNews")=true then response.write "checked" %>>
是
<input name="BiaotiNews" type="radio" value="false" <% if rs("BiaotiNews")=false then response.write "checked" %> onclick="return Checkpititle()">
否 转向联接地址：
<input name=UBiaotiNews value="<%=rs("UBiaotiNews")%>" size="40">
</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()" <% if rs("PicNews")=true then response.write "checked" %>>
是
<input id=pi1 name="PicNews" type="radio" value="false" <% if rs("PicNews")=false then response.write "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"><%=rs("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" <% if rs("PicNewsi")=true then response.write "checked" %>>
是
<input name="PicNewsi" type="radio" value="false" <% if rs("PicNewsi")=false then response.write "checked" %>>
否 <font color="#0000FF">是否把此图片添加到首页新闻图片中</font></td>
</tr>
<tr bgcolor="#F7FFF4">
<td> <div align="right">图片地址:</div></td>
<td> 大图：
<input name="PicNewsa" type="text" id="PicNewsa" value="<%=rs("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>
<br>
大图：
<input name="PicNewsa1" type="text" id="PicNewsa1" value="<%=rs("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>
</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="#F3FFF0">
<td> <div align="right">新闻文件名：</div></td>
<td colspan="2"> <%=rs("FileName")%>.html
<input type=hidden name=FileName value=<%=rs("FileName")%>></td>
</tr>
<tr bgcolor="#D3FFC4">
<td colspan="3"> <div align="center">推荐：
<input type="checkbox" name="Recommend" value="X"<%if rs("recommend")=true then response.Write("checked")%>>
源码模式：
<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 id="Templet">
<%
while not rs1.eof
if rs("Templet")=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=<%=rs3("ClassEN")%>>
<input type=hidden name=ClassCN value=<%=rs3("ClassCN")%>>
<input type=hidden name=NewsID value=<%=rs("NewsID")%>>
</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">新闻关键字：<br>
</div></td>
<td colspan="2"> <input name="Keyword" type="text" 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
wend
rs.close
set rs=nothing
%>
</select> <font color="#FF0000"><a href="admin_key.asp" target="_blank"><font color="#FF0000">管理</font></a></font></td>
</tr>
<tr bgcolor="#E8FFE1">
<td> <div align="right">新闻作者：</div></td>
<td colspan="2"> <input type="text" name="Author" size="10">
<select name="Author1" id="select7" onChange=Doauthsite(this.options[this.selectedIndex].value)>
<option value="" selected> </option>
<%
set rs = server.createobject("adodb.recordset")
rs.source = "select * from sourcea where Settype=2 order by id desc "
rs.open rs.source,conn,1,1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -