中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-07-31 21:19

欢迎新会员 idnsa　 RSS
共 48,036 主题排行 / 350,120 发帖 / 今日 1 篇 / 48,247 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBScript、JavaScript参考资料查看 5,172　回复 28

第 16 楼发表于 2007-02-02 01:15　·　中国广东惠州电信

gl315

新手上路

★

积分 10
发帖 5
注册 2007-01-24 06:41
19年会员
UID 77513
性别男

状态离线

：）
LZ辛苦了。

第 17 楼发表于 2007-02-02 03:30　·　中国辽宁本溪联通

jmz573515

银牌会员

★★★

积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别男

状态离线

写了一个生成”网易关于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