我要评论quote.asp
<%
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]
发表评论