<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type"销桥猜 content="text/htmlcharset=gb2312">
<title>数据下载</title>
</head>
<body>
<p align="center"> </p>亏型
<p align="center"> </p>
<%
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
'创建一个Folder对象
foldername=server.mappath("./1/")
Set MyFolder=MyFileObject.GetFolder(foldername)
'Set MyFolder=MyFileObject.GetFolder("d:\1")
'循环显示其中文件
For Each thing in MyFolder.Files 'MyFolder.subfolders 显示文件夹,MyFolder.Files 显示文件
'response.write "<p>"&thing
response.write ("<p align="&"center"&"><font size="&"5"&">消薯<a href="&"/1/"&thing.name&">"&thing.name&"</a></font></p>")
Next
%>
</body>
</html>
首先你要把你TXT文件夹所有文件存入数据库并设置顺序 ,让后 你打开网页用VBS获取在扰饥游数据库内总数的 一个随机值肢纤,这个值表示那一行.然后取出这行内容(文件名称),根据名称读出TXT, 不要用FSO对象 你直接用包括命令,就行.include file=
把这个放入一个DIV里面
恩 建议还是存入数据库吧...吧缓销TXT内容
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)