www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > popup.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="web.config.asp"--> <% dim ADCode_popup : ADCode_popup="" id=request.QueryString("id") If id<>"" and isNumeric(id) then sql = "SELECT * FROM deep_Advertisement WHERE fisView=1 and fid=" & id set rsAdvert = conn.execute(sql) If rsAdvert.eof And rsAdvert.bof Then else ADCode_popup=rsAdvert("fADCode") End if rsAdvert.Close() Set rsAdvert = Nothing End if dim oDeepTemplate set oDeepTemplate=new Deep_Template oDeepTemplate.templates_dir="themes/"&site_theme&"/" oDeepTemplate.readTemplateFile("popup.template.html") '调入文件 'oDeepTemplate.replaceTag "../base.css","themes/base.css" oDeepTemplate.replaceText "theme.css","themes/"&site_theme&"/theme.css" do_replace_siteConfig(oDeepTemplate) '替换网站基本配置信息标签 oDeepTemplate.replaceTag "ADCode_popup",ADCode_popup '广告弹窗内容 oDeepTemplate.display() '显示 set oDeepTemplate=nothing call CloseConnDB() %>