viewad.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

<%
'==================================
' 乘风网站推广系统v3.83 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址: http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 使用帮助：http://www.qqcf.com/?action=help&help=cfwztg
' 声 明:	
' 本软件系免费程序,提供给个人免费使用。
' Access免费版缺少防止用户作弊的功能,如需要此功能请购买正式版本。
' 作者为付费版用户提供全面升级服务和技术支持,免费版用户提供有限的升级服务和技术支持。
' 免费版用户在程序首页保留乘风原创程序版权和链接。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器Access版、MsSql版、Php版、.Net版，乘风电影程序、
'　　　　　　　 乘风网站推广系统Mssql版、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'                       2006年9月14日									
'===================================
%>
<!--#Include File="QQCF_Conn.asp"-->
<!--#Include File="QQCF_ChkStr.asp"-->
<!--#Include File="QQCF_MyFunCtion.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Tmp=HttpPath(2)

ID=Request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_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.asp?<%=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=tome style="POSITION: absolute;cursor:hand;" onclick="window.open('<%=Rs("Ad_Url")%>','_blank')">
    <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><img src="<%=Tmp%>qqcf_pic/adbg.gif" style="position:relative;left:-200">
    </DIV>
   <%End If%>
<%ElseIf Rs("Ad_Class")=5 Then%>
  <script>window.open ('<%=Tmp%>cf.asp?Action=adopen&User_Name=qqcf&Ad_ID=<%=ID%>&CheckCode=1&CheckIP=1&CheckTime=1&Ad=<%=Rs("Ad")%>', 'qqcf', 'width=<%=Rs("AdWidth")%>,height=<%=Rs("AdHeight")%>,top=0,left=0,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no');</script>
<%ElseIf Rs("Ad_Class")=6 Then%>
  <script>window.open ('<%=Rs("Ad_Url")%>', 'qqcf', 'width=<%=Rs("AdWidth")%>,height=<%=Rs("AdHeight")%>,top=0,left=0,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes');</script>
<%End If%>