📄 adsurl.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb"%>
<html>
<head>
<title>广告连接地址显示</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>
<script language="vb" runat="server">
Dim sql as String
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
function getdatareader(sql as string) as OleDbDataReader
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
end Function
function executesql(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end Function
Function addclicklist(adsid as integer,dianji as integer)
dim ipaddress,isok as string
ipaddress=request.ServerVariables("REMOTE_ADDR")
isok="true"
sql="select top 1 riqi from iplist where adsid="& adsid &" and ipaddress='"& ipaddress &"' and leixing=2 order by riqi desc"
dim ipreader as oledbdatareader=getdatareader(sql)
while ipreader.read()
if ipreader.Item(0)>=(dateadd("h",-2,now())) then
isok="false"
end if
end while
myConn.close()
if isok="true" then
sql="insert into iplist(adsid,ipaddress,riqi,leixing) values("& adsid &",'"& ipaddress &"','"& now() &"',2)"
executesql(sql)
dianji+=1
sql="update ads set click="& dianji &",riqi='"& Now() &"' where id="& adsid
executesql(sql)
end if
End Function
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn = New OledbConnection(strConn)
dim adsid,clicktimes as integer
dim targeturl as string
adsid=cint(page.request("adid"))
sql="select url,click from ads where id="& adsid
dim adsreader as oledbdatareader=getdatareader(sql)
while adsreader.read()
targeturl=trim(adsreader.Item(0))
clicktimes=adsreader.Item(1)
end while
myConn.close()
addclicklist(adsid,clicktimes)
response.redirect(targeturl)
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -