nc_adcolumncls.asp

大型黄页系统,精美黄页flash演示,10m

<%
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
		DownsysClass.admin_header

		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
		DownsysClass.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
		DownsysClass.SqlQueryNum = DownsysClass.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(DownsysClass.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 7
						Response.Write "其它位置广告"
					Case 8
						Response.Write "精彩推荐广告"
					Case 9
						Response.Write "信息简介广告*"
					Case 10
						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