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