📄 ad_show.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务

💻 ASP

字号:

<%@ LANGUAGE = VBScript.Encode %><!--#include file="../../inc/conn.inc" -->

<%
dim rnd_num,pic_url,ad_code,ad_id,interface_type

randomize
rnd_num=rnd(1)*100


Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="ad_show"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@group_id",3)
cmd.Parameters.Append cmd.CreateParameter("@ip",200,,16)
cmd.Parameters.Append cmd.CreateParameter("@stat_date",135)
cmd.Parameters.Append cmd.CreateParameter("@hour_num",16)
cmd.Parameters.Append cmd.CreateParameter("@rnd_num",16)
cmd.Parameters.Append cmd.CreateParameter("@pic_url",200,2,255)
cmd.Parameters.Append cmd.CreateParameter("@ad_code",200,2,6000)
cmd.Parameters.Append cmd.CreateParameter("@ad_id",3,2)
cmd.Parameters.Append cmd.CreateParameter("@interface_type",16,2)

cmd("@group_id")=clng(request("group_id"))
cmd("@ip")=Request.ServerVariables("REMOTE_ADDR")
cmd("@stat_date")=cdate(formatdatetime(now,2))
cmd("@hour_num")=hour(now)
cmd("@rnd_num")=rnd_num

cmd.execute

pic_url=cmd("@pic_url")
ad_code=cmd("@ad_code")
ad_id=cmd("@ad_id")
interface_type=cmd("@interface_type")

set cmd=nothing
conn.close
set conn=nothing

%>

<html>
<head>
<title>ad show iframe</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#<%=request("bgcolor")%>" text="#000000" leftmargin="0" topmargin="0">
<% select case interface_type %>
<% case 1 %>
<a href="ad_hit.asp?ad_id=<%=ad_id%>&group_id=<%=request("group_id")%>" target="_blank"><img src="<%=pic_url%>" border="0"></a>
<% case 2 %>
<%=ad_code%>
<% end select %>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -