savenews.asp

好！由此可以引申出另一快速恢复多系统启动选单的方法：就是利用Ghost克隆工具

<%
dim user 
user=request.form("user")

if session("ymadminok")<>"true" then '验证是不是管理员
 if session(user&"news")<>"true" then '验证是不是联盟成员
  response.redirect "error.asp?errorid=1"
 end if
end if

dim sql
dim rs
dim content
content=request.form("txtnews")

if session("ymadminok")="true" then '站长可以发布大于35个字的公告
else  
 if len(content)>35 then
  response.redirect "error.asp?errorid=19"
 end if
end if
%>
<!--#include file="conn.asp"-->
<%
 set rs=server.createobject("adodb.recordset")
 sql="select * from news where id is null"
 rs.open sql,conn,1,3
 rs.addnew
 rs("username")=user
 rs("content")=content
 rs.update
 rs.close
 response.redirect "index.asp"
%>