📄 openad.asp

📁 夏茂政府网站

💻 ASP

字号:

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%Session.CodePage=936%>
<!--#include file="setting.asp"-->
<!--#include file="../include/Conn.asp"-->
<!--#include file="../include/char.asp" -->
<!--#include file="../Include/check.asp"-->
<!--#include FILE="../Include/Admin_Function.asp"-->

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -