admin_article.asp

浪人文章系统

end if


elseif Trim(Request.QueryString("GuComm"))="Mo" or Trim(Request.QueryString("SortID"))<>"" then

	if Trim(Request.QueryString("GuComm"))="Mo" and Trim(Request.QueryString("ArticleID"))<>"" then
		isArticleModify=True
	end if

	dim rsAS3,count
	set rsAS3=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_AsSort order by AS_ID asc"
	rsAS3.open GuSQL,GuConn,1,1
%>
<Script Language="JavaScript">
<!--
var onecount;
onecount=0;
AsSortID_L = new Array();
	<%count = 0
	do while not rsAS3.eof %>
	AsSortID_L[<%=count%>] = new Array("<%=Trim(rsAS3("AS_Name"))%>","<%=Trim(rsAS3("AS_SortID"))%>","<%=Trim(rsAS3("AS_ID"))%>");<%count = count + 1
	rsAS3.movenext
	loop
	rsAS3.close
	%>
	onecount=<%=count%>;

function Sort_Select(AsSortID_S){
	document.Admin_Article.Ar_AsSortID.length = 0;
	var AsSortID_S=AsSortID_S;
	var i;
	for (i=0;i < onecount; i++)
	{
	if (AsSortID_L[i][1] == AsSortID_S)
	{
	document.Admin_Article.Ar_AsSortID.options[document.Admin_Article.Ar_AsSortID.length] = new Option(AsSortID_L[i][0], AsSortID_L[i][2]);
	}
		}
}
//-->
</Script>

<%
if isArticleModify then
dim rsAr0
set rsAr0=Server.CreateObject("Adodb.RecordSet")
rsAr0.open "select * from "&GuTablePrefix&"_Article where Ar_ID="&Trim(Request.QueryString("ArticleID")),GuConn,1,1
	SortID=cstr(rsAr0("Ar_SortID"))
	AsSortID=cstr(rsAr0("Ar_AsSortID"))
else
	SortID=Trim(Request.QueryString("SortID"))
	AsSortID=Trim(Request.QueryString("AsSortID"))
end if
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="100" bgcolor="#CEEFE7">
<form name="Admin_Article" method="post" action="Admin_Article.asp">
 <tr>
  <td width="600" height="28" background="Images/Admin_T_Bg1.gif" align="center" colspan="4"><font class="BlackS12"><b>文 章 详 细 信 息</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" bgcolor="#FFFFFF" colspan="4"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文章标题</font></td>
  <td width="518" height="28" bgcolor="#FFFFFF" colspan="3">&nbsp;<input type="text" name="Ar_Name" onFocus="Ar_Name.select();" value="<%if isArticleModify then Response.write rsAr0("Ar_Name") end if %>" Maxlength="100" style="width:383;background-color:#EAFBF5;color:<%if isArticleModify then Response.write rsAr0("Ar_NameColor") end if %>;" class="Admin_Select">&nbsp;<select name="Ar_NameColor" size="1" class="Admin_Select" style="width:82;background-color:#FFFFFF;" onchange="JavaScript:Ar_NameColor_Select();">
<option value="Black">Color...</option><%
	if isArticleModify then
		Response.write "<option value="""&rsAr0("Ar_NameColor")&""" style=""color:"&rsAr0("Ar_NameColor")&""" selected>"&rsAr0("Ar_NameColor")&"</option>"
	end if

dim ArticleNameColor2,swi
	ArticleNameColor2=split(GuNameColorDefault,"|")

	for swi=0 to ubound(ArticleNameColor2)
		Response.write "<option value="""&Trim(ArticleNameColor2(swi))&""" style=""color:"&Trim(ArticleNameColor2(swi))&""">"&Trim(ArticleNameColor2(swi))&"</option>"
	next
%></select>&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="Admin_Article.Ar_Name.focus();document.execCommand('Paste');" value=""></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文章分类</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<select name="Ar_SortID" onChange="Sort_Select(document.Admin_Article.Ar_SortID.options[document.Admin_Article.Ar_SortID.selectedIndex].value)" size="1" class="Admin_Select" style="background-color:#EAFBF5;"><%
dim rsSo1,rsAS1,SortIDed,AsSortIDed
set rsSo1=Server.CreateObject("Adodb.RecordSet")
set rsAS1=Server.CreateObject("Adodb.RecordSet")

GuSQL="select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc"
rsSo1.open GuSQL,GuConn,1,1
if rsSo1.eof and rsSo1.bof then
	Response.write "..."
else
	do while not rsSo1.eof

	if SortID=cstr(rsSo1("So_ID")) then
		SortIDed=" selected"
	else
		SortIDed=""
	end if

	Response.write "<option value="""&rsSo1("So_ID")&""""&SortIDed&">"&rsSo1("So_Name")&"</option>"
rsSo1.movenext
loop
end if
rsSo1.close
set rsSo1=Nothing
%></select>&nbsp;<select name="Ar_AsSortID" size="1" class="Admin_Select" style="background-color:#EAFBF5;"><%
if isArticleModify or SortID<>"" then
	GuSQL="select * from "&GuTablePrefix&"_AsSort where AS_SortID="&SortID&" order by AS_Order asc"
else
	GuSQL="select * from "&GuTablePrefix&"_AsSort order by AS_Order asc"
end if
	rsAS1.open GuSQL,GuConn,1,1
	if rsAS1.eof and rsAS1.bof then
		Response.write "..."
	else
	do while not rsAS1.eof

	if AsSortID=cstr(rsAS1("AS_ID")) then
		AsSortIDed=" selected"
	else
		AsSortIDed=""
	end if

	Response.write "<option value="""&rsAS1("AS_ID")&""""&AsSortIDed&">"&rsAS1("AS_Name")&"</option>"
	rsAS1.MoveNext
	Loop
end if
	rsAS1.close
	set rsAS1=Nothing
%></select></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">整理日期</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_DateTime" Maxlength="10" value="<%if isArticleModify then Response.write Trim(rsAr0("Ar_DateTime")) else Response.write date() end if %>" class="Admin_InputText" style="width:83;background-color:#FFFFFF;" onclick="GuDateSelect(Ar_DateTime,'','',Ar_DateTime)" readonly></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">设置显示</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<select name="Ar_Show" size="1" class="Admin_Select" style="background-color:#FFFFFF;"><%
if isArticleModify then
%><option value="1" <%if Trim(rsAr0("Ar_Show"))="1" then Response.write "selected" end if%>>在列表中显示</option>
<option value="0" <%if Trim(rsAr0("Ar_Show"))="0" then Response.write "selected" end if%>>在列表中隐藏</option>
<%else%>
<option value="1" selected>在列表中显示</option>
<option value="0">在列表中隐藏</option>
<%end if%></select></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">设置推荐</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF"><font class="BlackS10">&nbsp;</font><font class="BlackS12"><%if isArticleModify then%><input type="checkbox" name="Ar_CommendB" id="Ar_CommendB" value="1" <%if Trim(rsAr0("Ar_CommendB"))="1" then Response.write "checked" end if%>><label for="Ar_CommendB" title="设置在首页推荐栏目显示">首页推荐</label><%else%><input type="checkbox" name="Ar_CommendB" id="Ar_CommendB" value="1"><label for="Ar_CommendB" title="设置在首页推荐栏目显示">首页推荐</label><%end if%></font></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文章作者</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_Author" onFocus="Ar_Author.select();" Maxlength="50" class="Admin_InputText" style="width:173;background-color:#FFFFFF;" value="<%if isArticleModify then Response.write Trim(rsAr0("Ar_Author")) else Response.write ArticleAddAuthor0 end if %>">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_Author.focus();document.execCommand('Paste');" value=""></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文章来源</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_From" onFocus="Ar_From.select();" Maxlength="100" value="<%if isArticleModify then Response.write Trim(rsAr0("Ar_From")) else Response.write ArticleAddFrom0 end if %>" class="Admin_InputText" style="width:173;background-color:#FFFFFF;">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_From.focus();document.execCommand('Paste');" value=""></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">作者邮箱</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_AuthorEmail" onFocus="Ar_AuthorEmail.select();" Maxlength="100" class="Admin_InputText" style="width:173;background-color:#FFFFFF;" value="<% if isArticleModify then Response.write Trim(rsAr0("Ar_AuthorEmail")) else Response.write ArticleAddAuthorEmail0 end if %>">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_AuthorEmail.focus();document.execCommand('Paste');" value=""></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">来源网址</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_FromURL" onFocus="Ar_FromURL.select();" Maxlength="200" value="<%if isArticleModify then Response.write Trim(rsAr0("Ar_FromURL")) else Response.write ArticleAddFromURL0 end if %>" class="Admin_InputText" style="width:173;background-color:#FFFFFF;">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_FromURL.focus();document.execCommand('Paste');" value=""></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">作者主页</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_AuthorHomepage" onFocus="Ar_AuthorHomepage.select();" Maxlength="100" class="Admin_InputText" style="width:173;background-color:#FFFFFF;" value="<% if isArticleModify then Response.write Trim(rsAr0("Ar_AuthorHomepage")) else Response.write ArticleAddAuthorHomepage0 end if %>">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_AuthorHomepage.focus();document.execCommand('Paste');" value=""></td>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">关键字词</font></td>
  <td width="218" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="Ar_Keyword" onFocus="Ar_Keyword.select();" Maxlength="100" value="<%if isArticleModify then Response.write Trim(rsAr0("Ar_Keyword")) end if %>" class="Admin_InputText" style="width:173;background-color:#FFFFFF;">&nbsp;<Input type="button" class="Admin_Button_Paste2" onclick="JavaScript:Admin_Article.Ar_Keyword.focus();document.execCommand('Paste');" value=""></td>
 </tr>
 <tr id="Admin_Upload" style="display:<%if ArticleUploadShow="0" then Response.write "none" end if%>">
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">上传图片</font></td>
  <td width="518" height="28" bgcolor="#FFFFFF" colspan="3"><iframe name="UploadPicture" frameborder="0" width="100%" height="28" scrolling="no" src="Admin_Upload.asp?T=PS"></iframe></td>
 </tr>
 <tr>
  <td width="80" height="293" bgcolor="#FFFFFF" valign="top"><table border="0" width="100%" height="10" cellspacing="0" cellpadding="0"><tr><td height="28" align="center"><font class="BlackS12">文章内容</font></td></tr><tr><td height="1" bgcolor="#CEEFE7"></td></tr><tr><td height="2"><hr noshade color="#FFFFFF" width="62"></td></tr></table></td>
  <td width="518" height="293" bgcolor="#FFFFFF" colspan="3">&nbsp;<textarea name="Content1" cols="1" rows="1" style="display:none;"><%if isArticleModify then Response.write Server.HTMLEncode(rsAr0("Ar_Content")) end if%></textarea><iframe ID="HTMLEditor" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" framespacing="0" vspace="0" hspace="0" frameborder="0" width="480" height="288" src="HTMLEditor/HTMLEditor.htm"></iframe></td>
 </tr>
 <tr>
   <td width="80" height="38" bgcolor="#FFFFFF"><input type="hidden" name="GuComm" value="<%if isArticleModify then Response.write "ArMoSa" else Response.write "ArAdSa" end if%>"><%if isArticleModify then%><input type="Hidden" name="ArticleID" value="<%=Trim(Request.QueryString("ArticleID"))%>"><%end if%></td>
  <td width="518" height="38" bgcolor="#FFFFFF" colspan="3">&nbsp;<input type="submit" name="Submit" value="" class="<%if isArticleModify then Response.write "Admin_Button_Modify" else Response.write "Admin_Button_Add" end if%>">&nbsp;<input type="reset" value="" name="Admin_Button_Reset" class="Admin_Button_Reset">&nbsp;<input type="button" value="" name="Upload2" class="Admin_Button_Upload" onclick="JavaScript:GuDIVShowHidden(Admin_Upload);"></td>
 </tr>
</form>
</table>
<%
if isArticleModify then
	rsAr0.close
	set rsAr0=Nothing
end if

else
%>

<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
 <tr>
  <td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center"><font class="BlackS12"><b>文 章 分 类 列 表</b></font></td>
 </tr>
 <tr>
  <td width="600" height="16" bgcolor="#FFFFFF"></td>
 </tr>
<%
dim rsSo6,rsAS6

set rsSo6=Server.CreateObject("Adodb.RecordSet")
set rsAS6=Server.CreateObject("Adodb.RecordSet")

rsSo6.open "select * from "&GuTablePrefix&"_Sort where So_Type='Sort' order by So_Order asc",GuConn,1,1

if err.number<>0 then
	Response.write "<tr><td width=""598"" height=""40"" bgcolor=""#FFFFFF"">&nbsp;<font class=""RedS12"">数据库查询出错</font></td></tr>"
else
	if rsSo6.bof and rsSo6.eof then
		Response.write "<tr><td width=""598"" height=""40"" bgcolor=""#FFFFFF"">&nbsp;<font class=""SilverS12"">没有找到相关数据</font></td></tr>"
	else
do while not rsSo6.eof
%>
 <tr>
  <td width="600" height="26" bgcolor="#EAFBF5"><font class="BlackS12">【<%=rsSo6("So_Name")%>】</font></td>
 </tr>
 <tr>
  <td width="600" height="40" bgcolor="#FFFFFF"><%
rsAS6.open "select * from "&GuTablePrefix&"_AsSort where AS_SortID="&rsSo6("So_ID")&" order by AS_Order asc",GuConn,1,1
if err.number<>0 then
	Response.write "&nbsp;<font class=""RedS12"">数据库查询出错</font>"
else
	if rsAS6.bof and rsAS6.eof then
		Response.write "&nbsp;<font class=""SilverS12"">没有找到相关分类</font>"
	else
		i=1
		do while not rsAS6.eof
%><a href="Admin_Article.asp?SortID=<%=rsAS6("AS_SortID")%>&AsSortID=<%=rsAS6("AS_ID")%>" class="LightgrayS12">〖<%=rsAS6("AS_Name")%>〗</a><%if (i mod 8)=0 then Response.write "<br>"
		i=i+1
		rsAS6.movenext
		loop
	end if
end if
rsAS6.close
%></td>
 </tr>
<%
rsSo6.movenext
loop
end if
end if
rsSo6.close
set rsSo6=Nothing
set rsAS6=Nothing
%>
</table>

<%end if%>
<br>

<!--#include file="Include/Message.asp"-->

</body>
</html>

<%CloseDatabase%>