⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 news_publish.asp

📁 北京华信东方网络办公系统
💻 ASP
字号:
<%@ Language=VBScript %>
<!--#include file= "../dbase.asp"-->
<html>
	<head>
		<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
		<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
		<link href="../../js/hystudio.css" rel="stylesheet" type="text/css">
	</head>
	<body onLoad="MM_preloadImages('images/uparrow.gif')" bgcolor="#f1f1f1">
		<form action="news_publish_save.asp" method="post" name="form1">
			<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
				<tr>
					<td width="60%" height="35" align="center" valign=top><IMG border=0 src="images/navigation.gif"><b><font size="+1" face="楷体_GB2312, 宋体, 隶书, 黑体">新闻发布中心</font></b></td>
				</tr>
				<tr>
					<td height="22" align="center"><input type="text" name="NewsTitle" style="width: 100%; font-size: 9pt; " maxlength="50"></td>
				</tr>
				<tr>
					<td height="23" align="center"><textarea name="NewsContent" wrap="soft" style="width: 100%; height: 200px; font-size: 9pt; "></textarea></td>
				</tr>
				<tr>
					<td height="10" align="center"><label id="Hide" style="display: none" language="javascript" onClick="Show_Hide_AdvancedSet(this);" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('UpOrDown','','images/UpArrowOver.gif',1)"><img src="images/UpArrowOrign.gif" alt="隐藏高级设定" name="UpOrDown" width="50" height="8" border="0"></label>
						<label id="Show" language="javascript" onClick="Show_Hide_AdvancedSet(this);" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('DownOrUp','','images/DownArrowOver.gif',1)">
							<img src="images/DownArrowOrign.gif" alt="显示高级设定" name="DownOrUp" width="50" height="8" border="0"></label></td>
				</tr>
				<tr>
					<td align="center"><table id="AdvancedSet" style="display: none" width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="111111">
							<tr bgcolor="#00FFFF">
								<td width="25%" height="24"><li>新闻类型</li></td>
								<%dim rs
	  set rs=server.CreateObject("ADODB.RecordSet")
	  sql="SELECT n_id, v_KindName FROM hxdf_news_kind"
	  rs.open sql,conn,1,1
	  %>
								<td width="25%" height="24" bgcolor="#CCCCCC"><select name="NewsKind" style="width: 100%">
										<%do while not rs.eof
		Response.Write("<option value='"&rs("n_id")&"' >"&rs("v_KindName")&"</option>")
		rs.movenext
		loop
		rs.close
	  %>
									</select></td>
								<td width="25%" height="24"><li>阅读范围</li></td>
								<%'	  set rs=server.CreateObject("ADODB.RecordSet")
	  sql="SELECT n_id, v_rank FROM hxdf_news_rank"
	  rs.open sql,conn,1,1
            %>
								<td width="25%" rowspan="2" bgcolor="#CCCCCC">
									<select name="Rank" title="Ctrl+左键鼠标 进行多选" style="width: 100%;" size="3" multiple>
										<%do while not rs.eof
		Response.Write("<option value='"&rs("n_id")&"' >"&rs("v_rank")&"</option>")
		rs.movenext
		loop
		rs.close
	  %>
									</select></td>
							</tr>
							<tr bgcolor="#00FFFF">
								<td width="25%" height="24"><li>显示发布人</li></td>
								<td width="25%" height="24" bgcolor="#CCCCCC"><input id="ShowOfferManY" name="ShowOfferMan" type="radio" value="y" checked>
									<label for="ShowOfferManY">是</label> <input type="radio" id="ShowOfferManN" name="ShowOfferMan" value="n">
									<label for="ShowOfferManN">否</label>
								</td>
								<td width="25%" height="24"></td>
							</tr>
							<tr bgcolor="#00FFFF">
								<td width="25%" height="24"><li>新闻窗口弹出</li></td>
								<td width="25%" height="24" bgcolor="#CCCCCC"><select name="NewsPullKind" style="width: 100%">
										<option value="none">不弹出窗口</option>
										<option value="inside">窗口在网站弹出</option>
										<option value="outside">窗口在内部弹出</option>
										<option value="both">两处均弹出窗口</option>
									</select></td>
								<td width="25%" height="24"></td>
								<td width="25%" height="24" bgcolor="#CCCCCC">&nbsp;</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td height="30" align="center"><input type="submit" value=" 添 加 "> <input type="reset" value=" 重 置 "></td>
				</tr>
			</table>
		</form>
	</body>
</html>
<script language="JavaScript" type="text/JavaScript">
<!--
function Show_Hide_AdvancedSet(tag) {
if (tag == Show) {
tag.style.display='none';
Hide.style.display='';
AdvancedSet.style.display='';
}
if (tag == Hide) {
tag.style.display='none';
Show.style.display='';
AdvancedSet.style.display='none';
}
}


function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -