publish.asp

浪人文章系统

	end if

	Response.write "<center><table border=""0"" width=""558"" height=""6""><tr><td></td></tr></table></center>"

end if


if PublishAllow="1" then

	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.PublishResource.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.PublishResource.Ar_AsSortID.options[document.PublishResource.Ar_AsSortID.length] = new Option(AsSortID_L[i][0], AsSortID_L[i][2]);
	}
		}
}
//-->
</Script>

  <table border="0" cellpadding="0" cellspacing="1" width="558" height="10" class="T_BGColor_2">
  <form name="PublishResource" method="post" action="Publish.asp" onSubmit="return PublishResource_Check();">
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">文章标题</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_Name" style="width:252;" class="CSS_InputText" maxlength="50"></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<span id="JS_M_Ar_Name" class="BlackS12">填写文章标题</span></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">文章分类</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<select name="Ar_SortID" onChange="Sort_Select(document.PublishResource.Ar_SortID.options[document.PublishResource.Ar_SortID.selectedIndex].value)" size="1" class="CSS_InputText" style="background-color:#FFFFFF;"><option value="" selected>选择...</option><%
dim SortID,AsSortID,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="CSS_InputText" style="background-color:#FFFFFF;"><option value="" selected>选择...</option><%
	GuSQL="select * from "&GuTablePrefix&"_AsSort order by AS_Order asc"
	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="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<span id="JS_M_Ar_SortID" class="BlackS12">选择文章类别及分类</span></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">文章来源</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_From" style="width:252;" class="CSS_InputText" value=""></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12">填写文章来源</font></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">来源网址</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_FromURL" onFocus="Ar_FromURL.select();" style="width:252;" class="CSS_InputText" value=""></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12">填写文章网址</font></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">文章作者</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_Author" onFocus="Ar_Author.select();" Maxlength="100" value="" class="CSS_InputText" style="width:252;"></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12">填写文章作者</font></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">作者邮箱</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_AuthorEmail" onFocus="Ar_AuthorEmail.select();" Maxlength="100" value="" class="CSS_InputText" style="width:252;"></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12">填写文章作者的联系方式</font></td>
	</tr>
	<tr>
	 <td width="80" height="88" class="T_TD_BGColor_2_2" valign="top"><table border="0" width="100%" height="10" cellspacing="0" cellpadding="0"><tr><td height="26" align="center"><font class="BlackS12">文章内容</font></td></tr><tr><td height="1" class="T_BGColor_2"></td></tr></table></td>
	 <td width="270" height="88" class="T_TD_BGColor_2_2">&nbsp;<textarea name="Ar_Content" cols="1" rows="1" onKeyDown="GuTextareaLenCheck(document.PublishResource.Ar_Content,document.PublishResource.GuTextareaLenInput,<%=PublishContentKB%>)" onKeyUp="GuTextareaLenCheck(document.PublishResource.Ar_Content,document.PublishResource.GuTextareaLenInput,<%=PublishContentKB%>)" class="CSS_TextArea" style="width:252;height:78;"></textarea></td>
	 <td width="204" height="88" class="T_TD_BGColor_2_2" align="center"><table border="0" width="96%" height="10"><tr><td height="58"></td></tr><tr><td height="20"><input type="text" name="GuTextareaLenInput" value="<%=PublishContentKB%>" class="CSS_InputText" style="width:60;text-align:right;" readonly>&nbsp;<span id="JS_M_Ar_Content" class="BlackS12"></span></td></tr></table></td>
	</tr>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">发 布 人</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="Ar_Username" class="CSS_InputText" style="width:116;" maxlength="100"></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12"></font></td>
	</tr>
	<%if PublishValidationCode="1" then%>
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" align="center"><font class="BlackS12">验 证 码</font></td>
	 <td width="270" height="28" class="T_TD_BGColor_2_2">&nbsp;<input type="text" name="GuValidationCodeInput" class="CSS_InputText" style="width:60;" maxlength="6"> <img src="Include/ValidationCode.asp" style="cursor:pointer;width:46;height:12" onclick="this.src='Include/ValidationCode.asp?'+Math.random()" title="刷新验证码"></td>
	 <td width="204" height="28" class="T_TD_BGColor_2_2">&nbsp;<font class="BlackS12">填写验证码，单击验证码即刷新</font></td>
	</tr>
	<%end if%>
	<tr>
	 <td width="80" height="38" class="T_TD_BGColor_2_2" align="center"><input type="hidden" name="GuComm" size="1" value="PublishResource"></td>
	 <td width="475" height="38" class="T_TD_BGColor_2_2" colspan="2">&nbsp;<input type="submit" name="Submit" value="" class="Button_OK">&nbsp;<input type="reset" value="" name="reset" class="Button_Reset"></td>
	</tr>
  </form>
  </table>
<br>
<%
if PublishNoteShow="1" then
	dim rsPS8
	set rsPS8=Server.CreateObject("Adodb.RecordSet")
	GuSQL="select * from "&GuTablePrefix&"_Config where Co_ID=1"
	rsPS8.open GuSQL,GuConn,1,1
	if not(rsPS8.eof and rsPS8.bof) then
%>
  <table border="0" cellpadding="0" cellspacing="1" width="558" height="10" class="T_BGColor_2">
	<tr>
	 <td width="80" height="28" class="T_TD_BGColor_2_2" valign="top"><table border="0" width="100%" height="10" cellspacing="0" cellpadding="0"><tr><td height="26" align="center"><font class="BlackS12">发布协议</font></td></tr><tr><td height="1" class="T_BGColor_2"></td></tr></table></td>
	 <td width="475" height="28" class="T_TD_BGColor_2_2" align="center" valign="top"><table border="0" width="97%" height="10" cellspacing="0" cellpadding="0"><tr><td height="8"></td></tr><tr><td height="10"><font class="BlackS12"><%=rsPS8("Co_PublishNoteText")%></font></td></tr><tr><td height="6"></td></tr></table></td>
	</tr>
  </table>
<br>
<%
	end if
	rsPS8.close
	set rsPS8=Nothing
end if


else
	Response.write "<table border=""0"" cellpadding=""0"" cellspacing=""1"" width=""558"" height=""80"" class=""T_BGColor_2""><tr><td class=""T_TD_BGColor_2_2"" align=""center""><img src=""Style/"&WebSiteStyle&"/Title_07.gif"" width=""60"" height=""60"" border=""0"" align=""absmiddle"">&nbsp;<font class=""MaroonS12"">抱歉，文章发布功能已关闭，请联系网站管理员</font></td></tr></table><br><br>"
end if
%></td>
  </tr>
 </table></td>
 </tr>
</table>
</center>

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

</body>
</html>

<%CloseDatabase%>