📄 index.asp
字号:
<%Admin="ad"%>
<!--#include file="../check.asp"-->
<!--#include file="../inc/config.asp"-->
<!--#Include File="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../inc/admin.css" type=text/css rel=stylesheet>
<title>Hxcms.js广告系统</title>
<SCRIPT LANGUAGE="JavaScript">
function delad(){
if (confirm("确定要删除这则广告么?删除后不可以再恢复哦!?")){return true;}
return false;
}
</SCRIPT>
</head>
<body>
<%
'****************************************************
' Hxcms_JS广告插件V1.0 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='../admin.asp';</script>")
response.end
end if
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="4">JS广告系统</td>
</tr>
<tr class=Hxcmsqs align="center">
<td colspan="2"><img src="images/dot.gif" align="absmiddle">
<a href="add.asp">添加广告</a> <img src="images/dot.gif" align="absmiddle">
<a href="index.asp">广告列表</a> <img src="images/dot.gif" align="absmiddle">
<a href="index.asp?action=stop">过期广告</a> <img src="images/dot.gif" align="absmiddle">
<a href="code.asp">广告代码</a></td>
<td colspan="2" align="center"><form method="GET" action="">
<input type="text" name="adwd" size="27" value="<%=Request("adwd")%>">
<select size="1" name="mc">
<option selected value="mc">广告名称ID或备注</option>
<option value="nr">广告内容</option>
</select>
<input type="submit" value="广告搜索">
<input type="reset" value="重写">
<input type="hidden" value="search" name="action"></td>
</tr></form>
<%
Dim pagesize,rs,sql,curpage,strcate,i,keyw
Dim id,ADID,ADViews,ADHits,ADType,ADSrc,ADLink,ADAlt,ADWidth,ADHeight,ADNote,ADStopViews,ADStopHits,ADStopDate
pagesize=10 '============设置每页显示广告数
If Request.QueryString("page")="" Then
curpage = 1
Else
curpage = cint(Request.QueryString("page"))
End If
Set rs = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("action")="search" then
adwd=Request("adwd")
if(Request("mc"))="mc" then
sql="select * from [ad] where (ADNote like '%"&adwd&"%') or ( ADID like '%"&adwd&"%') order by id desc"
else
sql="select * from [ad] where ( adsrc like '%"&adwd&"%') order by id desc"
end if
Else
if Request.QueryString("action")="stop" then
sql = "SELECT * FROM [ad] where ( ADStopViews <> 0 and ADViews > ADStopViews) or ( ADStopHits <> 0 and ADHits > ADStopHits) or ( DateDiff('d',Now(),ADStopDate)<1 ) ORDER BY id DESC"
else
sql = "SELECT * FROM [ad] ORDER BY id DESC"
end if
end If
rs.open sql, conn, 1, 1
If err.number <> 0 Then
Response.Write "打开数据库出错,请检查conn.asp中数据库地址是否正确"
Response.End
End If
If rs.bof or rs.eof Then
rs.Close
if Request.QueryString("action")="search" Then
%><br>
<tr class=Hxcmsds>
<td align="center" colspan="4"><font color="#990000">在广告文件名和备注中没有发现含<%=Request("adwd")%> 的广告！</font>
</tr>
</table>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsds>
<td align="center" colspan="4"> 版权所有2006 © <a href="http://hx66.com.cn">花香盈路</a> </td>
</tr>
</table>
<% Else%>
<br>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsds>
<td align="center" colspan="4"><font color="#990000">暂时没有广告！</font>
</tr>
</table>
<br>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsds>
<td align="center" colspan="4"> 版权所有2006 © <a href="http://hx66.net">花香盈路</a> </td>
</tr>
</table>
<%
End If
Response.End
End If
rs.pagesize = pagesize
rs.absolutepage = curpage
%>
<br>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsds>
<td height="25" align=right>
<%If curpage = 1 Then%>
[首页] [上一页]
<%Else%>
[<a href='?page=1'>首页</a>] [<a href='index.asp?action=search&adwd=<%=Request("adwd")%>&page=<%=cstr(curpage-1)%>'>上一页</a>]
<%End If
If curpage = rs.pagecount Then%>
[下一页] [尾页]
<%Else%>
[<a href='index.asp?action=search&adwd=<%=Request("adwd")%>&page=<%=cstr(curpage+1)%>'>下一页</a>] [<a href='index.asp?action=search&adwd=<%=Request("adwd")%>&page=<%=cstr(rs.pagecount)%>'>尾页</a>] <%End If%> </td>
</tr>
</table>
<%
Do While NOT rs.eof
id=rs("id")
ADID=rs("ADID")
ADViews=rs("ADViews")
ADHits=rs("ADHits")
ADType=rs("ADType")
ADSrc=rs("ADSrc")
ADLink=rs("ADLink")
ADAlt=rs("ADAlt")
ADSrc=rs("ADSrc")
ADWidth=rs("ADWidth")
ADHeight=rs("ADHeight")
ADNote=rs("ADNote")
ADStopViews=rs("ADStopViews")
ADStopHits=rs("ADStopHits")
ADStopDate=rs("ADStopDate")
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsqs>
<td width="25%" height="25"><img src="images/ico.gif" align="absmiddle">名称：<%=ADID%> <%if IsStop(ADViews,ADStopViews,ADStopHits,ADHits,ADStopDate) Then Response.Write(" <font color=red>(已过期)") End If%></td> <td width="20%">显示：<%=ADViews%></td>
<td width="15%">点击：<%=ADHits%></td>
<td width="25%">管理：<a href="edit.asp?id=<%=id%>">编辑</a> <a href="createjs.asp?id=<%=ADID%>">生成JS</a> <a href="del.asp?id=<%=id%>&dir=js&dfiles=<%=ADID%>.js" onclick='return delad();'>删除</a></td>
<td width="15%"><a href="#" target="_self">>>回顶端<<</a></td>
</tr>
<tr class=Hxcmsds>
<td colspan=2 height="25" colspan=2>广告类型：<%=ShowAdType(ADType,rs("ADSrc"))%></td>
<td colspan=3>备 注：<%=ADNote%></td>
</tr>
<tr class=Hxcmsds>
<td height="25" colspan=2>链接地址：<a href=<%=ADLink%> target=_blank><font color="#000000"><%=ADLink%></a></td>
<td colspan=3>提示文字：<%=ADAlt%></td>
</tr>
<tr class=Hxcmsds>
<td height="6" colspan=2 width="179">广告规格：<%=ADWidth%>×<%=ADHeight%></td>
<td colspan=3 width="559">生成JS后广告调用代码：<input type="text" onfocus="this.select()" name="T1" size="48" value="<SCRIPT src=ad/js/<%=ADID%>.js></SCRIPT>"></td>
</tr>
<tr class=Hxcmsds>
<td height="8" colspan=5>显示地址或内容：<br>
<%If ADType=11 Then%>
<div style="width:100%;height:100;overflow-x:hidden;overflow-y:scroll; background-color: #FFFFFF"><SCRIPT src="js/<%=ADID%>.js" type=text/javascript></SCRIPT>
<% else%>
<%If ADType<>6 Then%><a href=<%=ADSrc%> target=_blank><font color="#000000"><%=ADSrc%></a><%else%>不显示<%end if%><%end if%></font></div></td>
</tr></table>
<%
i=i+1
rs.movenext
If i>=rs.PageSize Then Exit Do
Loop
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsqs>
<td height="25" colspan=4> <center> 第<%=cstr(curpage)%>页 总<%=cstr(rs.pagecount)%>页 本页<%=cstr(i-1)%>条 总<%=cstr(rs.recordcount)%>条 <a href="#" target="_self">>>回顶端<<</a></center></td>
</tr>
</table>
<br>
<p></p>
</body>
</html>
<%
rs.close
set rs=nothing
conn.Close
set conn=nothing
'==================检测是否过期
function IsStop(ADViews,ADStopViews,ADStopHits,ADHits,ADStopDate)
IsStop=false
If ( ADStopViews <> 0 and ADViews > ADStopViews) Then
IsStop=true
Exit function
ElseIf ( ADStopHits <> 0 and ADHits > ADStopHits) Then
IsStop=true
Exit function
ElseIf ( DateDiff("d",Now(),ADStopDate)<1 ) Then
IsStop=true
Exit function
End If
end function
'==================判断广告类型
function ShowAdType(ADType,ADSrc)
Dim ADExt
ADExt="图片"
If InStr(1,ADSrc,".swf",1)>0 Then ADExt="FLASH"
Select Case ADType
Case 1
ShowAdType="普通"&ADExt
Case 2
ShowAdType="全屏浮动"&ADExt
Case 3
ShowAdType="上下浮动 - 右"&ADExt
Case 4
ShowAdType="上下浮动 - 左"&ADExt
Case 5
ShowAdType="渐隐消失"&ADExt
Case 6
ShowAdType="网页对话框"
Case 7
ShowAdType="移动透明对话框"
Case 8
ShowAdType="打开新窗口"
Case 9
ShowAdType="弹出新窗口"
Case 10
ShowAdType="对联式广告"
Case 11
ShowAdType="JS式广告代码"
Case else
ShowAdType="<font color=red><b>错误!将不能正确显示</b>"
End Select
end function
'****************************************************
' Hxcms_JS广告插件V1.0 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -