扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
<%@Language=VBScript ' 定义用于产生随机数的最大值 MaxNoAds = 10 ' 设置文档类型 Response.ContentType = "text/vnd.wap.wml" ' 从数据库中随机选择一个广告 Randomize(Cbyte(Left(Right(Time(),5),2))) AdID=(Int((MaxNoAds-1+1) * Rnd + 1)) ' 从数据库中把这条广告取出 set objConn = Server.CreateObject("adodb.connection") objConn.Open "dsn=adserver;uid=adserver" sql = "SELECT * from ADbase where bannerid = '" & AdID & "'" set rsAd = objConn.Execute(sql) ' 显示WML内容 %> <?xml version="1.0"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <wml> <card id="bannerad" title="广告"> <p> <a href="<%=rsAd("bannerURL")%>"> <%=rsAd("bannertext")%> </p> </wml> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者