我在以前就学了一点asp3.0的控件，我是指那个 "MCWC"，我也只是知道那么一定点，呵呵，
我现在试着记忆写写。不要见笑。

<% @ language=VBscript %>
<%=pagetitle%>

<% myad=set server.creatobject("MCWC.Adrotate" ) %>
<%showad=myad.getadvertisement("ad.txt" )
response.write showad.choose.random
%>
//以上显示随机广告
<% numpage=set server.createobject("MCWC.count" )
shownum= numpage.getCountList("mydate.txt" )
%>
//以上是找到文本文件的记录数
<% for n=1 to shownum
mydate=set server.createobject("MCWC.Nextlink" )
shownextdescription=mydate.getnthdescription("mydate.txt",n)
shownextlink=mydate.getnthURL("mydate.txt",n)
response.write shownextdescription
response.write sownextlink
%>


以上的估计有问题，请指教。希望不要删了，