nc_adcolumncls.asp

来自「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 930 行 · 第 1/3 页

ASP
930 行
字号
123
			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 "</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='"
		If isEdit Then
			Response.Write Rs("topmargin2")
		Else
			Response.Write "110"
		End If
		Response.Write "' size='6' maxlength='5'></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><input name='HomeName' type='text' id='HomeName' size=30 "
		If isEdit Then
			Response.Write "value='"
			Response.Write Rs("HomeName")
			Response.Write "'"
		End If
		Response.Write "></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>网站连接URL:</td>" & vbCrLf
		Response.Write " <td class=forumRow><input name='LinkUrl' type='text' id='LinkUrl' size=60 "
		If isEdit Then
			Response.Write "value='"
			Response.Write Rs("LinkUrl")
			Response.Write "'"
		Else
			Response.Write "value='http://'"
		End If
		Response.Write "></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>网站简介或广告代码:<BR><B>注意：</B>如果你的连接类型选择了代码，请在此处输入代码，支持HTML语法。</td>" & vbCrLf
		Response.Write " <td class=forumRow><textarea name='Remark' id='Remark' cols='60' rows='5'>"
		If isEdit Then
			Response.Write Server.HTMLEncode(Rs("Remark"))
		End If
		Response.Write "</textarea></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRowHighlight align=right>图片URL:</td>" & vbCrLf
		Response.Write " <td class=forumRow><input name='image1' id=image1 type='text' size=60 "
		If isEdit Then
			Response.Write "value='"
			Response.Write Rs("ImageUrl")
			Response.Write "'"
		End If
		Response.Write "></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRow colspan=2><iframe name=""image"" frameborder=0 width=100% height=42 scrolling=no src=upfile.asp?type=image&upnum=1></iframe></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>宽度：<input name='width' type='text' id='width' size='6' maxlength='5' "
		If isEdit Then
			Response.Write "value='"
			Response.Write Rs("width")
			Response.Write "'"
		End If
		Response.Write "> 像素 * " & vbCrLf
		Response.Write " 高度：<input name='height' type='text' id='height' size='6' maxlength='5' "
		If isEdit Then
			Response.Write "value='"
			Response.Write Rs("height")
			Response.Write "'"
		End If
		Response.Write "> 像素</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><input type='radio' name='LinkType' value='0' "
		If isEdit Then
			If Rs("LinkType") = 0 Then
				Response.Write "checked"
			End If
		Else
			Response.Write "checked"
		End If
		Response.Write ">图片&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
		Response.Write " <input type='radio' name='LinkType' value='1' "
		If isEdit Then
			If Rs("LinkType") = 1 Then
				Response.Write "checked"
			End If
		End If
		Response.Write ">FLASH&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
		Response.Write " <input type='radio' name='LinkType' value='2' "
		If isEdit Then
			If Rs("LinkType") = 2 Then
				Response.Write "checked"
			End If
		End If
		Response.Write ">代码&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
		If isEdit Then
			Response.Write "<input type=checkbox name=UpdateTime value='yes'> 更新成最新广告"
		End If
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr height=""21"">" & vbCrLf
		Response.Write " <td class=forumRow colspan=2 align=center>" & vbCrLf
		Response.Write " <input type=""button"" name=""Submit1"" onclick=""javascript:history.go(-1)"" value=""返回上一页"" class=button>&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
		Response.Write " <input type='submit' name='Submit' value='保存广告' class=button>" & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<script language=JavaScript>showsetting(myform);</script></form>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		If isEdit Then
			Rs.Close
			Set Rs = Nothing
		End If
	End Sub

	Private Sub savenew()
		If Len(Request.Form("HomeName")) = 0 Then
			Founderr = True
			ErrMsg = ErrMsg + "<li>网站名称不能为空！</li>"
			Exit Sub
		End If
		If Len(Request.Form("Remark")) = 0 Then
			Founderr = True
			ErrMsg = ErrMsg + "<li>网站简介或广告代码！</li>"
			Exit Sub
		End If
		If Founderr = False Then
			Set Rs = CreateObject("ADODB.Recordset")
			SQL = "select * from NC_AdColumn where (id is null)"
			Rs.Open SQL, Conn, 1, 3
			Rs.addnew
			Rs("HomeName") = Newasp.HTMLEncodes(Request.Form("HomeName"))
			Rs("Remark") = Request.Form("Remark")
			If Trim(Request.Form("LinkUrl")) <> "" Then Rs("LinkUrl") = Request.Form("LinkUrl")
			If Trim(Request.Form("image1")) <> "" Then Rs("ImageUrl") = Request.Form("image1")
			If Trim(Request.Form("Height")) <> "" Then Rs("Height") = Request.Form("Height")
			If Trim(Request.Form("Width")) <> "" Then Rs("Width") = Request.Form("Width")
			If Len(Request.Form("topmargin")) <> 0 Then Rs("topmargin") = Request.Form("topmargin")
			If Len(Request.Form("sidemargin")) <> 0 Then Rs("sidemargin") = Request.Form("sidemargin")
123

nc_adcolumncls.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息； 　自由选择系统默认为静态HTML或动态ASP； 　无限制添加下载服务器」中的 nc_adcolumncls.asp 源码文件，采用 ASP 编程语言编写，共 930 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?