
<%
If Request.Form.Count>0 Then
	MyFilePath=Server.MapPath("/Web/Announcement.html")
	Set Fso=Server.CreateObject("ScriPting.FilesystemObject")
	Set MyFile=Fso.Opentextfile(MyFilePath,2,True)
	MyFile.WriteLine("<style type=""text/css"">")
	MyFile.WriteLine("<!--")
	MyFile.WriteLine("body {")
	MyFile.WriteLine("margin: 0px;")
	MyFile.WriteLine("background-color: #80D5F2;")
	MyFile.WriteLine("}")
	MyFile.WriteLine(".STYLE5 {font-size: 12px}")
	MyFile.WriteLine("-->")
	MyFile.WriteLine("</style>")
	MyFile.WriteLine("<div id=""myDiv"" style=""OVERFLOW:hidden; WIDTH:440;"" onMouseOver=""clearScroll()"" onMouseOut=""startScroll()"">")
	MyFile.WriteLine("<table width=""100%"" border=0 align=center cellPadding=0 cellspace=""0""><tr><td id=""myTD1"" vAlign=top><table width="""&Request.Form("NoticeTileWidth")&""" border=""0"" cellspacing=""0"" cellpadding=""0""><tr>")
	MyFile.WriteLine("<td height=""20"" align=""center"" valign=""top""><span class=""STYLE5"">&nbsp;</span><img src=""../Web/images/index_images/gonggao.gif"" width=""10"" height=""9""><span class=""STYLE5"">&nbsp;公告&nbsp;"&Request.Form("NoticeContent")&"</span></td>")
	MyFile.WriteLine("</tr></table></td><td id=""myTD2"" vAlign=top></td></tr></table>")
	MyFile.WriteLine("</div>")
	MyFile.WriteLine("<script language=""javascript"">")
	MyFile.WriteLine("var speed=20;")
	MyFile.WriteLine("document.all.myTD2.innerHTML=document.all.myTD1.innerHTML;")
	MyFile.WriteLine("document.all.myDiv.scrollLeft=document.all.myDiv.scrollWidth;")
	MyFile.WriteLine("function ScrollIt()")
	MyFile.WriteLine("{")
	MyFile.WriteLine("if(document.all.myTD2.offsetWidth-document.all.myDiv.scrollLeft<=0)")
	MyFile.WriteLine("document.all.myDiv.scrollLeft=document.all.myDiv.scrollLeft-document.all.myTD2.offsetWidth;")
	MyFile.WriteLine("else{")
	MyFile.WriteLine("document.all.myDiv.scrollLeft++;")
	MyFile.WriteLine("}")
	MyFile.WriteLine("}")
	MyFile.WriteLine("var MyMar=setInterval(""ScrollIt()"",speed);")
	MyFile.WriteLine("function clearScroll()")
	MyFile.WriteLine("{")
	MyFile.WriteLine("clearInterval(MyMar);")
	MyFile.WriteLine("}")
	MyFile.WriteLine("function startScroll()")
	MyFile.WriteLine("{")
	MyFile.WriteLine("MyMar=setInterval(""ScrollIt()"",speed);")
	MyFile.WriteLine("}")
	MyFile.WriteLine("</script>")
	MyFile.Close()
	Response.Redirect("/Admin/Base.Asp")
End If
%>
<%
    FileName=Server.MapPath("/Web/Announcement.html")
	Set Fso=Server.Createobject("ScripTing.FileSystemObject")
   Set MyFile=Fso.opentextfile(FileName,1)
   OpenFileContent=MyFile.readall()
   MyFile.Close
   StartI=Instr(OpenFileContent,"公告")
   If StartI>0 Then
   StartI=StartI+8
   NoticeContent=Mid(OpenFileContent,StartI)
	   EndI=Instr(NoticeContent,"</span>")
	   If EndI>0 Then
	   NoticeContent=Mid(NoticeContent,1,EndI-1)
	   Else
	   NoticeContent="暂时没有公告!"
	   End If
   Else
   NoticeContent="暂时没有公告!"
   End If

   StartI=Instr(OpenFileContent,"vAlign=top><table width=""")
   If StartI>0 Then
   StartI=StartI+25
   NoticeTileWidth=Mid(OpenFileContent,StartI)
	   EndI=Instr(NoticeTileWidth,"""")
	   If EndI>0 Then
	   NoticeTileWidth=Mid(NoticeTileWidth,1,EndI-1)
	   Else
	   NoticeTileWidth=800
	   End If
   Else
   NoticeTileWidth=800
   End If
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; chaRSet=gb2312" />
<title>Announcement Management</title>
<meta http-equiv="pragma" content="no-cache">
<mets http-equiv="cache-control" content="no-cache">
<meta HTTP-equiv="expires" content="0">
<meta HTTP-equiv="luxiaoqing" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; chaRSet=gb2312">
<link href="../Admin/Css/Css.css" rel="stylesheet" type="text/css">
<link href="../Admin/Css/menu.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="20"></td>
  </tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#F1F1F1" class="admintab2 TxtSize">
  <tr>
    <td align="center">Blue front work room backstage Management-Transmission Announcement Management</td>
  </tr>
</table>
<table width="812" height="80%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F1F1F1" class="admintab2 tableAlpha TxtSize">
<tr>
<td>
<table width="450" border="0" cellspacing="0" cellpadding="0" class="TxtSize">
  <form id="form1" name="form1" method="post" action=""><tr>
    <td width="450" height="20">TableWidth
      <input name="NoticeTileWidth" type="text" value="<%=NoticeTileWidth%>" size="5" maxlength="4" /></td>
  </tr>
  <tr>
    <td height="20">
      AnnouncementContent:<br><textarea name="NoticeContent" cols="88" rows="8"><%=NoticeContent%></textarea></td>
  </tr>
  <tr>
    <td height="20">
 <input type="submit" name="Submit" class="put" value="保存(S)">
      <input type="button" name="Submit1" value="取消(C)" class="put" onClick="javascript:history.back(-1);"></td>
  </tr>
  </form>
</table>
</td>
</tr>
</table>

</body>
</html>


