articlelist.asp

来自「小游戏网站演示www.4399.io 拥有4万条游戏数据」· ASP 代码 · 共 579 行 · 第 1/2 页

		ErrMsg = ErrMsg + "<li>该一级分类已经有下属分类，不能添加内容！</li>"
	End If
	If Trim(Request.Form("ClassID")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>该分类是外部连接，不能添加内容！</li>"
	End If
	TextContent = ""
	For i = 1 To Request.Form("content").Count
		TextContent = TextContent & Request.Form("content")(i)
	Next
	If Trim(TextContent) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>文章内容不能为空！</li>"
	End If
	If Len(TextContent) > CLng(GroupSetting(16)) And CLng(GroupSetting(16))>0 Then
		ErrMsg = ErrMsg + "<li>文章内容不能大于" & GroupSetting(16) & "字符！</li>"
		Founderr = True
	End If
	If Newasp.setUserEditor(0) <> 0 Then
		TextContent = Newasp.HTMLEncode(TextContent)
	End If
	TextContent = Re_Replace(TextContent, InstallDir_ChannelDir, "[InstallDir_ChannelDir]")
	If CInt(GroupSetting(2)) = 1 Then
		If Not Newasp.CodeIsTrue() Then
			ErrMsg = ErrMsg + "<meta http-equiv=refresh content=""2;URL="&Request.ServerVariables("HTTP_REFERER")&"""><li>验证码校验失败，请返回刷新页面再试。两秒后自动返回</li>"
			Founderr = True
		End If
		Session("GetCode") = ""
	End If	
	If Founderr = True Then Exit Sub
	On Error Resume Next
	Call PreventRefresh  '防刷新
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM NC_Article WHERE username='" & MemberName & "' And ArticleID=" & CLng(ArticleID)
	Rs.Open SQL,Conn,1,3
		'Rs("ChannelID") = ChannelID
		Rs("ClassID") = Newasp.CheckNumeric(Request.Form("ClassID"))
		Rs("title") = Newasp.ChkFormStr(Request.Form("title"))
		Rs("content") = Html2Ubb(TextContent)
		Rs("Related") = Newasp.ChkFormStr(Request.Form("Related"))
		Rs("Author") = Newasp.ChkFormStr(Request.Form("Author"))
		Rs("ComeFrom") = Newasp.ChkFormStr(Request.Form("ComeFrom"))
		Rs("star") = Newasp.ChkNumeric(Request.Form("star"))
		'Rs("username") = Trim(MemberName)
		Rs("BriefTopic") = Newasp.ChkNumeric(Request.Form("BriefTopic"))
		Rs("ImageUrl") = Newasp.ChkFormStr(Request.Form("ImageUrl"))
		Rs("UploadImage") = Newasp.ChkFormStr(Request.Form("UploadFileList"))
		'Rs("isAccept") = isAccept
		Rs("AlphaIndex") = Newasp.ReadAlpha(ubb.CheckSpecialChar(Request.Form("title")))
	Rs.update
	ArticleID = Rs("ArticleID")
	Rs.Close:Set Rs = Nothing
	Call Returnsuc("<li>恭喜您！修改文章成功。</li><li><a href=?action=view&ChannelID=" & ChannelID & "&ArticleID=" & ArticleID & ">点击此处查看该文章</a></li>")
End Sub
Function InitSelect(UploadFileList, ImageUrl)
	Dim i
	InitSelect = "<select name='ImageFileList' onChange=""ImageUrl.value=this.value;"">"
	InitSelect = InitSelect & "<option value=''>不选择首页推荐图片</option>"
	If Not IsNull(UploadFileList) Then
		UploadFileList = Split(UploadFileList, "|")
		For i = 0 To UBound(UploadFileList)
			If UploadFileList(i) <> "" Then
				InitSelect = InitSelect & "<option value=""" & UploadFileList(i) & """"
				If UploadFileList(i) = ImageUrl Then
					InitSelect = InitSelect & " selected"
				End If
				InitSelect = InitSelect & ">" & UploadFileList(i) & "</option>"
			End If
		Next
	End If
	InitSelect = InitSelect & "</select>"
End Function
Sub EditArticle()
	Dim ClassID
	If CInt(GroupSetting(8)) = 0 Then
		ErrMsg = ErrMsg + "<li>对不起！您没有修改文章的权限，如需要该权限请联系管理员。</li>"
		Founderr = True
		Exit Sub
	End If
	If Founderr = True Then Exit Sub
	If ArticleID = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
		Exit Sub
	End If
	If ChannelID = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请指定频道。</li>"
		Exit Sub
	End If
	SQL = "SELECT * FROM NC_Article WHERE ChannelID=" & ChannelID & " And username='" & MemberName & "' And ArticleID=" & CLng(ArticleID)
	Set Rs = Newasp.Execute(SQL)
	If Rs.bof And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>Sorry！没有找到任何文章。或者您选择了错误的系统参数！</li>"
		Exit Sub
	End If
	ClassID = Rs("ClassID")
	If Rs("isAccept") <> 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>此文章已经通过审核,您没有权限修改,如有什么问题请联系管理员。</li>"
		Set Rs = Nothing
		Exit Sub
	End If
%>
<script language=JavaScript>
var _maxCount = '<%=CLng(GroupSetting(16))%>';
function doChange(objText, objDrop){
	if (!objDrop) return;
	if(document.myform.BriefTopic.selectedIndex<2){
		document.myform.BriefTopic.selectedIndex+=1;
	}
	var str = objText.value;
	var arr = str.split("|");
	var nIndex = objDrop.selectedIndex;
	objDrop.length=1;
	for (var i=0; i<arr.length; i++){
		objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
	}
	objDrop.selectedIndex = nIndex;
}
function doSubmit(){
	var form1 = document.myform;
	if (form1.title.value==""){
		alert("文章标题不能为空！");
		form1.title.focus();
		return false;
	}
	if (form1.Author.value==""){
		alert("文章作者不能为空！");
		form1.Author.focus();
		return false;
	}
	if (form1.ComeFrom.value==""){
		alert("文章来源不能为空！");
		form1.ComeFrom.focus();
		return false;
	}
	if (form1.ClassID.value==""){
		alert("该一级分类已经有下属分类，请选择其下属分类！");
		form1.ClassID.focus();
		return false;
	}
	if (form1.ClassID.value=="0"){
		alert("该分类是外部连接，不能添加内容！");
		form1.ClassID.focus();
		return false;
	}
	<%If CInt(GroupSetting(2)) = 1 Then%>
	if (form1.codestr.value==""){
		alert("请填写验证码！");
		form1.codestr.focus();
		return false;
	}
	<%End If%>
	var strLen=0;
	try{
		strLen=GetContentLength();
	}
	catch(e){
		strLen=form1.content.value.length;
	}
	if(strLen < 2){
		alert("文章内容不能小于2个字符！");
		return false;
	}
	if(strLen > _maxCount){
		alert("文章的内容不能超过"+_maxCount+"个字符！");
		return false;
	}
}
</script>
<div onkeydown="CtrlEnter()">
<table class="Usertableborder" cellspacing="1" cellpadding="3" align="center" border="0">
<tbody>
	<tr>
		<th colspan="2">&gt;&gt;发布文章&lt;&lt;</th>
	</tr>
	<form action="Articlelist.Asp" method="post" onsubmit="return doSubmit()" name="myform">
	<input type="hidden" name="action" value="save"/>
	<input type="hidden" name="ChannelID" value="<%=ChannelID%>"/>
	<input type="hidden" name="ArticleID" value="<%=Rs("ArticleID")%>"/>
		<tr>
			<td class="usertablerow2" nowrap="nowrap" align="right" width="15%"><strong>所属分类</strong></td>
			<td class="usertablerow1" width="85%"><%
	Dim sClassSelect
	Response.Write "<select name=""ClassID"" id=""ClassID"">"
	sClassSelect = Newasp.LoadSelectClass(ChannelID)
	sClassSelect = Replace(sClassSelect, "{ClassID=" & ClassID & "}", "selected")
	Response.Write sClassSelect
	Response.Write "</select>"
%></td>
		</tr>
		<tr>
			<td class="usertablerow2" nowrap="nowrap" align="right"><strong>文章标题</strong></td>
			<td class="usertablerow1"><select id="BriefTopic" name="BriefTopic">
			<option value="0">选择话题</option>
			<option value="0"<%If Rs("BriefTopic") = 0 Then Response.Write (" selected=""selected""")%>>选择话题</option>
			<option value="1"<%If Rs("BriefTopic") = 1 Then Response.Write (" selected=""selected""")%>>[图文]</option>
			<option value="2"<%If Rs("BriefTopic") = 2 Then Response.Write (" selected=""selected""")%>>[组图]</option>
			<option value="3"<%If Rs("BriefTopic") = 3 Then Response.Write (" selected=""selected""")%>>[新闻]</option>
			<option value="4"<%If Rs("BriefTopic") = 4 Then Response.Write (" selected=""selected""")%>>[推荐]</option>
			<option value="5"<%If Rs("BriefTopic") = 5 Then Response.Write (" selected=""selected""")%>>[注意]</option>
			<option value="6"<%If Rs("BriefTopic") = 6 Then Response.Write (" selected=""selected""")%>>[转载]</option>
			</select> <input id="title" size="60" name="title" value="<%=Rs("title")%>" type="text" /> <font color="#ff0000">*</font></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>相关文章</strong></td>
			<td class="usertablerow1"><input id="Related" size="60" name="Related" value="<%=Rs("Related")%>" type="text" /> <font color="#ff0000">*</font></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>文章作者</strong></td>
			<td class="usertablerow1"><input size="30" name="Author" value="<%=Rs("Author")%>" type="text" /> <select onChange="Author.value=this.value;" name="font2">
			<option value="" selected="selected">选择作者</option>
			<option value="佚名">佚名</option>
			<option value="本站">本站</option>
			<option value="不详">不详</option>
			<option value="未知">未知</option>
			</select></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>文章来源</strong></td>
			<td class="usertablerow1"><input size="30" name="ComeFrom" value="<%=Rs("ComeFrom")%>" type="text" /> <select onChange="ComeFrom.value=this.value;" name="font1">
			<option value="" selected="selected">选择来源</option>
			<option value="本站原创">本站原创</option>
			<option value="本站整理">本站整理</option>
			<option value="不详">不详</option>
			<option value="转载">转载</option>
			</select></td>
		</tr>
		<tr>
			<td class="usertablerow1" colspan="2"><%
	'-- 编辑器设置
	Dim oEditor,EditorCode
	Set oEditor				= New Editor_Cls
	oEditor.UserMode		= 1
	oEditor.setEditMode		= Newasp.setUserEditor(0)
	oEditor.ChannelID		= ChannelID
	oEditor.Width			= Newasp.setUserEditor(2)
	oEditor.Height			= Newasp.setUserEditor(3)
	oEditor.BasePath		= Newasp.InstallDir & Newasp.setAdminEditor(4)
	oEditor.ToolbarSet		= Newasp.setUserEditor(1)'Default,AdminMode,Simple,UserMode,Basic
	oEditor.Value			= Re_Replace(Rs("content"), "[InstallDir_ChannelDir]", InstallDir_ChannelDir)
	oEditor.InstanceName	= "content"
	oEditor.Execute()
	Set oEditor = Nothing
