nc_adcolumncls.asp

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

		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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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
			DownsysClass.SqlQueryNum = DownsysClass.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
			Response.Write " "
		End If
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td width=""25%"" class=forumRowHighlight align=right>所属栏目:</td>" & vbCrLf
		Response.Write " <td width=""75%"" class=forumRow><select name='ColumnID' id='ColumnID'>" & vbCrLf
		Response.Write " <option value='0' "
		If isEdit Then
			If Rs("ColumnID") = 0 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">栏目共用广告</option>" & vbCrLf
		Response.Write " <option value='1' "
		If isEdit Then
			If Rs("ColumnID") = 1 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">信息首页广告</option>" & vbCrLf
		Response.Write " <option value='2' "
		If isEdit Then
			If Rs("ColumnID") = 2 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">信息列表页广告</option>" & vbCrLf
		Response.Write "<option value='3' "
		If isEdit Then
			If Rs("ColumnID") = 3 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">信息信息页广告</option>" & vbCrLf
		Response.Write "<option value='4' "
		If isEdit Then
			If Rs("ColumnID") = 4 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">文章首页广告</option>" & vbCrLf
		Response.Write "<option value='5' "
		If isEdit Then
			If Rs("ColumnID") = 5 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">文章列表页广告</option>" & vbCrLf
		Response.Write "<option value='6' "
		If isEdit Then
			If Rs("ColumnID") = 6 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">文章内容页广告</option>" & vbCrLf
		Response.Write "<option value='7' "
		If isEdit Then
			If Rs("ColumnID") = 7 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">其它页面广告</option>" & vbCrLf
		Response.Write "</select></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>广告类型:</td>" & vbCrLf
		Response.Write " <td class=forumRow><select name='AdsType' id='AdsType' onchange=showsetting(this.form)>" & vbCrLf
		Response.Write " <option value='0' "
		If isEdit Then
			If Rs("AdsType") = 0 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">弹出广告</option>" & vbCrLf
		Response.Write "<option value='1' "
		If isEdit Then
			If Rs("AdsType") = 1 Then
				Response.Write "selected"
			End If
		Else
			Response.Write "selected"
		End If
		Response.Write ">Banner广告</option>" & vbCrLf
		Response.Write "<option value='2' "
		If isEdit Then
			If Rs("AdsType") = 2 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">栏目广告</option>" & vbCrLf
		Response.Write "<option value='3' "
		If isEdit Then
			If Rs("AdsType") = 3 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">内容页广告</option>" & vbCrLf
		Response.Write "<option value='4' "
		If isEdit Then
			If Rs("AdsType") = 4 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">浮动广告</option>" & vbCrLf
		Response.Write "<option value='5' "
		If isEdit Then
			If Rs("AdsType") = 5 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">左边固定广告</option>" & vbCrLf
		Response.Write "<option value='6' "
		If isEdit Then
			If Rs("AdsType") = 6 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">右边固定广告</option>" & vbCrLf
		Response.Write "<option value='7' "
		If isEdit Then
			If Rs("AdsType") = 7 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">其它位置广告</option>" & vbCrLf
		Response.Write "<option value='8' "
		If isEdit Then
			If Rs("AdsType") = 8 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">精彩推荐广告</option>" & vbCrLf
		Response.Write "<option value='9' "
		If isEdit Then
			If Rs("AdsType") = 9 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">信息简介广告*</option>" & vbCrLf
		Response.Write "<option value='10' "
		If isEdit Then
			If Rs("AdsType") = 10 Then
				Response.Write "selected"
			End If
		End If
		Response.Write ">通讯方式广告*</option>" & vbCrLf
		Response.Write "</select></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"" id='settable0'>" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>弹出广告设置:</td>" & vbCrLf
		Response.Write " <td class=forumRow>边距：<input name='sidemargin' type='text' id='sidemargin' value='"
		If isEdit Then
			Response.Write Rs("sidemargin")
		Else
			Response.Write "100"
		End If
		Response.Write "' size='6' maxlength='5'>" & vbCrLf
		Response.Write " 上边距：<input name='topmargin' type='text' id='topmargin' value='"
		If isEdit Then
			Response.Write Rs("topmargin")
		Else
			Response.Write "100"
		End If
		Response.Write "' size='6' maxlength='5'></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<div id='settable1' style='DISPLAY: none'></div>" & vbCrLf
		Response.Write "<div id='settable2' style='DISPLAY: none'></div>" & vbCrLf
		Response.Write "<div id='settable3' style='DISPLAY: none'></div>" & vbCrLf
		Response.Write "<div id='settable4' style='DISPLAY: none'></div>" & vbCrLf
		Response.Write "<div id='settable7' style='DISPLAY: none'></div>" & vbCrLf
		Response.Write "<tr height=""21"" id='settable5'>" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>左边固定广告设置:</td>" & vbCrLf
		Response.Write " <td class=forumRow>左边距：<input name='sidemargin1' type='text' id='sidemargin1' value='"
		If isEdit Then
			Response.Write Rs("sidemargin1")
		Else
			Response.Write "20"
		End If
		Response.Write "' size='6' maxlength='5'>" & vbCrLf
		Response.Write " 上边距：<input name='topmargin1' type='text' id='topmargin1' value='"
		If isEdit Then
			Response.Write Rs("topmargin1")
		Else
			Response.Write "110"
		End If
		Response.Write "' size='6' maxlength='5'></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"" id='settable6'>" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>右边固定广告设置:</td>" & vbCrLf
		Response.Write " <td class=forumRow>右边距：<input name='sidemargin2' type='text' id='sidemargin2' value='"
		If isEdit Then
			Response.Write Rs("sidemargin2")
		Else
			Response.Write "20"
		End If
		Response.Write "' size='6' maxlength='5'>" & vbCrLf
		Response.Write " 上边距：<input name='topmargin2' type='text' id='topmargin2' value='"