📄 admin_addnews.asp
字号:
<!--#include file="admin_head.asp"-->
<br><br>
<%
if request("method") = 1 then
if Request("Classid") = "" or Request("Nclassid") = "" then
Errmsg = "<li>请选择文章所属的大栏目及小栏目。"
FoundErr = true
else
Classid = Request("Classid")
Nclassid = Request("Nclassid")
end if
if Trim(Request.Form("title")) = "" then
Errmsg = Errmsg + "<li>请输入文章标题。"
FoundErr = true
else
Title = Qcdn.checkStr(Trim(Request.Form("title")))
end if
if Trim(Request("body")) = "" then
Errmsg = Errmsg + "<li>请输入文章内容。"
FoundErr = true
else
Content = Qcdn.checkStr(Trim(Request("body")))
end if
if Qcdn.StrLength(Request.Form("synopsis"))>255 then
Errmsg = Errmsg + "<li>输入的文章简介大于255字符的范围。"
FoundErr = true
else
synopsis = Qcdn.checkStr(Trim(Request.Form("synopsis")))
end if
if Trim(Request.Form("nkey")) = "" then
Errmsg = Errmsg + "<li>请输入相关文章。"
FoundErr = true
else
nkey = Qcdn.checkStr(Trim(Request.Form("nkey")))
end if
if FoundErr then
Call Qcdn.Err_List(Errmsg,1)
Response.End()
end if
Intime = Request("year1") & "-" & Request("month1") & "-" & Request("day1")
writer = Qcdn.checkStr(Trim(Request.Form("writer")))
writefrom = Qcdn.checkStr(Trim(Request.Form("writefrom")))
if Trim(Request.form("vouch")) = 1 then
vouch = Now()&Time()
else
vouch = Trim(Request.form("vouch"))
end if
if Trim(Request.form("DefaultPic")) <> "" then
pic = 1
DefaultPic = Trim(Request.form("DefaultPic"))
else
pic = Request.Form("pic")
DefaultPic = Trim(Request.form("DefaultPic"))
end if
Audit = Request.Form("Audit")
Popedom = Request.Form("Popedom")
Sql = "Insert into article_info(content,title,nclassid,classid,nkey,Intime,writer,writefrom,author,flag,pic,DefaultPic,synopsis,vouch,Audit,Popedom)values('"& content &"','"
Sql = Sql & title & "',"& nclassid &","& classid &",'"& nkey &"','"& Intime &"','"& writer &"','"& writefrom &"','"& Session("Admin_Name") &"',0,"& pic &",'"& DefaultPic &"','"& synopsis &"','"& vouch &"',"& Audit &","& Popedom &")"
Conn.execute(Sql)
Response.Write("<script>alert(""添加成功"");location.href=""admin_addnews.asp"";</script>")
Response.End()
end if
sql = "select * from article_class where flag <>0 order by Unid asc"
set rs = conn.execute(sql)
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%=Qcdn.HTMLcode(rs(1))%>","<%=rs(2)%>","<%=rs(0)%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.form1.Nclassid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form1.Nclassid.options[document.form1.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<script src="inc/forms.js"></script>
<table width="95%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolorlight="#ECEEE4" bordercolordark="#CCCABC">
<form action="" name="form1" method="post" onsubmit="WBTB_CopyData('Body');return check();">
<tr>
<td colspan="2" align="center" height="30" background="image/tablebg.gif"><b>添
加 文 章 内 容 </b> </td>
</tr>
<tr valign="middle">
<td width="15%" height="25">栏目选择：</td>
<td width="85%" height="25">
<%
sql = "select Unid,classname from article_class where flag = 0 order by Unid asc"
set rs = conn.execute(sql)
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
<select name="classid" onChange="changelocation(document.form1.classid.options[document.form1.classid.selectedIndex].value)" size="1">
<option value="">选择栏目</option>
<%do while not rs.eof%>
<option value="<%=rs(0)%>"><%=Qcdn.HTMLcode(rs(1))%></option>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
%>
</select>
<select name="Nclassid">
<option value="">选择栏目</option>
</select> <font color="red">*</font></td>
</tr>
<tr valign="middle">
<td height="25">文章标题：</td>
<td height="25">
<SELECT name=select4 onchange=Dotitle(this.options[this.selectedIndex].value)>
<OPTION selected value="">选择</OPTION> <OPTION value=[原创]>[原创]</OPTION>
<OPTION value=[转帖]>[转帖]</OPTION>
<OPTION value=[讨论]>[讨论]</OPTION>
<OPTION value=[推荐]>[推荐]</OPTION> <OPTION value=[公告]>[公告]</OPTION>
<OPTION value=[注意]>[注意]</OPTION>
<OPTION value=[分享]>[分享]</OPTION></SELECT>
<input name="title" type="text" size="65" maxlength="50"> <font color="red">*</font>
</td>
</tr>
<tr valign="middle">
<td height="25">上传图片：</td>
<td height="25">
<iframe name="ad" src="admin_upload.asp" width="300" height="25" frameborder=0 scrolling=no></iframe>
</td>
</tr>
<%
if LoadFiles then
%>
<tr valign="middle">
<td height="25">上传附件：</td>
<td height="25">
<iframe name="ad" src="admin_uploadF.asp" width="300" height="25" frameborder=0 scrolling=no></iframe>
</td>
</tr>
<%
end if
%>
<tr valign="middle">
<td height="25">默认图片：</td>
<td height="25">
<input type="text" name="DefaultPic" size="65">
</td>
</tr>
<tr valign="middle">
<td height="25">发布日期：</td>
<td height="25"> <select name="year1">
<option value="<%=year(Now())%>" selected><%=year(Now())%></option>
<%
for i=2001 to 2005
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
年
<select name="month1">
<option value="<%=month(Now())%>" selected><%=month(Now())%></option>
<%
for i=1 to 12
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
月
<select name="day1">
<option value="<%=day(Now())%>" selected><%=day(Now())%></option>
<%
for i=1 to 31
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
日</td>
</tr>
<!--
<tr valign="middle">
<td height="25">文章内容：</td>
<td height="25"><textarea name="content" cols="70" rows="15" id="content" style="font-size:14px"></textarea> <font color="red">*</font></td>
</tr>
-->
<tr valign="middle">
<td height="25">文章内容：</td>
<td height="25">
<!--#include file="inc/form_add.inc"-->
</td>
</tr>
<tr valign="middle">
<td height="25">文章简介：<br>（纯文本）</td>
<td height="25"><textarea name="synopsis" rows="3" cols="75" id="synopsis"></textarea>（限255字符）</td>
</tr>
<tr valign="middle">
<td height="25">相关文章：</td>
<td height="25"><input name="nkey" type="text" id="nkey" size="50" maxlength="50">
<select name="select" onchange=Dokey(this.options[this.selectedIndex].value)>
<option value="" selected></option>
<%Call Qcdn.OptionList(1)%>
</select> <font color="red">*</font></td>
</tr>
<tr valign="middle">
<td height="25">作 者：</td>
<td height="25"><input name="writer" type="text" id="writer" size="50" maxlength="50">
<select name="select2" onChange=Dowriter(this.options[this.selectedIndex].value)>
<option value="" selected></option>
<%Call Qcdn.OptionList(2)%>
</select> </td>
</tr>
<tr valign="middle">
<td height="25">来 源：</td>
<td height="25"><input name="writefrom" type="text" id="writefrom" size="50" maxlength="50">
<select name="select3" onChange=Dowritefrom(this.options[this.selectedIndex].value)>
<option value="" selected></option>
<%Call Qcdn.OptionList(3)%>
</select> </td>
</tr>
<tr valign="middle">
<td height="25">包含图片：</td>
<td height="25"> 是 <input type="radio" name="pic" value="1"> 否 <input type="radio" name="pic" value="0" checked>（在标题前面显示[图文]标志，热门文章、最新文章中不显示）</td>
</tr>
<tr valign="middle">
<td height="25">是否推荐：</td>
<td height="25"> 是 <input type="radio" name="vouch" value="1"> 否 <input type="radio" name="vouch" value="0" checked>（推荐文章需包含默认图片，显示在首页）</td>
</tr>
<tr valign="middle">
<td height="25">是否审核：</td>
<td height="25">
<%if AddAuditing then
Response.Write("是 <input type=radio name=Audit value=1> 否 <input type=radio name=Audit value=0 checked>")
else
Response.Write("<font color=red>系统停止了审核功能。</font>")
Response.Write("<input type=hidden name=Audit value=0>")
end if
%>
</td>
</tr>
<tr valign="middle">
<td height="25">是否会员浏览：</td>
<td height="25">
<%if AddPopedom then
Response.Write("是 <input type=radio name=Popedom value=1> 否 <input type=radio name=Popedom value=0 checked>")
else
Response.Write("<font color=red>系统停止了分权限浏览的功能。</font>")
Response.Write("<input type=hidden name=Popedom value=0>")
end if
%>
</td>
</tr>
<tr>
<td height="25" colspan="2" align="center"> <input type="submit" name="Submit" value=" 提 交 " class="tbutton">
<input type="reset" name="Submit2" value=" 重 置 " class="tbutton"> </td>
</tr>
<input type="hidden" name="method" value="1">
</form>
</table>
<script language="javascript">
function check(){
if (form1.classid.value =="" || form1.Nclassid.value==""){
alert("请选择栏目");
return false;
}
if (form1.title.value ==""){
alert("请输入标题");
form1.title.focus();
return false;
}
if (form1.Body.value ==""){
alert("请输入内容");
return false;
}
if (form1.nkey.value ==""){
alert("请输入相关文章");
form1.nkey.focus();
return false;
}
return true;
}
</script>
<!--#include file="admin_copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -