

<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>

<head>
<!--#include file = language.asp -->

<base target="_self">
<STYLE type="text/css">
<!--
a:link       {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited    {text-decoration: none; color: #000000 }
A:hover      {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body         {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD           {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all}
p            {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input        {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body         {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select       {FONT-SIZE: 9PT;}
option       {FONT-SIZE: 9pt;}
textarea     {FONT-SIZE: 9pt;}
-->
</STYLE>
</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#EFEFDE">
<%
'ON ERROR RESUME NEXT
titlecolor=trim(request("titlecolor"))
tgid=trim(request("tgid"))
ztid=0
eaddtime=year(now())&"-"&month(now())&"-"&day(now())&" "&hour(time())&":"&Minute(now())&":"&Second(now())
ehit=0
zz=session("admin__user")
ehtml=Request.Cookies("html")

if request("id")<>"" then
  id=request("id")
  sql = "select * from news where id="&id
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,1
  title=rs("title")
  htitle=rs("htitle")
  tj=trim(rs("tj"))
  ztid=rs("ztid")
  lmid=rs("lm3")
    if lmid="0" then lmid=rs("lm2")
      if lmid="0" then lmid=rs("lm")
  lm2id=rs("lm2")
  ehtml=rs("html")
  pic=trim(rs("pic"))
  content=rs("content")
  url=rs("url")
  titlecolor=rs("titlecolor")
  xgnews=rs("xgnews")
  ontop=rs("ontop")
  zz=rs("zz")
  laiyuan=rs("laiyuan")
  piczz=rs("piczz")
  eaddtime=datetime(rs("time"))
  eHit=rs("hit")
  
  rs.close
  set rs=nothing
else
  lmid=trim(request("lmid"))
  html=trim(request("html"))
end if

if tgid<>"" then
   Set rs = Server.CreateObject("ADODB.RecordSet")
   rs.Open "select * from [usertougao] where id="&tgid,conn,1,1
   title=rs("title")
   content=rs("content")
   zz=rs("adduser")
   lmid=rs("lmid")
   eaddtime=datetime(rs("addtime"))
end if
if lmid="" then lmid=00
if (not isNumeric(ztid)) then
	ztid=0
end if

if (not isNumeric(eHit)) then
	ehit=0
end if
%>
<div align="center">
<table border="0" width="760" id="table1" cellspacing="0" cellpadding="0" >
	<tr>
		<td>
		<div align="center">
			<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table3">
				<tr>
					<td>
					　</td>
					<td>　</td>
					<td >
					<p align="right">
					　</td>
				</tr>
			</table>
		</div>
		</td>
	</tr>
	<tr>
		<td  align=center>
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="VBScript" Type="text/vbscript"><!--
function FrontPage_Form1_onsubmit()
  Set theForm = document.FrontPage_Form1

  If (theForm.title.value = "") Then
    MsgBox "请在 新闻信息标题 域中输入值。", 0, "有效性验证错误"
    theForm.title.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.title.value) < 1) Then
    MsgBox "在 新闻信息标题 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.title.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.title.value) > 100) Then
    MsgBox "在 新闻信息标题 域中，请最多输入 100 个字符。", 0, "有效性验证错误"
    theForm.title.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.lm.selectedIndex < 0) Then
    MsgBox "请选择“栏目分类”选项中的一项。", 0, "有效性验证错误"
    theForm.lm.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.lm.selectedIndex = 0) Then
    MsgBox "第一个“栏目分类”选项无效。 请选择其他选项中的一项。", 0, "有效性验证错误"
    theForm.lm.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.lm.selectedIndex < 0) Then
    MsgBox "请选择“栏目分类”选项中的一项。", 0, "有效性验证错误"
    theForm.lm.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.lm.selectedIndex = 0) Then
    MsgBox "第一个“栏目分类”选项无效。 请选择其他选项中的一项。", 0, "有效性验证错误"
    theForm.lm.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.addtime.value = "") Then
    MsgBox "请在 日期时间 域中输入值。", 0, "有效性验证错误"
    theForm.addtime.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.addtime.value) < 1) Then
    MsgBox "在 日期时间 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.addtime.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.addtime.value) > 30) Then
    MsgBox "在 日期时间 域中，请最多输入 30 个字符。", 0, "有效性验证错误"
    theForm.addtime.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (theForm.hit.value = "") Then
    MsgBox "请在 阅读数 域中输入值。", 0, "有效性验证错误"
    theForm.hit.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.hit.value) < 1) Then
    MsgBox "在 阅读数 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.hit.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.hit.value) > 9) Then
    MsgBox "在 阅读数 域中，请最多输入 9 个字符。", 0, "有效性验证错误"
    theForm.hit.focus()
    FrontPage_Form1_onsubmit = False
    Exit Function
  End If
  FrontPage_Form1_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_add_save.asp?id=<%=id%>&tgid=<%=tgid%>" name="FrontPage_Form1">
			<table border="0" width="753" id="table2" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
				<tr>
					<td width="11%" align="center">新闻信息标题</td>
					<td width="41%">
					&nbsp;<!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="100" --><input type="text" name="title" size="48" maxlength="100" value='<%=title%>'></td>
					<td width="45%">
					<select size="1" name="titlecolor">
	            <option value=" ">默认颜色</option>
					<%
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(ii)
						c=hex(i)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(ii)
						c=hex(ii)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					ii=255
					for i=16 to 255
						Randomize
						an=""
						an= int((255-16+1) * RND +16)
						a=hex(i)
						b=hex(i)
						c=hex(i)
						'i=i+99
						ccc=a+b+c
						'Response.Write i&":<font color="&ccc&">"&CCC&"</font><br>"
						%>
						<OPTION <% if titlecolor="#"&ccc&"" then response.write " selected "%>  value="#<%=ccc%>" style="background-color:#<%=ccc%>"></OPTION>
						
						<%
						ii=ii-1
					next
					%>	            
	            <OPTION <%if titlecolor="#000000" then response.write "selected"%> value="#000000" style="background-color:#000000"></OPTION>
                <OPTION <%if titlecolor="#FFFFFF" then response.write "selected"%> value="#FFFFFF" style="background-color:#FFFFFF"></OPTION>
                <OPTION <%if titlecolor="#008000" then response.write "selected"%> value="#008000" style="background-color:#008000"></OPTION>
                <OPTION <%if titlecolor="#800000" then response.write "selected"%> value="#800000" style="background-color:#800000"></OPTION>
                <OPTION <%if titlecolor="#808000" then response.write "selected"%> value="#808000" style="background-color:#808000"></OPTION>
                <OPTION <%if titlecolor="#000080" then response.write "selected"%> value="#000080" style="background-color:#000080"></OPTION>
                <OPTION <%if titlecolor="#800080" then response.write "selected"%> value="#800080" style="background-color:#800080"></OPTION>
                <OPTION <%if titlecolor="#808080" then response.write "selected"%> value="#808080" style="background-color:#808080"></OPTION>
                <OPTION <%if titlecolor="#FFFF00" then response.write "selected"%> value="#FFFF00" style="background-color:#FFFF00"></OPTION>
                <OPTION <%if titlecolor="#00FF00" then response.write "selected"%> value="#00FF00" style="background-color:#00FF00"></OPTION>
                <OPTION <%if titlecolor="#00FFFF" then response.write "selected"%> value="#00FFFF" style="background-color:#00FFFF"></OPTION>
                <OPTION <%if titlecolor="#FF00FF" then response.write "selected"%> value="#FF00FF" style="background-color:#FF00FF"></OPTION>
                <OPTION <%if titlecolor="#FF0000" then response.write "selected"%> value="#FF0000" style="background-color:#FF0000"></OPTION>
                <OPTION <%if titlecolor="#0000FF" then response.write "selected"%> value="#0000FF" style="background-color:#0000FF"></OPTION>
                <OPTION <%if titlecolor="#008080" then response.write "selected"%> value="#008080" style="background-color:#008080"></OPTION>
					</select>
					</td>
				</tr>
				<tr>
					<td width="11%" align="center">副标题</td>
					<td width="41%">&nbsp;<input type="text" name="htitle" size="48" maxlength="100" value='<%=htitle%>'></td>
					<td width="45%"><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
				</tr>
				<tr>
					<td width="11%" align="center">栏目选择</td>
					<td width="41%">&nbsp;<%
if Request.Cookies("admindj")="1" then
%>
<!--webbot bot="Validation" s-display-name="栏目分类" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
					<option>请选择</option>
					  <%					  
					  sql = "select * from lm where lm<>'' order by id asc"
					  Set rs = Server.CreateObject("ADODB.RecordSet")
					  rs.Open sql,conn,1,1
					  while not rs.eof
					  %>
					       <option value='<%=rs("id")%>|0|0' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>><%=rs("lm")%>(1级)</option>
					  <%	sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
							Set rs2 = Server.CreateObject("ADODB.RecordSet")
							rs2.Open sql2,conn,1,1
							while not rs2.eof
							%>
							   <option value='<%=rs("id")%>|<%=rs2("id")%>|0' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>>　├<%=rs2("lm2")%>(2级)</option>
							<%
							   	Set rs33 = Server.CreateObject("ADODB.RecordSet")
							   	rs33.Open "select * from [lm] where lm3<>'' and lmid='"&rs2("id")&"' order by id asc",conn,1,1
							   	while not rs33.eof
							%>
								<option value='<%=rs2("lmid")%>|<%=rs2("id")%>|<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>>　　├<%=rs33("lm3")%>(3级)</option>
							<%
							   	rs33.movenext
							   	wend
							rs2.movenext
							wend
					  rs.movenext
					  wend 
					  rs.close
					  set rs=nothing
					 
					%>
					
					</select>
<%else%>&nbsp;<!--webbot bot="Validation" s-display-name="栏目分类" b-value-required="TRUE" b-disallow-first-item="TRUE" --><select size="1" name="lm">
				<option>请选择</option>
					  <%
					  admin_sql = "select * from admin where [user]='"&adminuser&"' order by id desc"
					  Set admin_rs = Server.CreateObject("ADODB.RecordSet")
					  admin_rs.Open admin_sql,conn,1,1
					  admin_lmid=admin_rs("lmid")
					  for kkk=1 to 31
						  admin_lmid=replace(admin_lmid,chr(i),"")
					  next
					 'Response.Write admin_lmid
					  
					   array_admin_lmid=split(admin_lmid,",") 
					   For i=0 to ubound(array_admin_lmid)
					        aaa=array_admin_lmid(i)  '取出编辑者拥有的权限ID号.
							if aaa="" then aaa=0
							lm_1_sql = "select * from lm where id="&aaa
							Set lm_1_rs = Server.CreateObject("ADODB.RecordSet")
							lm_1_rs.Open lm_1_sql,conn,1,1

							while not lm_1_rs.eof
							  if lm_1_rs("lm")<>"" then
							%>
							   <option value='<%=lm_1_rs("id")%>|0|0' <% if clng(lmid)=clng(lm_1_rs("id")) then response.write " selected" %>><%=lm_1_rs("lm")%>(1级)
							   </option>
							<%
							  ElseIf lm_1_rs("lm2")<>"" then
							%>
							   <option value='<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>|0' <% if clng(lmid)=clng(lm_1_rs("id"))  then response.write " selected" %>>　├ <%=lm_1_rs("lm2")%>(2级)</option>
							<%

				               Elseif lm_1_rs("lm3")<>"" then
							       get_1_id_sql="select lmid from [lm] where id="&clng(lm_1_rs("lmid"))
								   set  get_1_id_rs = Server.CreateObject("ADODB.RecordSet")
							       get_1_id_rs.Open get_1_id_sql,conn,1,1
								   lmid31=get_1_id_rs("lmid")
								   get_1_id_rs.close
								   set get_1_id_rs=nothing
							%>
								<option value='<%=lmid31%>|<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>' <% if clng(lmid)=clng(lm_1_rs("id")) then response.write " selected" %>>　　├ <%=lm_1_rs("lm3")%>(3级)</option>
							<%
                              end if '结尾配对lm_1_rs("lm")<>""


							     lm_1_rs.movenext
							wend
							lm_1_rs.close
							set lm_1_rs=nothing
						next
				        admin_rs.close
						set admin_rs=nothing

					%>
					
					</select>

<%end if%></td>
					<td width="45%">
					<div align="center">
						<table border="0" cellpadding="0" cellspacing="0" width="100%" id="table4">
							<tr>
								<td width="31">专题</td>
								<td ><select size="1" name="ztid">
								<option value="0">请选择:::</option>
								<%
									set rszt = Server.CreateObject("ADODB.RecordSet")
									rszt.Open "select id,title from [NewsZT] order by id asc",conn,1,1
									while not rszt.eof
								%>
								<option value="<%=rszt("id")%>" <% if clng(ztid)=clng(rszt("id")) then Response.Write " selected "%>><%=rszt("title")%></option>
								<%
									rszt.movenext
									wend
									rszt.close:set rszt=nothing
								%>
								</select></td>
							</tr>
						</table>
					</div>
					</td>
				</tr>
				<tr>
					<td colspan="3">
					<IFRAME ID="eWebEditor1" SRC="edit/ewebeditor.asp?id=content&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="399" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME></td>
				</tr>
				<tr>
					<td width="53%" colspan="2">
					
					&nbsp;<input type="checkbox" <% if pic<>"" then Response.Write " checked "%> name="tuwen" value="1" id=tu><label for=tu>图片新闻</label>
					<%
						if Request.Cookies("admindj")="1" then
					%>
					　<input type="checkbox" <%if tj="推荐" then response.write " checked "%> name="tj"  value="推荐" id=tj><label for=tj>推荐新闻</label>　<input type="checkbox" name="ontop" <%if ontop=5 then response.write " checked "%> value="5" id=ontop><label for=ontop>固顶</label>
					<%
						end if
						if config("lrySH")=1 or Request.Cookies("admindj")="1" then
					%>
					　<input type="checkbox" <%if ehtml="1" then response.write " checked "%> name="html" value="1" id=html><label for=html>生成HTML</label>
					<%
						end if
					%>
					</td>
					<td width="45%">分页标志：$$分页$$&nbsp; （可复制插入多个）</td>
				</tr>
					<%
						if Request.Cookies("admindj")="1" then
					%>				
				<tr>
					<td width="11%" align="center">添加时间</td>
					<td width="41%">
					&nbsp;<!--webbot bot="Validation" s-display-name="日期时间" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="30" --><input type="text" name="addtime" size="20" value="<%=eaddtime%>" maxlength="30"> 格式:<%=year(now())&"-"&month(now())&"-"&day(now())&" "&hour(time())&":"&Minute(now())&":"&Second(now())%></td>
					<td width="45%">　</td>
				</tr>
				<tr>
					<td width="11%" align="center">阅读数</td>
					<td width="41%">&nbsp;<!--webbot bot="Validation" s-display-name="阅读数" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="9" --><input type="text" name="hit" size="20" value="<%=ehit%>" maxlength="9"> </td>
					<td width="45%">　</td>
				</tr>
					<%
						end if
					%>				
				<tr>
					<td width="97%" colspan="3">
					<div align="center">
						<table border="0" cellpadding="0" cellspacing="0" width="743" id="table5">
							<tr>
								<td width="78">
								<p align="center">文章来源</td>
								<td width="169">&nbsp;
								<input type="text" name="laiyuan" size="14" maxlength="40" value="<%=laiyuan%>"></td>
								<td width="124">
								<p align="center">文章作者</td>
								<td width="124">
								<input type="text" name="zz" size="20" value="<%=zz%>" maxlength="50"></td>
								<td width="124">
								<p align="center">图片作者</td>
								<td width="124">
								<input type="text" name="piczz" size="20" value="<%=piczz%>" maxlength="50"></td>
							</tr>
						</table>
					</div>
					</td>
				</tr>
				<tr>
					<td width="11%" align="center">跳转URL</td>
					<td width="41%">&nbsp;<input type="text" name="URL" size="47" value='<%=url%>'></td>
					<td width="45%">填写网址,自动打开此URL。不显示新闻内容</td>
				</tr>
				<tr>
					<td width="11%">
					<p align="center">图片地址</td>
					<td width="41%">
					&nbsp;<input type="text" name="pic" size="47" value="<%=pic%>"></td>
					<td width="45%">此地址将做为图片新闻的缩略图，如果为空，默认是新闻内容中第一幅图片。</td>
				</tr>
				<tr>
					<td width="11%">
					<p align="center">相关新闻</td>
					<td width="41%">
					&nbsp;<input type="text" name="xgnews" size="20" value="<%=xgnews%>"> 
					(填写关键字)</td>
					<td width="45%">　</td>
				</tr>
				</table>
			<p align="center"><input type="submit" value="　保　存　" name="B1">　　　<input type="reset" value="　重　置　" name="B2"></p>
		</form>
		<p>　</td>
	</tr>
</table>

</div>

</body>

</html>
<%
conn.close
set conn=nothing

%>