China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --

Union site: www.cn-dos.net　Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!

Guest Register Log in Members Blogs Search Command Prompt Bash Upload Statistics
中国DOS联盟论坛
The time now is 2026-07-06 05:33
Welcome new member liuwenchaoyouxi　 RSS
48,009 topics / 350,086 posts / today 1 new / 48,226 members 不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » VBScript, JavaScript reference materials View 5,088　Replies 28
‹ Prev 1 2 Tell a Friend Share to X Share to Weibo Share to Telegram Share to QQ Zone Copy Link QR Code
Floor 16 Posted 2007-02-02 01:15　·　 中国 广东 惠州 电信
gl315
新手上路
★
Credits 10
Posts 5
Joined 2007-01-24 06:41
19-year member
UID 77513
Gender Male
Status Offline
：:)
LZ has worked hard.
Floor 17 Posted 2007-02-02 03:30　·　 中国 辽宁 本溪 联通
jmz573515
银牌会员
★★★
Credits 1,212
Posts 464
Joined 2006-12-13 21:11
19-year member
UID 73417
Gender Male
Status Offline
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
Floor 18 Posted 2007-04-26 13:08　·　 中国 广东 东莞 电信
lisus
初级用户
★
Credits 79
Posts 37
Joined 2007-04-26 12:31
19-year member
UID 86552
Gender Male
Status Offline
thanks!!!

LZ...
Floor 19 Posted 2007-05-13 13:50　·　 中国 四川 成都 电信
zchdos
初级用户
★
Credits 38
Posts 18
Joined 2007-05-08 14:17
19-year member
UID 87852
Gender Male
Status Offline
Support creating a JavaScript room
Floor 20 Posted 2007-06-06 20:49　·　 中国 广东 佛山 电信
libin4100
新手上路
★
Credits 10
Posts 6
Joined 2007-04-18 12:33
19-year member
UID 85628
Gender Male
Status Offline
Take a look
Learn a bit
Floor 21 Posted 2007-06-06 21:55　·　 中国 广东 佛山 电信
qinbuer
高级用户
★★
我思故我在
Credits 512
Posts 228
Joined 2007-01-21 10:31
19-year member
UID 77225
Gender Male
Status Offline
Support
我确实是只菜鸟，而且这里X人太多，所以我不敢装X。谁要再说我装X，我就XXOO他。
Floor 22 Posted 2007-06-07 12:02　·　 中国 四川 绵阳 江油市 电信
qingfushuan
高级用户
★★★
Credits 502
Posts 327
Joined 2006-12-30 06:01
19-year member
UID 74981
Gender Male
Status Offline
Thanks to the script from 17F, thanks and learning.

[ Last edited by qingfushuan on 2007-6-7 at 12:13 PM ]
Floor 23 Posted 2007-08-03 02:50　·　 中国 广东 东莞 电信
hackerflysky
初级用户
★
Credits 50
Posts 20
Joined 2007-06-17 00:18
19-year member
UID 91565
Gender Male
From 湖南常宁
Status Offline
Floor 24 Posted 2008-10-27 11:17　·　 中国 甘肃 兰州 城关区 电信
QQ135196
社区乞丐
★
Credits -17
Posts 9
Joined 2008-10-27 10:07
17-year member
UID 129207
Gender Male
Status Offline
In learning, collected!
Recent Ratings for This Post （ 1 in total） Click for details
RaterScoreTime
yishanju -4 2008-10-27 11:19
Floor 25 Posted 2008-10-27 11:19　·　 中国 北京 鹏博士长城宽带
yishanju
银牌会员
★★★★
[b]看你妹啊[/b]
Credits 1,488
Posts 1,357
Joined 2006-05-20 12:00
20-year member
UID 55770
Status Offline
Can you stop necro-bumping old threads all the time?

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
Floor 26 Posted 2009-08-05 00:36　·　 中国 天津 电信
naiveboy520
初级用户
★
Credits 40
Posts 37
Joined 2009-06-24 00:38
17-year member
UID 148015
Gender Male
Status Offline
Everyone is very enthusiastic, I also want to learn
Floor 27 Posted 2009-10-23 18:18　·　 中国 上海 浦东新区 电信
solardo
新手上路
★
Credits 3
Posts 2
Joined 2009-10-20 22:33
16-year member
UID 153405
Gender Male
Status Offline
What a good piece of iron! Give a thumbs up!
Floor 28 Posted 2009-11-27 21:33　·　 中国 广东 佛山 电信
chihiro
新手上路
★
Credits 7
Posts 4
Joined 2009-10-07 22:25
16-year member
UID 152738
Gender Male
Status Offline
Come in to get learning materials, thank you
Floor 29 Posted 2009-11-30 09:40　·　 中国 广东 深圳 电信
wotsml
新手上路
★
Credits 6
Posts 5
Joined 2009-01-02 13:08
17-year member
UID 135577
Gender Male
Status Offline
Wow, good stuff
‹ Prev 1 2
Printable Version | Subscribe | Add to Favorites
Forum Jump:
[ Contact the Union admin team - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023