VBScript、JavaScript参考资料 - 中国DOS联盟论坛

写了一个生成”网易关于ASP(vbscript)视频教程“下载地址的脚本（VBS）


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

第16楼　gl315	发表于 2007-02-02 01:15
新手上路　发帖 5　积分 10
：） LZ辛苦了。

第17楼　jmz573515	发表于 2007-02-02 03:30
银牌会员　发帖 464　积分 1,212
写了一个生成”网易关于ASP(vbscript)视频教程“下载地址的脚本（VBS） 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

第18楼　lisus	发表于 2007-04-26 13:08
初级用户　发帖 37　积分 79
thanks!!! 楼主...

第19楼　zchdos	发表于 2007-05-13 13:50
初级用户　发帖 18　积分 38
支持建一个javascript室

第20楼　libin4100	发表于 2007-06-06 20:49
新手上路　发帖 6　积分 10
看看学习下

第21楼　qinbuer	发表于 2007-06-06 21:55
高级用户　发帖 228　积分 512
支持一下

第22楼　qingfushuan	发表于 2007-06-07 12:02
高级用户　发帖 327　积分 502
谢谢17F的脚本,感谢并学习中 [ Last edited by qingfushuan on 2007-6-7 at 12:13 PM ]

第23楼　hackerflysky	发表于 2007-08-03 02:50
初级用户　发帖 20　积分 50　来自湖南常宁
thanks

第24楼　QQ135196	发表于 2008-10-27 11:17
社区乞丐　发帖 9　积分 -17
: 学习中，收藏了！

第25楼　yishanju	发表于 2008-10-27 11:19
银牌会员　发帖 1,357　积分 1,488
别老挖坟行

第26楼　naiveboy520	发表于 2009-08-05 00:36
初级用户　发帖 37　积分 40
大家都很有热情呀，我也要学

第27楼　solardo	发表于 2009-10-23 18:18
新手上路　发帖 2　积分 3
真是块好铁！赞一个！

第28楼　chihiro	发表于 2009-11-27 21:33
新手上路　发帖 4　积分 7
进来拿学习的资料，谢谢

第29楼　wotsml	发表于 2009-11-30 09:40
新手上路　发帖 5　积分 6
哇好东西