联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
Originally posted by vkill at 2007-1-11 02:27:
非常感谢
Set ws=CreateObject("wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
set file=fso.createtextfile("out.txt",true)
file.close
For n=1 To 7
Select Case n
Case 1
xiazai 1,9
Case 2
xiazai 2,21
Case 3
xiazai 3,12
Case 4
xiazai 4,19
Case 5
xiazai 5,5
Case 6
xiazai 6,5
Case 7
xiazai 7,14
End Select
Next
ws.run "notepad.exe out.txt"
function xiazai(i,h)
Set file=fso.opentextfile("out.txt",8)
Do until a=h
a=a+1
If a<10 Then
wz="http://wms1.bn.163.com/uuauth/tech/school/east/asp/less0"&i&"/ASP_0"&i&"_00"&a&".rm"
Else
wz="http://wms1.bn.163.com/uuauth/tech/school/east/asp/less0"&i&"/ASP_0"&i&"_0"&a&".rm"
End If
s=s&wz&vbcrlf
loop
select case i
case 1
file.write "第一章 ASP的基础知识（一）" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 2
file.write "第二章 ASP的基础知识（二）" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 3
file.write "第三章 ASP对象之Response" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 4
file.write "第四章 ASP对象之Request" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 5
file.write "第五章 ASP对象之Session" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 6
file.write "第六章 ASP常用组件详解" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
case 7
file.write "第七章 ASP与数据库" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf
file.write s&vbcrlf&vbcrlf
file.write "以上为【网易关于ASP(vbscript)视频教程】的下载地址，可以用“网际快车”批量下载。"
end select
file.close
End Function