易天科技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 %>
<%
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 %>