序：
最近上网下载彩信，总觉得贵，于是找到了一个方法。
登陆：http://photo.monternet.com（移动梦网的彩信像册）
原来这里可以免费发彩信，爽~
找到自己喜欢的彩信就可以上传，2天左右（审核）就可以免费转发到手机。
其中还找了两个WAP_PUSH链，这里不公开了。
那么剩下的就是找好看的图图了~~

打开mms.qq.com。打开图片位置是：http://ring1.qq.com:8080/mcard/images/41863
做一个假设：如果所有的图片都是在此目录下，至少有4W张吧~
如何能让他全部显示呢？

代码如下：
<script language="vbs">

sub showpic
for i=42400 to 42450
pic=i
document.writeln("<tr><td><img src='http://ring1.qq.com:8080/mcard/images/"&pic&"'></td></tr>")
next
end sub

document.writeln("<table cellspacing=3 BORDER=0>")
call showpic
document.writeln("</table>")
</script>  
======================================
演示地址：http://jokcn.com/bbs/1.htm

新建一记事本，修改文件名（新建记事本.txt）为 mms.htm,复制以上代码于其中，然后保存。
IE打开一看mms.htm，果然能看到，唯一不爽的是，每个图片都有好多张，细心的朋友已经发现了，这是根据手机屏幕大小做的图，每个图有8张，那么这就简单多了，只要稍微修改一下就可以了~
pic=i*8+2
这样，你就能看到最大的哪个了~~

代码如下：
<script language="vbs">

sub showpic
for i=5300 to 5400
pic=i*8+2
document.writeln("<tr><td><img src='http://ring1.qq.com:8080/mcard/images/"&pic&"'></td></tr>")
next
end sub

document.writeln("<table cellspacing=3 BORDER=0>")
call showpic
document.writeln("</table>")
</script>
======================================
演示地址：http://jokcn.com/bbs/2.htm

好了~找到你喜欢的哪个了吗？保存，上传到彩信像册，两天左右就可以发到自己的手机了~而且全免费~~

显示方法：复制下面的一断代码到记事本里面。保存成htm格式的文件，打开就可以看到了
===============================================
关于彩信像册补充说明一点：改像册是免费注册，支持中国移动用户，注册成功之后依次进入 我的像册>>我的图片>>上传图片 （如果是自己制作的图片，最好不要超过45K，移动规定彩信单条最大容量为50K）

由于彩信接收是不收取流量费的，所以以上方法可以说是纯粹免费。关于这个问题可以咨询1860。

===============================================
代码扩展：
其实代码修改一下，就可以实现固定有固定连续网址的东西，甚至可以动态更新。如：
<script language="vbs">

dim currentdate,currentyear,currentmonth


sub dayinfo
date_info=date()
currentdate=Day(date_info)
currentmonth=Month(date_info)
currentyear=Year(date_info)
end sub


dim alldays(11)
alldays(0)=31
alldays(1)=28
alldays(2)=31
alldays(3)=30
alldays(4)=31
alldays(5)=30
alldays(6)=31
alldays(7)=31
alldays(8)=30
alldays(9)=31
alldays(10)=30
alldays(11)=31


call dayinfo
if (currentyear mod 4=0) then alldays(1)=alldays(1)+1


sub aa


for i=1 to 7
j=currentdate-i
if j>=10 then
  d=j
  t=1
elseif j>0 then
  d="0"&j
  t="01"
elseif m>10 then
  d=31+j
  t=1
else
  d=31+j
  t=12
end if
document.writeln("<tr><td><a href='rtsp://real.cctv.com.cn/news/xwlb/56K/"&t&d&".rm'>央视"&t&"月"&d&"日新闻联播</a></td></tr>")
next
end sub


sub bb
if currentmonth>=10 then m=currentmonth else m="0"&currentmonth


for i=1 to 7
j=currentdate-i
if j>=10 then
  d=j
  t=m
elseif j>0 then
  d="0"&j
  t=m
elseif m>10 then
  d=alldays(currentmonth-2)+j
  t=m-1
else
  d=alldays(currentmonth-2)+j
  t="0"&(m-1)
end if
document.writeln("<tr><td><a href='rtsp://real.cctv.com.cn/news/xwlb/56K/"&t&d&".rm'>央视"&t&"月"&d&"日新闻联播</a></td></tr>")
next
end sub
document.writeln("<table cellspacing=3 BORDER=0>")
if currentmonth=1 then call aa else call bb
document.writeln("</table>")
</script>
======================================
演示地址：http://jokcn.com/bbs/3.htm



特别注意：请不要把你看到的东西用于商业用途，对此本人盖不负责~