📄 admin_admanage.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<!--#include file="include/cls_admanage.asp"-->
<%
Admin_header
'=====================================================================
' 网站名称：黑客世界
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_account.asp
' 更新日期：2008-05-01
' 官方网站：黑客世界【www.skycap.cn】QQ：19901451
'=====================================================================
' Copyright 2008-2010 skycap.cn- All Rights Reserved.
' skycap.cn is a trademark of skycap.cn
'=====================================================================
Response.Write "<table border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <th><a href='admin_admanage.asp' Class=showtitle><strong>广告管理</strong></a></th></tr>" & vbNewLine
Response.Write " <tr height=25>" & vbNewLine
Response.Write " <td class=TableRow1><B>说明：</B><br> " & vbNewLine
Response.Write "①、本系统所有广告代码都将生成JS文件，文件位于/adfile/目录下面，请在锁定删除操作后<font color=red>重新生成相关JS</font>文件；<br>" & vbNewLine
Response.Write "②、你可以任意增加广告位（商业版）,然后在模板的相应位置调用此JS文件即可。" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr height=25>" & vbNewLine
Response.Write " <td class=TableRow2><B>广告导航：</B> <A HREF='admin_admanage.asp'>广告管理首页</A> |" & vbNewLine
Response.Write " <a href='admin_admanage.asp?action=add' class=showmeun>添加广告</a> |" & vbNewLine
Response.Write " <a href='admin_admanage.asp?action=board' class=showmeun>添加广告位</a> |" & vbNewLine
Response.Write " <a href='admin_admanage.asp?action=create&stype=all&boardid=0'><span style=""color: red;"">生成所有广告的JS文件</span></a> |" & vbNewLine
Response.Write " <a href='Admin_UploadFile.Asp?ChannelID=0&UploadDir=UploadPic'>上传文件管理</a>" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "<br>" & vbNewLine
Dim Action,isEdit,AdvertiseID
Action = LCase(Request("action"))
If Not ChkAdmin("Advertise") Then
Server.Transfer("showerr.asp")
Response.End
End If
Select Case Trim(Action)
Case "save"
Call saveAdvertise
Case "modify"
Call modifyAdvertise
Case "add"
isEdit = False
Call EditAdvertise(isEdit)
Case "edit"
isEdit = True
Call EditAdvertise(isEdit)
Case "del"
Call DelAdvertise
Case "board"
Call boardlist
Case "saveboard"
Call saveboard
Case "delboard"
Call delboard
Case "create"
Call CreateBoardJs
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub showmain()
If LCase(Request("act")) = "lock" Then
Call isLock
End If
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write " <th width='20%' nowrap>网站名称</th>" & vbNewLine
Response.Write " <th width='50%'>广告图片代码</th>" & vbNewLine
Response.Write " <th width='10%' nowrap> 广告性质 </th>" & vbNewLine
Response.Write " <th width='10%' nowrap> 操作选项 </th>" & vbNewLine
Response.Write " <th width='10%' nowrap>状 态</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Dim intWidth,intHeight
Dim CurrentPage,page_count,totalrec,Pcount,maxperpage
Dim strClass
maxperpage = 20 '###每页显示数
CurrentPage = Request("page")
If CurrentPage = "" Or Not IsNumeric(CurrentPage) Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
End If
SQL = "SELECT * FROM NC_Adlist ORDER BY id DESC"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,1
If Not (Rs.EOF And Rs.BOF) Then
Rs.PageSize = maxperpage
Rs.AbsolutePage = CurrentPage
page_count = 0
totalrec = Rs.recordcount
Do While Not Rs.EOF And (Not page_count = Rs.PageSize)
page_count = page_count + 1
If Not Response.IsClientConnected Then Response.End
If (page_count mod 2) = 0 Then
strClass = "class=TableRow1"
Else
strClass = "class=TableRow2"
End If
If Rs("width") > 468 Then
intWidth = 486
Else
intWidth = Rs("width")
End If
If Rs("height") > 60 Then
intHeight = 60
Else
intHeight = Rs("height")
End If
Response.Write "<tr>"
Response.Write " <td " & strClass & "><a href='?action=edit&id="
Response.Write Rs("id")
Response.Write "' title='点击此处修改该广告'>"
Response.Write Rs("title")
Response.Write " </a></td>"
Response.Write " <td align=center " & strClass & ">"
If Rs("flag") = 5 Then
Response.Write Left(Server.HTMLEncode(Rs("AdCode")),200)
Else
If Rs("isFlash") = 1 Then
Response.Write "<embed src=" & Newasp.ReadFileUrl(Rs("picurl")) & " quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='" & intwidth & "' height='" & intHeight & "'></embed>"
Else
Response.Write "<a href='" & Rs("url") & "' target=_blank><img src='" & Newasp.ReadFileUrl(Rs("picurl")) & "' width='" & intwidth & "' height='" & intHeight & "' border=0 alt='" & Rs("Readme") & "'></a>"
End If
End If
Response.Write " </td>"
Response.Write " <td align=center nowrap " & strClass & "><a href='admin_admanage.asp?action=create&boardid=" & Rs("boardid") & "' title='点击生成广告JS文件'>"
Response.Write ReadBoardName(Rs("boardid"))
Response.Write "</a><br><br style=""OVERFLOW: hidden; LINE-HEIGHT: 5px""><font color=blue>"
Select Case Cint(Rs("flag"))
Case 1
Response.Write "漂浮广告"
Case 2
Response.Write "左边固定广告"
Case 3
Response.Write "右边固定广告"
Case 4
Response.Write "弹出广告"
Case 5
Response.Write "代码广告"
Case Else
Response.Write "普通广告"
End Select
Response.Write " </font></td>" & vbNewLine
Response.Write " <td align=center " & strClass & "><a href='?action=edit&id=" & Rs("id") & "'>编辑广告</a><br><br style=""OVERFLOW: hidden; LINE-HEIGHT: 5px"">" & vbNewLine
Response.Write " <a href='?action=del&id=" & Rs("id") & "' onclick=""{if(confirm('广告删除后将不能恢复，您确定要删除该广告吗?')){return true;}return false;}"">删除广告</a></td>" & vbNewLine
Response.Write " <td align=center " & strClass & ">"
If Rs("IsLock") <> 0 Then
Response.Write "<a href='?act=lock&isLock=0&id="& Rs("id") &"' title='点击此处解除锁定' onclick=""{if(confirm('您确定要解除锁定吗?')){return true;}return false;}""><font color=red>"
Response.Write "锁定"
Response.Write "</font></a>"
Else
Response.Write "<a href='?act=lock&isLock=1&id="& Rs("id") &"' title='点击此处锁定广告' onclick=""{if(confirm('您确定要锁定该广告吗?')){return true;}return false;}"">正常</a>"
End If
Response.Write " </td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Rs.movenext
Loop
End If
Rs.Close:Set Rs = Nothing
If totalrec Mod maxperpage = 0 Then
Pcount = totalrec \ maxperpage
Else
Pcount = totalrec \ maxperpage+1
End If
If page_count = 0 Then CurrentPage = 0
Response.Write "<tr height=20>" & vbNewLine
Response.Write " <td colspan=6 class=tablerow2>"
Response.Write showpages(CurrentPage,Pcount,totalrec,maxperpage,"")
Response.Write "</td>"
Response.Write "</tr>" & vbNewLine
Response.Write "</table>"
End Sub
Function ReadBoardName(Byval boardid)
Dim rsBoard
Set rsBoard = Newasp.Execute("SELECT BoardName FROM NC_AdBoard WHERE boardid="& boardid)
If rsBoard.BOF And rsBoard.EOF Then
Set rsBoard = Nothing
ReadBoardName = ""
Exit Function
End If
ReadBoardName = rsBoard("BoardName")
Set rsBoard = Nothing
End Function
Public Sub CreateBoardJs()
Dim rsBoard,sqlBoard,adNewasp
If LCase(Request("stype")) = "all" Then
sqlBoard = " ORDER BY boardid DESC"
Else
sqlBoard = " WHERE boardid=" & Request("boardid") & " ORDER BY boardid DESC"
End If
If Not IsNumeric(Request.Form("boardid")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
Exit Sub
End If
Set rsBoard = Newasp.Execute("SELECT boardid FROM NC_AdBoard " & sqlBoard & "")
If rsBoard.BOF And rsBoard.EOF Then
Set rsBoard = Nothing
Exit Sub
End If
Set adNewasp = New Admanage_Cls
Do While Not rsBoard.EOF
adNewasp.adboardid = rsBoard("boardid")
adNewasp.CreateJsFile
rsBoard.movenext
Loop
Set adNewasp = Nothing
rsBoard.Close:Set rsBoard = Nothing
Succeed("<li>恭喜您！生成广告JS文件完成。</li>")
End Sub
Sub boardlist()
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write " <th>广告位名称</th>" & vbNewLine
Response.Write " <th>JS文件名</th>" & vbNewLine
Response.Write " <th>最多广告数</th>" & vbNewLine
Response.Write " <th>广告位价格</th>" & vbNewLine
Response.Write " <th>管理操作</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Dim CurrentPage,page_count,totalrec,Pcount,maxperpage
Dim newboardid
maxperpage = 20 '###每页显示数
CurrentPage = Request("page")
If CurrentPage = "" Or Not IsNumeric(CurrentPage) Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
End If
SQL = "SELECT boardid,BoardName,AdRate,FileName,Maxads FROM NC_Adboard ORDER BY boardid ASC"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,1
If Not (Rs.EOF And Rs.BOF) Then
Rs.PageSize = maxperpage
Rs.AbsolutePage = CurrentPage
page_count = 0
totalrec = Rs.recordcount
Do While Not Rs.EOF And (Not page_count = Rs.PageSize)
page_count = page_count + 1
Response.Write "<form name=form" & Rs("boardid") & " method=post action=admin_admanage.asp>" & vbNewLine
Response.Write "<tr align=center>" & vbNewLine
Response.Write "<input type=hidden name=action value='saveboard'>" & vbNewLine
Response.Write "<input type=hidden name=boardid value='" & Rs("boardid") & "'>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=BoardName size=30 value='" & Rs("BoardName") & "'></td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=FileName size=15 value='" & Rs("FileName") & "'></td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=Maxads size=8 value='" & Rs("Maxads") & "'> 条</td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=AdRate size=8 value='" & Rs("AdRate") & "'> 元/月</td>" & vbNewLine
Response.Write " <td class=tablerow1><input class=Button type=submit name=act value='修改'>" & vbNewLine
Response.Write " <input class=Button type=submit name=act value='生成广告JS' onclick=""document.form" & Rs("boardid") & ".action.value='create';"">" & vbNewLine
Response.Write " <input class=Button type=submit name=submit2 value='删除' "
If Rs("boardid") < 4 Then Response.Write " disabled "
Response.Write "onclick=""document.form" & Rs("boardid") & ".action.value='delboard';return confirm('本次操作将删除此广告位下所有的广告信息。\n\n确定要删除当前广告位吗？')""></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</form>" & vbNewLine
Rs.movenext
Loop
End If
Rs.close:Set Rs = nothing
If totalrec Mod maxperpage = 0 Then
Pcount = totalrec \ maxperpage
Else
Pcount = totalrec \ maxperpage+1
End If
If page_count = 0 Then CurrentPage = 0
Response.Write " <tr height=20>" & vbNewLine
Response.Write " <td colspan=6 class=tablerow2>"
Response.Write showpages(CurrentPage,Pcount,totalrec,maxperpage,"&action=board")
Response.Write "</td>"
Response.Write " </tr>" & vbNewLine
Set Rs = Newasp.Execute("SELECT MAX(boardid) FROM NC_Adboard")
If Rs.BOF And Rs.EOF Then
newboardid = 1
Else
newboardid = Rs(0) + 1
End If
If IsNull(newboardid) Then newboardid = 1
Rs.close:Set Rs = nothing
Response.Write "<form name=addform method=post action=admin_admanage.asp>" & vbNewLine
Response.Write "<input type=hidden name=action value='saveboard'>" & vbNewLine
Response.Write "<input type=hidden name=boardid value='" & newboardid & "'>" & vbNewLine
Response.Write "<tr align=center>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=BoardName size=30></td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=FileName size=15></td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=Maxads size=8> 条</td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=text name=AdRate size=8> 元/月</td>" & vbNewLine
Response.Write " <td class=tablerow1><input type=submit name=act value='添加广告位' class=Button></td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</form>" & vbNewLine
Response.Write " <tr height=20>" & vbNewLine
Response.Write " <td colspan=6 class=tablerow2>"
Response.Write "<b>说明：</b><br>①、广告位名称任意填写；<br>②、JS文件名的扩展名一定要是*.js,文件路径相对于站点根目录下在adfile目录；<br>"
Response.Write "③、最多广告数，是指在此广告位显示多少条广告；<br>④、广告位价格，供做广告者参考；<br>"
Response.Write "⑤、JS文件的调用方法：<script src=/adfile/ad.js></script>"
Response.Write "</td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
End Sub
Sub saveboard()
If Trim(Request.Form("BoardName")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>广告位名称不能为空！</li>"
End If
If Not IsNumeric(Request.Form("boardid")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
End If
If Not IsNumeric(Request.Form("AdRate")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>广告位价格请输入整数！</li>"
End If
If Not IsNumeric(Request.Form("Maxads")) Then
FoundErr = True
ErrMsg = ErrMsg + "<li>显示最多广告数请输入整数！</li>"
End If
If Trim(Request.Form("FileName")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>JS文件名不能为空！</li>"
End If
If LCase(Right(Trim(Request.Form("FileName")),3)) <> ".js" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请输入正确的JS文件名，扩展名一定要是*.js！</li>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -