Hiển thị text ngẫu nhiên

Hiển thị text ngẫu nhiên
Trang .asp (RandomAd.asp)
Code :

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=”GENERATOR” Content=”Microsoft Visual Studio 6.0″>
</HEAD>
<BODY bgcolor=Thistle>
<%Set ad = Server.CreateObject(“MSWC.AdRotator”)%>
<center> <%= ad.GetAdvertisement(“RandomAd.txt”) %> </center>
</BODY>
</HTML>

Text File (RandomAd.txt)
Code :

REDIRECT Adredir.asp
WIDTH 500
HEIGHT 60
BORDER 0
*
images/First_Ad.gif
http …
The Systems Company
40
images/Second_Ad.gif< … Search Site
20
images/Third_Ad.gif
… Your Calendar
40