admin_article.asp

小说站源代码文件

      If i>=MaxArticlePerPage Then  Exit  Do
      Rs.MoveNext
   Loop
%><tr>
			<td height="20" align="center" colspan="8" class="alt3">
			<input name="info" type="hidden" value="article_list">
			<input class="button" type="button" onclick="CheckAll(this.form)" value="全选" name="chkall" style="width: 45; height: 20">
			<input class="button" type="button" onclick="CheckOthers(this.form)" value="反选" name="chkOthers" style="width: 45; height: 20">
			<input class="button" type="submit" value="删除" name="docndb" style="width: 45; height: 20">
			<input class="button" type="submit" value="通过审核" name="docndb" style="width: 60; height: 20">
			<input class="button" type="submit" value="取消审核" name="docndb" style="width: 60; height: 20">
			</td>
		</tr>
	</form>
	<%End If
Rs.Close
Set  Rs=Nothing%>
	<tr align="center">
		<td height="25" colspan="9" class="alt2"><%Response.Write ShowPage("admin_Article.asp?info=list&cndb="&cndb&"&id="&id&"",CurrentPage,Num,MaxArticlePerPage,True,True," 个项目")%></td>
	</tr>
</table>
<%end sub

Sub add()%>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="tborder">
	<tr height="25">
		<td colspan="4" class="thead">发表文章</td>
	</tr>
	<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('<%=ArticlesizeNum%>');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("CnEndWeb（终点）提醒：\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("CnEndWeb（终点）提醒：\n请完成标题或内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("CnEndWeb（终点）提醒：\n您的标题超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("CnEndWeb（终点）提醒：\n文章内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}			
theform.replysubmit.disabled = true;
return true;
}
</script>
	<form action="admin_works.asp?info=article_add" method="post" name="input" onsubmit="return validate(this)">
		<script language="JavaScript" src="../js/bbcode.js"></script>
		<tr>
			<td colspan="4" class="alt3">
			<div id="panx">
				<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
					<tr>
						<td width="25%" height="22" align="right" class="alt2">文章类型：</td>
						<td width="75%" colspan="3" class="alt1">
						<div class="select"><div><select name="Ar_class" size="1" class="form"><%
set rs=server.CreateObject("ADODB.recordset")
sql="select id,classname from Ar_class"
rs.open sql,conn,1,1
	Do while not rs.eof
%>
						<option value="<%=CStr(rs("id"))%>" name="Ar_class"><%=rs("classname")%>
						</option>
						<%rs.MoveNext
	Loop
rs.close
Set  Rs=Nothing
%></select></div></div>　<a href="admin_Article.asp?info=classadd">添加分类？</a></td>
					</tr>
					<tr>
						<td width="25%" height="22" align="right" class="alt2">文章名称：</td>
						<td width="75%" colspan="3" class="alt1">
						<input name="subject" type="text" size="40" type="reset" class="form"></td>
					</tr>
					<tr>
						<td height="22" align="right" class="alt2">文章作者：<br>
						</td>
						<td colspan="3" class="alt1">
						<input name="Ar_username" type="text" size="40" type="reset" class="form" value="<%=request.cookies("CnendWeb")("admininfo_loginname")%>"></td>
					</tr>
					<tr>
						<td height="22" align="right" class="alt2">关键字：<br>
						</td>
						<td colspan="3" class="alt1">
						<input name="Ar_key" type="text" size="40" type="reset" class="form"><br>
						为方便检索请输入关键字多个关键字请用“,”分隔。</td>
					</tr>
					<tr>
						<td height="22" align="right" class="alt2">CnEndcode 代码：<br>
						<input onclick="chmode('2')" type="radio" checked value="2" name="mode"> 
						提示插入&nbsp;&nbsp;&nbsp; <br>
						<input onclick="chmode('0')" type="radio" value="0" name="mode"> 
						直接插入&nbsp;&nbsp;&nbsp; <br>
						<input onclick="chmode('1')" type="radio" value="1" name="mode"> 
						帮助信息&nbsp;&nbsp;&nbsp; </td>
						<td colspan="3" class="alt1">
						<!--#include file="../inc/ubbcode.asp"--></td>
					</tr>
					<tr>
						<td height="22" align="right" valign="top" class="alt2">
						<br>
						<br>
						<br>
						文章内容<a class="smalltxt" onclick="checklength(document.input)"> 
						[字数检查]</a>：<br>
						</td>
						<td colspan="3" class="alt1">
						<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 96%; HEIGHT: 350px" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"></textarea>
						<br>
						<input name="attach" type="hidden">
						<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleview" name="a" height="35" width="450">
						</iframe></td>
					</tr>
					<tr>
						<td width="15%" height="22" align="right" valign="middle" class="alt2">
						是否通过验证：<br>
						</td>
						<td width="35%" class="alt1">
						<input type="radio" name="Ar_lock" value="0" checked class="form">通过&nbsp; 
						<input name="Ar_lock" type="radio" value="1" class="form">不通过</td>
						<td width="15%" height="22" align="right" valign="middle" class="alt2">
						保存远程图片：<br>
						</td>
						<td width="35%" class="alt1">
						<input type="radio" name="downpic" value="1"> 保存 
						<input name="downpic" type="radio" value="0" checked> 不保存</td>
					</tr>
				</table>
			</div>
			<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
				<input type="submit" class="button" value="确认发表"> 　 
				<input type="reset" class="button" value="重置内容"> </div>
			</td>
		</tr>
	</form>
</table>
<%end sub

Sub edit()
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
cndb=request.querystring("cndb")
page=request.querystring("page")
key_keyword=request.querystring("key_keyword")
key_type=request.querystring("key_type")
urltype=request.querystring("urltype")

set rs4=server.CreateObject("ADODB.recordset")
sql4="select ar_id,Ar_name,Ar_username,Ar_key,Ar_Content,ar_lock from Article where Ar_id="&id&""
rs4.open sql4,conn,1,1
%><table width="100%" class="tborder" border="0" align="center" cellpadding="1" cellspacing="1" id="table3">
	<tr height="25">
		<td colspan="4" class="thead">修改文章</td>
	</tr>
	<script language="JavaScript">
var postminchars = parseInt('2');
var postmaxchars = parseInt('<%=ArticlesizeNum%>');
var disablepostctrl = parseInt('0');
function checklength(theform) {
if (postmaxchars != 0) { message = "系统限制: "+postminchars+" 到 "+postmaxchars+" 字节"; }
else { message = ""; }
alert("CnEndWeb（终点）提醒：\n当前长度: "+theform.message.value.length+" 字节\n\n"+message);
}
function validate(theform) {
if (theform.message.value == "" && theform.subject.value == "") {
alert("CnEndWeb（终点）提醒：\n请完成标题或内容栏。");
return false;
} else if (theform.subject.value.length > 200) {
alert("CnEndWeb（终点）提醒：\n您的标题超过 200 个字符的限制。");
return false;
}
if (!disablepostctrl && ((postminchars != 0 && theform.message.value.length < postminchars) || (postmaxchars != 0 && theform.message.value.length > postmaxchars))) {
alert("CnEndWeb（终点）提醒：\n文章内容长度不符合要求。\n\n当前长度: "+theform.message.value.length+" 字节\n系统限制: "+postminchars+" 到 "+postmaxchars+" 字节");
return false;
}			
theform.replysubmit.disabled = true;
return true;
}
</script>
	<form action="admin_works.asp?urltype=<%=urltype%>&info=article_edit&id=<%=id%>&cndb=<%=cndb%>&key_type=<%=key_type%>&key_keyword=<%=key_keyword%>&page=<%=Page%>" method="post" name="input" onsubmit="return validate(this)">
		<script language="JavaScript" src="../js/bbcode.js"></script>
		<tr>
			<td colspan="4" class="alt3">
			<div id="panx">
				<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="panel">
					<tr>
						<td width="25%" height="22" align="right" class="alt2">文章类型：<br>
						</td>
						<td width="75%" class="alt1" colspan="3">
						<div class="select"><div><select name="Ar_class" size="1" class="form"><%
