quote.asp<%SetMyFileObj=Server.CreateObject("Scripting.FileSystemObject")SetMyTextFile=MyFileObj.OpenTextFile("c:\quote.txt")'设置好路径.IFNOTMyTextFile.AtEndOfStreamTHENheader=CInt(MyTextFile.ReadLine)'读表头.ENDIFRANDOMIZE'生成基于表头的随机数,RANDOMIZE语句对确保一个随机数非常重要.RandomValue=INT(header*RND)+1Count=0'循环直到行号等于...