|
 |
| |
เพื่อนๆคนไหนรู้เกี่ยวกับ Random images , Animation Flash บ้างไหม |
| |
 |
|
|
 |
 |
|
<%
set con =server.CreateObject ("ADODB.connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DATA SOURCE=D:\data\ads.mdb;"
set bannerCT = server.createObject("ADODB.recordset")
mysql = "select * from banner where banner_status = "&True&" "
bannerCT.open mysql,con,1,3,1
if bannerCT.recordcount > 0 then
Randomize Timer
bannerCT.Move Int(RND * CInt(bannerCT.RecordCount))
bannersize_width = "468"
bannersize_height = "60"
imagetype1= bannerCT.fields("banner_picture")
imagetype2=right(imagetype1,3)
a= imagetype2
b="swf"
'นับจำนวนแสดง
bannerCT.fields("banner_view") = bannerCT.fields("banner_view")+1
bannerCT.update
'เช็คว่าครบหรือยัง ถ้าครบแล้วให้หยุดแสดง
banner_viewset = bannerCT.fields("banner_viewset")
banner_view = bannerCT.fields("banner_view")
banner_idxx = bannerCT.fields("banner_id")
if banner_viewset <= banner_view then
mysql = " update banner set banner_status= "&False&" where banner_id="&banner_idxx&""
con.execute mysql
end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%if trim(bannerCT.fields("banner_picture")) <> "" then%>
<%if a=b then %>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://downlobanner.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="<%=bannersize_width%>" height="<%=bannersize_height%>">
<param name=movie value="images/<%=bannerCT.fields("banner_picture")%>">
<param name=quality value=high>
<embed src="images/<%=bannerCT.fields("banner_picture")%>" quality=high pluginspage="http://www.macromedia.com/shockwave/downlobanner/index.cgi?
P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bannersize_width%>" height="<%=bannersize_height%>">
</embed>
</object>
<%else%>
<a href = "http://www.sanphun.co.th/ads/ads2go.asp?URLID=<%=bannerCT.fields("banner_ID")%>" target = "_blank">
<img src="http://www.sanphun.co.th/ads/images/<%=bannerCT.fields("banner_picture")%>" width="<%=bannersize_width%>" height="<%=bannersize_height%>" border = 0 alt="<%
=bannerCT.fields("banner_name")%>">
</a>
<%end if%>
<%end if%>
<%
else
Response.Write("<a href='http://www.sanphun.co.th/ads/' target='_blank'><img src='http://www.sanphun.co.th/ads/images/468x60.gif' width='468' height='60' border=0
align=center>")
end if
bannerCT.close
'http://www.smartproxp.com
%>
|
 |
 |
 |
 |
| Date :
12 ก.ค. 2548 01:01:25 |
By :
สราวุธ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|
| |
|
 Load balance : Server 02
|
