中国DOS联盟

：:)
LZ has worked hard.

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

I wrote a script (VBS) to generate download links for "NetEase ASP (vbscript) video tutorials"

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 "Chapter 1 Basics of ASP (Part 1)" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 2

       file.write "Chapter 2 Basics of ASP (Part 2)" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 3

       file.write "Chapter 3 ASP Object - Response" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 4

       file.write "Chapter 4 ASP Object - Request" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 5

       file.write "Chapter 5 ASP Object - Session" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 6

       file.write "Chapter 6 Detailed Explanation of Common ASP Components" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       case 7

       file.write "Chapter 7 ASP and Databases" & vbcrlf &"------------------------------------------------------------------------" &vbcrlf

       file.write s&vbcrlf&vbcrlf

       file.write "The above are the download links for the . You can batch download them using 'FlashGet'."

end select

file.close

End Function

thanks!!!

LZ...

Support creating a JavaScript room

Thanks to the script from 17F, thanks and learning.

Last edited by qingfushuan on 2007-6-7 at 12:13 PM ]

In learning, collected!

Everyone is very enthusiastic, I also want to learn

What a good piece of iron! Give a thumbs up!

Come in to get learning materials, thank you