%></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>首页图片</strong></td>
			<td class="usertablerow1"><input id="ImageUrl" size="60" name="ImageUrl" value="<%=Rs("ImageUrl")%>" type="text" /> <input id="UploadFileList" type="hidden" onchange="doChange(this,document.myform.ImageFileList)" name="UploadFileList" value="<%=Rs("UploadImage")%>" /> <br />
			直接从上传图片中选择 <%
		Response.Write InitSelect(Rs("UploadImage"),Rs("ImageUrl"))
		%></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>文件上传</strong></td>
			<td class="usertablerow1"><iframe id="frm_image2" name="frm_image2" src="upload.asp?ChannelID=<%=ChannelID%>" frameborder="0" width="100%" scrolling="no" height="55"></iframe></td>
		</tr>
		<tr>
			<td class="usertablerow2" align="right"><strong>文章星级</strong></td>
			<td class="usertablerow1"><select name="star">
			<option value="5"<%If Rs("star") = 5 Then Response.Write (" selected=""selected""")%>>★★★★★</option>
			<option value="4"<%If Rs("star") = 4 Then Response.Write (" selected=""selected""")%>>★★★★</option>
			<option value="3"<%If Rs("star") = 3 Then Response.Write (" selected=""selected""")%>>★★★</option>
			<option value="2"<%If Rs("star") = 2 Then Response.Write (" selected=""selected""")%>>★★</option>
			<option value="1"<%If Rs("star") = 1 Then Response.Write (" selected=""selected""")%>>★</option>
			</select></td>
		</tr>
		<%
If CInt(GroupSetting(2)) = 1 Then
%>
		<tr>
			<td class="Usertablerow2" align="right"><strong>验证码</strong></td>
			<td class="Usertablerow1"><input maxlength="5" size="5" name="codestr" type="text" />&nbsp;<img style="cursor: pointer" height="10" alt="验证码,看不清楚?请点击刷新验证码" onclick="this.src='../inc/getcode.asp?t='+(new Date().getTime());" src="../inc/getcode.asp" /></td>
		</tr>
		<%
End If
%>
		<tr align="center">
			<td class="usertablerow2" colspan="2"><input class="Button" type="button" onclick="javascript:history.go(-1)" name="Submit4" value="返回上一页" /> <input class="Button" type="submit" name="Submit1" value="修改文章" /></td>
		</tr>
	</form>
</table>
</div>
<%
End Sub
%>
<!--#include file="foot.inc"-->