ASP 随机函数。
首先准备了10 张asp>图片，名称为 1.gif 至 10.gif ,只要得到 1-10 的随机数就 OK !

<%
  randomize
  dim k
  k=cint(rnd*10)
  if k=0 then
    k=k+1
  end if
%>
<img src="?%=k%?.jpg" width="..." height="...">
ASP 程序主要遵循 Visual Basic 的语法。 Rnd 函数随机产生0到1之间的单倍精确浮点数，会返回固定顺序的随机数，这个顺序称之为随机数初始值。 单倍精确浮点数 = Rnd [(指定数值或数值表达式)]  参数 > 0，随机产生  参数 = 0，复制最近一次的随机数  参数 < 0，产生固定值的随机数  Randomize 函数依据用户指定的随机数初始值决定随机数的顺序。  Cint 函数依据四舍六入的原则将表达式转换成整数。一般说来，Cint 函数根据小数位数和整数位数不同，而有不同的进位方式。 整数 = Cint (表达式)  小数部分 < 0.5，舍弃小数  小数部分 > 0.5，进位  小数部分 ＝ 0.5，如整数为奇数，进位;如整数为偶数，舍弃小数     注.意     1 程序中应该先设置随机数初始值 Randomize 2 程序取整的是小数部分第一位的数值，会得到 0-10 的整数   给大家一串广告代码参考吧<%set rs=server.createobject("ADODB.recordset") rs.Open "SELECT * FROM Ad",conn,1,1 if rs.eof thenelsetotal=rs.recordcountRandomize D1 = Fix(Rnd * total)for i=1 to D1rs.movenextnext if rs("type")="GIF" then%><%if rs("url")<>"" then%><A HREF="<%=rs("url")%>" target=_blank><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle></A><%else%><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle><%end if%><%else%><embed src="<%=rs("src")%>" type="application/x-shockwave-flash" width="<%=rs("width")%>" height="<%=rs("height")%>"><%end if%><%end if%></BODY>