开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Ad_UseShow.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：1k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Ad_UseShow.asp：源码内容
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  4. <title>广告调用代码___Powered by foosun Inc.</title>
  5. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  6. </head>
  7. <body>
  8. <%
  9. 'Copyright (c) 2006 Foosun Inc. Code by 邓西
  10. Dim AdID,str_TempStr
  11. AdID=Request.QueryString("ID")
  12. If AdID="" or IsNull(AdID) Then
  13. str_TempStr="<textarea name=""code"" cols=""60"" rows=""5"">参数错误</textarea>"
  14. Else
  15. If IsNumeric(AdID)=False Then
  16. str_TempStr="<textarea name=""code"" cols=""60"" rows=""5"">参数错误</textarea>"
  17. Else
  18. str_TempStr="<textarea name=""code"" cols=""60"" rows=""5""><script language=""javascript"" src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/"&AdID&".js></script></textarea>"
  19. End If
  20. End If
  21. str_TempStr="<table width=""100%"" border=""0""><tr align=""center""><td>"&str_TempStr&"</td</tr><tr><td height=""10""></td></tr><tr align=""center""><td><input type=""button"" value=""复制代码"" onclick=""javascript:copyToClipBoard();"">  <input type=""button"" value=""关闭窗口"" onclick=""javascript:window.close();""></td></tr></table>"
  22. Response.Write(str_TempStr)
  23. %>
  24. </body>
  25. </html>
  26. <script language="javascript">
  27. function copyToClipBoard()
  28. {
  29. var clipBoardContent=document.getElementById("code").value
  30. window.clipboardData.setData("Text",clipBoardContent);
  31. alert("复制成功");
  32. }
  33. </script>
  34. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->