亳州网络公司 - 亳州网站制作 - 亳州网站建设 - 亳州易天科技

易天科技ASP隨機輸出圖片代碼。
  <%
  dim numtemp
  Randomize '該語句用于初始化隨機種子，否則每次產生的值都一樣
  NumTemp = Int((2* Rnd()) + 1)
  If NumTemp=1 Then
        Response.Write "background=images/test1_08.jpg"
  elseif numtemp=2 then
        Response.Write "background=images/01.jpg"
  end if %>