ZF-system
/
asp.txt

<HTML><HEAD>
<TITLE>ÿһ</TITLE></HEAD>
<BODY BGCOLOR="#FFFFFF">
<%	'Declare variables
    Dim objFile
    Dim objStream
    ' Open file
    Set objFile = Server.CreateObject("Scripting.FileSystemObject")
    Set objStream = objFile.OpenTextFile("tips.txt")
    Randomize
    intLine = Int(Rnd * 3)
    For i = 1 to intLine
        objStream.SkipLine
    Next
    strText = objStream.ReadLine
    objStream.Close
    Set objStream = Nothing
    Set objFile = Nothing%>
<CENTER><H1>ÿһ</H1></CENTER>
<%=strText%></BODY></HTML>