发布更新

<% dim action,blog Dim totalPut,TotalPages,MaxPerPage,strFileName action=request("action") set blog=new class_blog Server.ScriptTimeOut=999999999 select case action case "update_message" Call update_message case "update_blog" Call update_blog case "update_alllog" Call update_alllog case else call main() end select set blog=nothing %>

<%=oblog.user_copyright%>

<% sub main %>

发布更新静态页面

<%end sub sub update_message() const p=4 response.Write("

") end sub sub update_blog() dim rsu,rst,n_log,n_comment,n_message const p=10 response.Write("

") end sub sub update_alllog() dim updateblognum,lastlogid lastlogid=trim(request("lastlogid")) if lastlogid<>"" then lastlogid=clng(lastlogid) else lastlogid=0 updateblognum=request.Cookies(cookies_name&"uplognum")("updateblognum") if updateblognum="" or isnull(updateblognum) then updateblognum=0 'updateblognum=0 If clng(oblog.setup(26,0))=0 Then updateblognum=0 Else if clng(updateblognum)>=clng(oblog.setup(26,0)) and lastlogid=0 then oblog.adderrstr("整站更新每天只能进行"&oblog.setup(26,0)&"次!") oblog.showusererr exit sub end if End if if lastlogid=0 then if cookies_domain<>"" then Response.Cookies(cookies_name).Domain=cookies_domain Response.Cookies(cookies_name&"uplognum")("updateblognum")=updateblognum+1 Response.Cookies(cookies_name&"uplognum").Expires=Date+1 end if response.Write("

") end sub %>