<!--#Include file="Common/setup.asp"-->
<div style="width:200px;height:30px;left:350px; top:67px">
<table border=0 cellpadding=0 cellspacing=1 bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#3A6EA5><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在更新首页...请等待...</font></marquee></td></tr></table>
</div>
<%Dim BigTextArea
if  request("action")="auto"   then
For I = 1 To Request.Form("body").Count 
BigTextArea =BigTextArea & Request.Form("body")(I)
Next
if BigTextArea<>"" then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(index_file))
fout.Write BigTextArea
fout.close
set fout=nothing
	Application.Lock
	Application("index_update")="false"
	Application("index_updatetime")=now()
	Application.unLock
end if
end   if
Response.Redirect  ""&index_file&""
%>