quote.aspxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
<%
Set MyFileObj = Server.CreateObject(“Scripting.FileSystemObject”)
Set MyTextFile = MyFileObj.OpenTextFile(“c:\quote.txt”)
‘ 设置好路å¾Â.
IF NOT MyTextFile.AtEndOfStream THEN
header = CInt(MyTextFile.ReadLine)
‘ 读表头.
END IF
RANDOMIZE
‘ çÂÂæÂÂåºäºÂ表头çÂÂéÂÂæºæ°, RANDOMIZEè¯Âå¥对确ä¿Âä¸Â个éÂÂæºæ°éÂÂ常éÂÂè¦Â.
RandomValue = INT(header*RND)+1
Count=0
‘ 循ç¯ç´å°è¡Âå·çÂÂäºÂéÂÂæºæ°,ä¿ÂÃ¥ÂÂå¨åÂÂéÂÂå¼Âç¨.
WHILE NOT MyTextFile.AtEndOfStream AND NOT Count = RandomValue
quote = MyTextFile.ReadLine
Count = Count + 1
WEND
‘ Ã¥Â
³éÂÂæÂÂæ¾ÂÂ件.
MyTextFile.Close
%>
<html>
<body>
ç°å¨å¼Âç¨çÂÂæ¯: <%=quote%>
</body></html>
[1]