openad.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 26 行

ASP
26 行
字号 
<!--#INCLUDE FILE="../HXINCLUDE/datapath.ASP"-->
<!--#include file="../include/Conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<%
 	Dim ADID,AD_Link,rs
		ADID=Request.QueryString("adid")
	Set rs=server.createobject("adodb.recordset")
		sql = "Select ADLink,ADHits from [ad] where ADID='" & ADID & "'"
		rs.open sql,conn,1,3
	If not (rs.bof or rs.eof) Then
		AD_Link=rs("ADLink")
		rs("ADHits")=rs("ADHits") + 1
		rs.Update
	else
		response.write "<font size=2 color=red>没有找到您要浏览的广告</font>"
	End If
		rs.Close
	set rs=nothing
		conn.Close
	set conn=nothing
	If AD_Link="" Then AD_Link="http://"&Request.Servervariables("server_name")
		response.redirect AD_Link
%>

openad.asp - 源码说明

本页面展示了「带OA办公的动态源码网站」中的 openad.asp 源码文件，采用 ASP 编程语言编写，共 26 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?