📄 nc_adcolumncls.asp
字号:
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 ">图片 " & 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 " & 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 ">代码 " & 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> " & 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") = DownsysClass.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")
If Len(Request.Form("topmargin1")) <> 0 Then Rs("topmargin1") = Request.Form("topmargin1")
If Len(Request.Form("sidemargin1")) <> 0 Then Rs("sidemargin1") = Request.Form("sidemargin1")
If Len(Request.Form("topmargin2")) <> 0 Then Rs("topmargin2") = Request.Form("topmargin2")
If Len(Request.Form("sidemargin2")) <> 0 Then Rs("sidemargin2") = Request.Form("sidemargin2")
Rs("AdsType") = Request.Form("AdsType")
Rs("ColumnID") = Request.Form("ColumnID")
Rs("AdsHits") = 0
Rs("AdsTime") = Now
Rs("LinkType") = Request.Form("LinkType")
Rs("isLock") = 0
Rs.Update
Rs.Close
Set Rs = Nothing
NC_Admin.Succeed_Msg ("<li>添加广告 " & Request.Form("HomeName") & " 成功!</li>")
Response.Write "<meta http-equiv=""refresh"" content=""3;url='admin_adcolumn.asp'"">" & vbCrLf
End If
End Sub
Private Sub savemodify()
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=" & Request.Form("id")
Rs.Open SQL, Conn, 1, 3
Rs("HomeName") = DownsysClass.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")
If Len(Request.Form("topmargin1")) <> 0 Then Rs("topmargin1") = Request.Form("topmargin1")
If Len(Request.Form("sidemargin1")) <> 0 Then Rs("sidemargin1") = Request.Form("sidemargin1")
If Len(Request.Form("topmargin2")) <> 0 Then Rs("topmargin2") = Request.Form("topmargin2")
If Len(Request.Form("sidemargin2")) <> 0 Then Rs("sidemargin2") = Request.Form("sidemargin2")
Rs("AdsType") = Request.Form("AdsType")
Rs("ColumnID") = Request.Form("ColumnID")
Rs("AdsHits") = 0
If Request.Form("UpdateTime") = "yes" Then Rs("AdsTime") = Now
Rs("LinkType") = Request.Form("LinkType")
Rs("isLock") = 0
Rs.Update
Rs.Close
Set Rs = Nothing
NC_Admin.Succeed_Msg ("<li>添加广告 " & Request.Form("HomeName") & " 成功!</li>")
Response.Write "<meta http-equiv=""refresh"" content=""3;url='admin_adcolumn.asp'"">" & vbCrLf
End If
End Sub
Private Sub DelAds()
DownsysClass.Execute ("delete from NC_AdColumn where id in (" & Request.Form("seladsid") & ")")
DelAdsImage (Request.Form("seladsid"))
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub DelAllAds()
DownsysClass.Execute ("delete from NC_AdColumn")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub isLockAds()
DownsysClass.Execute ("update NC_AdColumn set isLock = 1 where id in (" & Request.Form("seladsid") & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub UnlockAds()
DownsysClass.Execute ("update NC_AdColumn set isLock = 0 where id in (" & Request.Form("seladsid") & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub BatchMove()
DownsysClass.Execute ("update NC_AdColumn set ColumnID = " & Request.Form("ColumnID") & " where id in (" & Request.Form("seladsid") & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub indateAds()
DownsysClass.Execute ("update NC_AdColumn set AdsTime = " & DownsysClass.SqlString & " where id in (" & Request.Form("seladsid") & ")")
Response.redirect (Request.ServerVariables("HTTP_REFERER"))
Err.Raise -19691969
End Sub
Private Sub showpage()
Dim FileName
Dim n
Dim ii
FileName = "admin_adcolumn.asp"
If totalnumber Mod maxperpage = 0 Then
n = totalnumber \ maxperpage
Else
n = totalnumber \ maxperpage + 1
End If
Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=" & FileName & "><tr><td align=center> " & vbCrLf
If CurrentPage < 2 Then
Response.Write "共有广告 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> 首 页 上一页 "
Else
Response.Write "共有广告 <font COLOR=#FF0000><B>" & totalnumber & "</B></font> <a href=" & FileName & "?page=1>首 页</a> "
Response.Write "<a href=" & FileName & "?page=" & CurrentPage - 1 & ">上一页</a> "
End If
If n - CurrentPage < 1 Then
Response.Write "下一页 尾 页 " & vbCrLf
Else
Response.Write "<a href=" & FileName & "?page=" & (CurrentPage + 1) & ">下一页</a>"
Response.Write " <a href=" & FileName & "?page=" & n & ">尾 页</a>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -