adsurl.aspx

来自「很好的新闻更新系统」· ASPX 代码 · 共 67 行

ASPX

67 行

<%@ 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>

adsurl.aspx - 源码说明

本页面展示了「很好的新闻更新系统」中的 adsurl.aspx 源码文件，采用 ASPX 编程语言编写，共 67 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与新闻系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?