ad.asp

这个东东叫<掌中无限>的WAP整站程序,但是用不鸟的.. 如果你们可以.改良 ..改良...弄好它..就好啦!

<%
Dim ad01(10)
ad01(0)="<a href='http://wap.moxx.cn/ad2.jsp?user=8wap'>手机精品软件</a>"
ad01(1)="<a href='http://un.caishow.com/wap/ad/737.asp?adcid=3296'>偷拍美女隐私</a>"
ad01(2)="<a href='http://un.caishow.com/wap/ad/322.asp?adcid=3296'>心跳喷血美图</a>"
ad01(3)="<a href='http://un.caishow.com/wap/ad/184.asp?adcid=3296'>狂野少女诱惑</a>"
ad01(4)="<a href='http://wap.moxx.cn/ad5.jsp?user=8wap'>日本女优自拍</a>"
ad01(5)="<a href='http://wap.moxx.cn/ad4.jsp?user=8wap'>热辣激情show</a>"
ad01(6)="<a href='http://wap.moxx.cn/ad.jsp?user=8wap'>成人游戏收藏</a>"
ad01(7)="<a href='http://wap.moxx.cn/ad9.jsp?user=8wap'>绝密写真全集</a>"
ad01(8)="<a href='http://wap.moxx.cn/ad5.jsp?user=8wap'>情色视频*露点</a>"
ad01(9)="<a href='http://wap.moxx.cn/ad3.jsp?user=8wap'>聆听白领*呻吟</a>"
ad01(10)="<a href='http://wap.moxx.cn/ad7.jsp?user=8wap'>玫瑰宝贝迷情夜</a>"
Randomize
I=Int(Rnd()*11)
ad=ad01(i)
Response.Write(ad)
%>