set rs=server.CreateObject("ADODB.recordset")
sql="select id,classname from Ar_class"
rs.open sql,conn,1,1
	Do while not rs.eof
%>
						<option value="<%=CStr(rs("id"))%>" name="Ar_class" <%if cstr(rs4("ar_id"))=cstr(rs("id")) then response.write(" selected") end if%>>
						<%=rs("classname")%></option>
						<%
	rs.MoveNext
	Loop
	rs.close
Set  Rs=Nothing
%></select></div></div>　<a href="admin_Article.asp?info=classadd">添加分类？</a></td>
					</tr>
					<tr>
						<td width="25%" height="22" align="right" class="alt2">文章名称：<br>
						</td>
						<td width="75%" colspan="3" class="alt1">
						<input name="subject" type="text" value="<%=rs4("Ar_name")%>" size="40" type="reset" class="form"></td>
					</tr>
					<tr>
						<td height="22" align="right" class="alt2">文章作者：<br>
						</td>
						<td colspan="3" class="alt1">
						<input name="Ar_username" type="text" value="<%=rs4("Ar_username")%>" size="40" type="reset" class="form"></td>
					</tr>
					<tr>
						<td height="22" align="right" class="alt2">关键字：<br>
						</td>
						<td colspan="3" class="alt1">
						<input name="Ar_key" type="text" value="<%=rs4("Ar_key")%>" size="40" type="reset" class="form">为方便检索请输入关键字多个关键字请用“,”分隔。</td>
					</tr>
					<tr>
						<td height="22" class="alt2" align="right">CnEndcode 代码：<br>
						<input onclick="chmode('2')" type="radio" checked value="2" name="mode"> 
						提示插入&nbsp;&nbsp;&nbsp; <br>
						<input onclick="chmode('0')" type="radio" value="0" name="mode"> 
						直接插入&nbsp;&nbsp;&nbsp; <br>
						<input onclick="chmode('1')" type="radio" value="1" name="mode"> 
						帮助信息&nbsp;&nbsp;&nbsp; </td>
						<td colspan="3" class="alt1">
						<!--#include file="../inc/ubbcode.asp"--></td>
					</tr>
					<tr>
						<td height="22" align="right" valign="top" class="alt2">
						<br>
						<br>
						<br>
						文章内容<a class="smalltxt" onclick="checklength(document.input)"> 
						[字数检查]</a>：<br>
						</td>
						<td colspan="3" class="alt1">
						<textarea onkeydown="ctlent(event);" onkeyup="javascript: storeCaret(this);" style="WIDTH: 96%; HEIGHT: 350px" onclick="javascript: storeCaret(this);" tabindex="4" name="message" rows="18" onselect="javascript: storeCaret(this);"><%response.write htmlen(rs4("Ar_Content"))%></textarea>
						<br>
						<iframe border="0" frameborder="0" noresize scrolling="no" src="Admin_upload.asp?info=articleview" name="a" height="35" width="450">
						</iframe></td>
					</tr>
					<tr>
						<td width="25%" align="right" class="alt2">是否通过审核：</td>
						<td width="25%" class="alt1">
						<input type="radio" name="Ar_lock" value="0" <%if rs4("ar_lock")=0 then response.write(" checked") end if%>>通过&nbsp; 
						<input name="Ar_lock" type="radio" value="1" <%if rs4("ar_lock")=1 then response.write(" checked") end if%>>不通过</td>
						</td>
						<input name="attach" type="hidden">
						<td width="15%" height="22" align="right" valign="middle" class="alt2">
						保存远程图片：<br>
						</td>
						<td width="35%" class="alt1">
						<input type="radio" name="downpic" value="1"> 保存 
						<input name="downpic" type="radio" value="0" checked> 不保存</td>
					</tr>
				</table>
			</div>
			<div style="MARGIN-TOP: 6px;MARGIN-bottom: 6px" align="center">
				<input type="submit" class="button" value="确认修改"> 　 
				<input type="reset" class="button" value="重置内容"> </div>
			</td>
		</tr>
	</form>
</table>
<%	rs4.close
	set rs4=nothing
end sub%>

</body>

</html>