中国DOS联盟

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