www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/add_news.asp
<!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
<title>增加新闻</title>
<script src="images/color.js" type="text/javascript"></script>
<%
Dim htmlData
htmlData = Request.Form("body")
Function htmlspecialchars(str)
str = Replace(str, "&", "&")
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
str = Replace(str, """", """)
htmlspecialchars = str
End Function
%>
<link rel="stylesheet" href="themes/default/default.css" />
<link rel="stylesheet" href="plugins/code/prettify.css" />
<script charset="utf-8" src="kindeditor.js"></script>
<script charset="utf-8" src="lang/zh_CN.js"></script>
<script charset="utf-8" src="plugins/code/prettify.js"></script>
<script>
KindEditor.ready(function(K) {
var editor1 = K.create('textarea[name="body"]', {
cssPath : 'plugins/code/prettify.css',
uploadJson : 'asp/upload_json.asp',
fileManagerJson : 'asp/file_manager_json.asp',
allowFileManager : true,
afterCreate : function() {
var self = this;
K.ctrl(document, 13, function() {
self.sync();
K('form[name=add]')[0].submit();
});
K.ctrl(self.edit.doc, 13, function() {
self.sync();
K('form[name=add]')[0].submit();
});
}
});
prettyPrint();
});
</script>
</head>
<body>
<form name="add" method="post" action="add_news_pass.asp">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
<tr>
<td height="30" background="images/bg_list.gif"><div style="padding-left:10px; font-weight:bold; color:#0075a9">增加新闻</div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
<td height="28" width="16%" class="td">新闻标题 <font color="#FF0000">*</font></td>
<td colspan="2" class="td">
<input name="title" type="text" size="40" />
标题颜色： <input name="color" type="text" id="colorPicker" size="10">
<script type="text/javascript" src="images/Deepteach_colorPicker.js"></script>
<label></label></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td width="16%" height="13" class="td">新闻分类</td>
<td colspan="2" class="td"><select name="ssfl" id="select">
<%
dim rsc
set rsc=server.CreateObject("adodb.recordset")
rsc.open "select * from news_fl",conn,1,1
while not rsc.eof
response.Write("<option value=""" & rsc("id") & """>" & rsc("title") & "</option>")
rsc.movenext
wend
rsc.close
set rsc=nothing
%>
</select></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td width="16%" height="12" class="td">外部链接</td>
<td colspan="2" class="td"><input name="url" type="text" size="40" />
如填写，则直接跳转到外部链接地址。以下信息将无效！</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="25" width="16%" class="td">新闻来源</td>
<td colspan="2" class="td"><input name="ly" type="text" value="本站" size="30" /></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="13" class="td">发布作者</td>
<td colspan="2" class="td"><%
exec="select * from i5808 where id="&session("admin")&""
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%> <input name="zz" type="text" value="<%=rs("admin")%>" size="30" /></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="3" class="td">标题略缩图</td>
<td width="17%" class="td"><input name="img" type="text" id="PhotoUrl" size="30" maxlength="200"></td>
<td width="67%" class="td"><iframe style="top:2px" id="UploadFiles" src="upload_Photo.asp?PhotoUrlID=0" frameborder=0 scrolling=no width="320" height="25"></iframe></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="30" bgcolor="#F1F5F8" class="td">关键词</td>
<td colspan="2" bgcolor="#F1F5F8" class="td"><input name="keywords" type="text" id="keywords" size="30" />
不设置留空默认格式为：文章标题+文章类别+网站名称</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="30" class="td">描述</td>
<td colspan="2" class="td"><textarea name="description" cols="50" rows="5" id="description"></textarea>
不设置留空默认格式为：文章内容前200个字符</td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="25" class="td">新闻内容 <font color="#FF0000">*</font><br><script>
function oCopy(obj){
obj.select();
js=obj.createTextRange();
js.execCommand("Copy")
}
</script>
点击一下即可复制<input onClick="oCopy(this)" value="[YiFanPage]" size="13" maxlength="13">
分页符</td>
<td colspan="2" class="td"><textarea name="body" id="body" style="width:700px;height:300px;visibility:hidden;"></textarea></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
<td height="13" class="td">是否推荐</td>
<td colspan="2" class="td"><label>
<input name="tuijian" type="radio" value="0" checked="checked" />不推荐
<input type="radio" name="tuijian" value="1" />推荐
<input name="zhiding" type="checkbox" id="zhiding" value="1" />
文章置顶
<input name="qx" type="checkbox" id="qx" value="1" />
仅会员可以查看
</label></td>
</tr>
<tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
<td height="12" class="td"> </td>
<td colspan="2" class="td"><input type="submit" name="button" id="button" value="确认提交" class="btn"/></td>
</tr>
</table>
</td>
</tr>
</table></form>
</body>
</html>