nc_adcolumncls.asp
来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 930 行 · 第 1/3 页
ASP
930 行
<%
Class Adcolumn_Cls
Private ErrMsg
Private SucMsg
Private Founderr
Private NC_Admin
Private Rs
Private SQL
Private isEdit
Private i
Private totalnumber
Private Pcount
Private totalPut
Private CurrentPage
Private bookmark
Private maxperpage
Private Sub Class_Initialize()
On Error Resume Next
maxperpage = 12 '###每页显示数
Founderr = False
Set Rs = Server.CreateObject("ADODB.Recordset")
End Sub
Private Sub Class_Terminate()
If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
Set NC_Admin = Nothing
End Sub
Public Sub Init_Adcolumn()
On Error Resume Next
Server.ScriptTimeout = 9999
Set NC_Admin = New Check
NC_Admin.AdminChk = "01"
NC_Admin.Check
Newasp.admin_header
'*****************************************************************
'* NewCloud DownLoad System Version 6.0.1
'* File: admin_adcolumn.asp
'* Date: 2004-6-16
'*****************************************************************
'* Copyright 2002-2004 newasp.net - All Rights Reserved.
'* newasp is a trademark of newasp.net
'* HomePage: http://www.newasp.net
'*****************************************************************
Response.Write "<script language = JavaScript>" & vbCrLf
Response.Write "function showsetting(myform){" & vbCrLf
Response.Write " for (var j=0;j<7;j++){" & vbCrLf
Response.Write " var tab = eval('document.all.settable'+j);" & vbCrLf
Response.Write " if(myform.AdsType.selectedIndex==j)" & vbCrLf
Response.Write " tab.style.display = '';" & vbCrLf
Response.Write " else" & vbCrLf
Response.Write " tab.style.display = 'none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th>广告管理 | <A HREF='admin_adcolumn.asp?action=add' class=TableTitleLink>添加广告</A></th></tr>" & vbCrLf
Response.Write " <tr height=""25"">" & vbCrLf
Response.Write " <td class=forumRow><B>管理:</B> <A HREF='admin_adcolumn.asp'>广告管理首页</A> | <A HREF='admin_adcolumn.asp?ColumnID=0'>栏目共用广告</A>" & vbCrLf
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=1'>下载首页</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=2'>下载列表</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=3'>软件信息</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=4'>文章首页</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=5'>文章列表</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=6'>文章内容</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?ColumnID=7'>其它页面</A>"
Response.Write " | <A HREF='admin_adcolumn.asp?action=add'>添加广告</A>"
Response.Write " </td></tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
Select Case Trim(Request("action"))
Case "add"
isEdit = False
Call EditAdColumn(isEdit)
Case "edit"
isEdit = True
Call EditAdColumn(isEdit)
Case "save"
Call savenew
Case "modify"
Call savemodify
Case "del"
Call DelAds
Case "delall"
Call DelAllAds
Case "islock"
Call isLockAds
Case "unlock"
Call UnlockAds
Case "indate"
Call indateAds
Case "move"
Call BatchMove
Case Else
Call AdsMain
End Select
If Founderr = True Then
NC_Admin.Error_Msg (ErrMsg)
End If
Newasp.admin_footer
End Sub
Private Sub AdsMain()
Dim intWidth
Dim intHeight
If Not IsEmpty(Request("page")) Then
CurrentPage = CLng(Request("page"))
Else
CurrentPage = 1
End If
If Not IsNumeric(Request("page")) And Request("page") <> "" Then
Response.Write "错误的系统参数!请输入整数"
Response.End
End If
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th noWrap>选项</th><th noWrap>状态</th><th width=""85%"">"
Select Case Request("ColumnID")
Case -0
Response.Write "广告管理首页"
Case 0
Response.Write "栏目共用广告管理"
Case 1
Response.Write "下载首页广告管理"
Case 2
Response.Write "下载列表广告管理"
Case 3
Response.Write "软件信息广告管理"
Case 4
Response.Write "文章首页广告管理"
Case 5
Response.Write "文章列表广告管理"
Case 6
Response.Write "文章内容广告管理"
Case 7
Response.Write "其它页面广告管理"
Case Else
Response.Write "广告管理首页"
End Select
Response.Write " </th><th noWrap>广告类型</th><th noWrap>编辑广告</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "<form name=""myform"" method=""post"" action=''>" & vbCrLf
Set Rs = CreateObject("ADODB.Recordset")
If Request("ColumnID") <> "" Then
SQL = "select * from NC_AdColumn where ColumnID=" & Request("ColumnID") & " order by AdsTime desc,id desc"
Else
SQL = "select * from NC_AdColumn order by AdsTime desc,id desc"
End If
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
If Rs.bof And Rs.EOF Then
Response.Write "<tr><td colspan=5 class=forumrow>还没有找到任何广告信息！</td></tr>"
Else
totalnumber = Rs.recordcount
If (totalnumber Mod maxperpage) = 0 Then
Pcount = totalnumber \ maxperpage
Else
Pcount = totalnumber \ maxperpage + 1
End If
Rs.MoveFiRst
If CurrentPage > Pcount Then CurrentPage = Pcount
If CurrentPage < 1 Then CurrentPage = 1
Rs.Move (CurrentPage - 1) * maxperpage
bookmark = Rs.bookmark
i = 0
Do While Not Rs.EOF And i < CLng(maxperpage)
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 height=""25"">" & vbCrLf
Response.Write " <td class=forumRow align=center><input type=checkbox name=seladsid value="""
Response.Write Rs("id")
Response.Write """></td>" & vbCrLf
Response.Write " <td class=forumRow align=center>"
If Rs("isLock") = 1 Then
Response.Write "<img src='images/locks.gif' border=0 align=absMiddle>"
Else
Response.Write "<img src='images/folder.gif' border=0 align=absMiddle>"
End If
Response.Write "</td>" & vbCrLf
Response.Write " <td class=forumRow align=center>" & vbCrLf
If Rs("LinkType") = 0 Then
Response.Write " <img src="""
Response.Write Rs("imageUrl")
Response.Write """ width="""
Response.Write intWidth
Response.Write """ height="""
Response.Write intHeight
Response.Write """ border=0>" & vbCrLf
ElseIf Rs("LinkType") = 1 Then
Response.Write " <object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width="""
Response.Write intWidth
Response.Write """ height="""
Response.Write intHeight
Response.Write """>" & vbCrLf
Response.Write " <param name=""movie"" value="""
Response.Write Rs("imageUrl")
Response.Write """>" & vbCrLf
Response.Write " <param name=""quality"" value=""high"">" & vbCrLf
Response.Write " <embed src="""
Response.Write Rs("imageUrl")
Response.Write """ quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width="""
Response.Write intWidth
Response.Write """ height="""
Response.Write intHeight
Response.Write """></embed>" & vbCrLf
Response.Write " </object>" & vbCrLf
Else
Response.Write Left(Newasp.HTMLEncode(Rs("Remark")), 150)
End If
Response.Write " </td>" & vbCrLf
Response.Write " <td class=forumRow noWrap align=center>" & vbCrLf
Select Case Rs("AdsType")
Case 0
Response.Write "弹出广告"
Case 1
Response.Write "Banner广告"
Case 2
Response.Write "栏目广告"
Case 3
Response.Write "内容页广告"
Case 4
Response.Write "浮动广告"
Case 5
Response.Write "左边固定广告"
Case 6
Response.Write "右边固定广告"
Case Else
Response.Write "其它位置广告"
End Select
Response.Write "</td>" & vbCrLf
Response.Write " <td class=forumRow align=center><A HREF=""?action=edit&id="
Response.Write Rs("id")
Response.Write """>编辑广告</A></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
Loop
End If
Rs.Close
Response.Write "<tr height=""25"">" & vbCrLf
Response.Write " <td class=forumRow align=center>管理</td>" & vbCrLf
Response.Write " <td class=forumRow colspan=4><input name=""chkAll"" type=""checkbox"" id=""chkAll"" onclick=CheckAll(this.form) value=""checkbox"">全选/反选 " & vbCrLf
Response.Write " <input type=""radio"" name=""action"" value=""move"" title=""管理选项：批量移动选中的广告"">批量移动 ->" & vbCrLf
Response.Write "<select name='ColumnID' id='ColumnID'>" & vbCrLf
Response.Write "<option value='0' >栏目共用广告</option>" & vbCrLf
Response.Write "<option value='1' >下载首页广告</option>" & vbCrLf
Response.Write "<option value='2' >下载列表页广告</option>" & vbCrLf
Response.Write "<option value='3' >下载信息页广告</option>" & vbCrLf
Response.Write "<option value='4' >文章首页广告</option>" & vbCrLf
Response.Write "<option value='5' >文章列表页广告</option>" & vbCrLf
Response.Write "<option value='6' >文章内容页广告</option>" & vbCrLf
Response.Write "<option value='7' >其它页面广告</option>" & vbCrLf
Response.Write "</select>" & vbCrLf
Response.Write " <input type=""radio"" name=""action"" value=""del"" title=""管理选项：批量删除选中的广告"">批量删除" & vbCrLf
Response.Write " <input type=""radio"" name=""action"" value=""indate"" title=""管理选项：批量设置为最新广告"">设置为最新广告" & vbCrLf
Response.Write " <input type=""radio"" name=""action"" value=""islock"" title=""管理选项：批量锁定选中的广告"">锁定广告" & vbCrLf
Response.Write " <input type=""radio"" name=""action"" value=""unlock"" title=""管理选项：批量解除锁定选中的广告"">解除锁定" & vbCrLf
Response.Write " <BR> <input type=submit name=Submit value=""执行操作"" class=button onclick=""{if(confirm('您确定执行此操作吗?')){this.document.myform.submit();return true;}return false;}""></td>" & vbCrLf
Response.Write "</tr></form>" & vbCrLf
Response.Write "<tr height=""25"">" & vbCrLf
Response.Write " <td class=forumRowHighlight colspan=5><div title=""新云网络<BR>"">"
Call showpage
Response.Write "</div></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
End Sub
Private Sub EditAdColumn(isEdit)
Dim strTitle
If isEdit Then
Set Rs = CreateObject("ADODB.Recordset")
SQL = "select * from NC_AdColumn where id=" & Request("id")
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
strTitle = "编辑广告"
Else
strTitle = "添加广告"
End If
Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"" class=""tableBorder"">" & vbCrLf
Response.Write " <tr>" & vbCrLf
Response.Write " <th colspan=2>" & strTitle & "</th>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "<form name=""myform"" method=""post"" action='admin_adcolumn.asp'>" & vbCrLf
Response.Write "<input type=""Hidden"" name=""action"" value='"
If isEdit Then
Response.Write "modify"
Else
Response.Write "save"
End If
Response.Write "'>" & vbCrLf
If isEdit Then
Response.Write " <input type=""Hidden"" name=""id"" value='"
Response.Write CStr(Request("id"))
Response.Write "'>" & vbCrLf
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?