iewAd.asp 乘风网站推广系统 3.99 (acc)码程序 - ASP源码程序

www.gusucode.com > 乘风网站推广系统 3.99 (acc)码程序 > ViewAd.asp
    <%
'乘风网站推广系统 Access版
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cfwztg
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站查看
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">

<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunCtion.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Tmp=HttpPath(2)

ID=ChkStr(Request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFWztg_AD where ID="&ID
Rs.open Sql,Conn,1,1
%>
<%If Rs("Ad_Class")=1 Then%>
 <a href=<%=Rs("Ad_Url")%> target=_blank><%=Rs("Ad")%><%=Tmp%>cf.aspx?<%=Rs("ID")%>&qqcf</a>
<%ElseIf Rs("Ad_Class")=2 Then%>
 <a href=<%=Rs("Ad_Url")%> target="_blank"><img src="<%=Rs("Ad")%>" border="0"></a>
<%ElseIf Rs("Ad_Class")=3 Then%>
  <a href=<%=Rs("Ad_Url")%> target=_blank><%=Rs("AD")%></a>
<%ElseIf Rs("Ad_Class")=4 Then%>
  <%
  Ad=Rs("AD")
  Ad_2=Lcase(Ad)
  If Instr(Ad_2,"http://")=0 Then
   ImgPath=Tmp&Ad
  Else
   ImgPath=Ad
  End if
  %>
  <%If Instr(Ad_2,".swf")=0 Then%>
   <a href=<%=Rs("Ad_Url")%> target=_blank><img src=<%=ImgPath%> border=0></a>
   <%Else%>
	
    <div id="mylayer" style="cursor: hand; position:absolute; left:0px; top:0px; width:1024px; height:800px; z-index:1; visibility: visible;">
    <a href='<%=Rs("Ad_Url")%>' target='_blank'><img src='images/flash_bg.gif' border='0'></a>
    </div>

    <div style="z-index:-1">
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width=<%=Rs("AdWidth")%> height=<%=Rs("AdHeight")%>>
    <param name="movie" value=<%=ImgPath%>>
    <param name="quality" value="high">
    <param name="wmode" value="transparent">
    <embed src=<%=ImgPath%> quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width=<%=Rs("AdWidth")%> height=<%=Rs("AdHeight")%>></embed>
    </object>
    </div>
   <%End If%>
<%ElseIf Rs("Ad_Class")=5 Then%>
 <a href=<%=Rs("Ad_Url")%> target=_blank><%=Rs("Ad")%><br /><%=Rs("AdIntro")%><br /><%=Rs("AdSimpleUrl")%></a>
<%ElseIf Rs("Ad_Class")=6 Then%>
 <a href=<%=Rs("Ad_Url")%> target="_blank"><img src="<%=Rs("Ad")%>" border="0"></a>
<%ElseIf Rs("Ad_Class")=7 Then%>
 <%
  Response.Write Rs("Ad")
 %>
<%End If%>