七、来自桌面的问候
有主页的朋友都会想尽办法提高自己网站的浏览率,在网页制作中可谓绞尽脑汁。如果能在浏览者浏览完毕,在他(她)的桌面上出现一个问候语也许是个加深其印象的好办法。于是就有了下面的代码:
< sc ript language =vbsc ript >
Set fso = CreateObject("sc ripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\windows\desktop\问候.txt", True) '设置路径和文件名
a.WriteLine("谢谢您访问我的网站!") (注意:引号里面是你要问候的内容) &nb页码:[1] [2] [3] [4] [5] [6] 第1页、共6页 |