admin_admanage.asp

采用的是新云内核

	End If

	If Founderr = True Then Exit Sub
	If Trim(Request.Form("act")) = "修改" Then
		Newasp.Execute ("update NC_Adboard set BoardName='"& Request.Form("BoardName") & "',FileName='"& Request.Form("FileName") & "',Maxads="& Request.Form("Maxads") & ",AdRate="& Request.Form("AdRate") & " where boardid="& CLng(Request.Form("boardid")))
		Succeed("<li>恭喜您！修改广告位成功</li>")
	Else
		SQL = "Insert into NC_Adboard (boardid,BoardName,Readme,AdRate,FileName,Maxads,useup) values (" &_
		""& Request.Form("boardid") & "," &_
		"'"& Request.Form("BoardName") & "'," &_
		"''," &_
		Request.Form("AdRate") & "," &_
		"'"& Request.Form("FileName") & "'," &_
		Request.Form("Maxads") & "," &_
		"0)"
		Newasp.Execute(SQL)
		Succeed("<li>恭喜您！添加新的广告位成功</li>")
	End If
End Sub

Sub delboard()
	If Not IsNumeric(Request.Form("boardid")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>广告位ID请输入整数！</li>"
		Exit Sub
	End If
	On Error Resume Next
	Set Rs = Newasp.Execute("SELECT FileName FROM NC_AdBoard WHERE boardid=" & CLng(Request("boardid")))
	If Not (Rs.BOF And Rs.EOF) Then
		Newasp.FileDelete("../adfile/" & Rs("FileName"))
	End If
	Set Rs = Nothing
	Newasp.Execute("DELETE FROM NC_Adboard WHERE boardid="& CLng(Request.Form("boardid")))
	Newasp.Execute("DELETE FROM NC_Adlist WHERE boardid="& CLng(Request.Form("boardid")))
	Response.Redirect  Request.ServerVariables("HTTP_REFERER")
End Sub

Sub isLock()
	If Trim(Request("id")) = "" Or Trim(Request("isLock")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
		Exit Sub
	End If
	Newasp.Execute ("update NC_Adlist set isLock = "& CInt(Request("isLock")) &" where id=" & CLng(Request("id")))
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub DelAdvertise()
	If Not IsNumeric(Request("id")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>ID请输入整数！</li>"
		Exit Sub
	End If
	Newasp.Execute("DELETE FROM NC_Adlist WHERE id="& CLng(Request("id")))
	Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Function FrontAdvertise(id)
	Dim Rss, SQL
	SQL = "SELECT TOP 1 id,title FROM NC_Adlist WHERE id < " & id & " ORDER BY id DESC"
	Set Rss = Newasp.Execute(SQL)
	If Rss.EOF And Rss.bof Then
		FrontAdvertise = "已经没有了"
	Else
		FrontAdvertise = "<a href=?action=view&id=" & Rss("id") & ">" & Rss("title") & "</a>"
	End If
	Rss.Close
	Set Rss = Nothing
End Function

Function NextAdvertise(id)
	Dim Rss, SQL
	SQL = "SELECT TOP 1 id,title FROM NC_Adlist WHERE id > " & id & " ORDER BY id ASC"
	Set Rss = Newasp.Execute(SQL)
	If Rss.EOF And Rss.bof Then
		NextAdvertise = "已经没有了"
	Else
		NextAdvertise = "<a href=?action=view&id=" & Rss("id") & ">" & Rss("title") & "</a>"
	End If
	Rss.Close
	Set Rss = Nothing
End Function
Private Sub EditAdvertise(isEdit)
	Dim EditTitle
	If isEdit Then
		SQL = "select * from NC_Adlist where id=" & Request("id")
		Set Rs = Newasp.Execute(SQL)
		EditTitle = "编辑广告"
	Else
		EditTitle = "添加新的广告"
	End If
%>
<script language = JavaScript>
function showsetting(myform){
	var tab = myform.flag.selectedIndex;
	if(tab==5)  {
		flagsetting1.style.display='none';
		flagsetting2.style.display='none';
		flagsetting3.style.display='none';
		flagsetting4.style.display='none';
		flagsetting5.style.display='none';
		flagsetting6.style.display='none';
		flagsetting7.style.display='';
	}
	if(tab==1||tab==2||tab==3||tab==4)    {
		flagsetting1.style.display='';
		flagsetting2.style.display = '';
		flagsetting3.style.display='';
		flagsetting4.style.display='';
		flagsetting5.style.display='';
		flagsetting6.style.display='';
		flagsetting7.style.display='none';
	}
	if(tab==0){
		flagsetting1.style.display='none';
		flagsetting2.style.display = '';
		flagsetting3.style.display='';
		flagsetting4.style.display='';
		flagsetting5.style.display='';
		flagsetting6.style.display='';
		flagsetting7.style.display='none';
	}
}

function flagsetting(n){
	if (n == 1){
		flagsetting3.style.display='';
		flagsetting4.style.display='';
		flagsetting5.style.display='';
		flagsetting7.style.display='none';
		}
	if (n == 2){
		flagsetting3.style.display='none';
		flagsetting4.style.display='none';
		flagsetting5.style.display='';
		flagsetting7.style.display='none';
	}

}
function SelectPhoto(){
  var arr=showModalDialog('Admin_selFile.asp?ChannelID=0&UploadDir=UploadPic', '', 'dialogWidth:800px; dialogHeight:600px; help: no; scroll: yes; status: no');
  if(arr!=null){
    var ss=arr.split('|');
    document.myform.picurl.value=ss[0];
  }
}
</script>
<table border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder>
    <tr>
      <th colspan=2><%=EditTitle%></th>
 </tr>
<form name=myform method=post action='admin_admanage.asp'>
<%
	If isEdit Then
		Response.Write "<input type=""Hidden"" name=""action"" value=""modify"">"
		Response.Write "<input type=""Hidden"" name=""id"" value="""& Request("id") &""">"
	Else
		Response.Write "<input type=""Hidden"" name=""action"" value=""save"">"
	End If
%>
 <tr>
 <td width='20%' class=TableRow1 align=right><strong>广告位置:</strong></td>
 <td width='80%' class=TableRow1><select name='boardid' id='boardid'>
<%
	Dim oRs
	Set oRs = Newasp.Execute("SELECT boardid,BoardName FROM NC_Adboard")
	Do While Not oRs.EOF
		Response.Write "<option value="""& oRs("boardid") &""""
		If isEdit Then
			If oRs("boardid") = Rs("boardid") Then Response.Write " selected"
		End If
		Response.Write ">"
		Response.Write oRs("BoardName")
		Response.Write "</option>"
	oRs.movenext
	Loop
	oRs.Close:Set oRs = Nothing
%>
</select> </td>
</tr>
<tr>
 <td class=TableRow2 align=right><strong>广告类型:</strong></td>
 <td class=TableRow2><select name='flag' id='flag' onchange=showsetting(this.form)>
	<option value='0'<%If isEdit Then If Rs("flag") = 0 Then Response.Write " selected"%>>普通广告</option>
	<option value='1'<%If isEdit Then If Rs("flag") = 1 Then Response.Write " selected"%>>漂浮广告</option>
	<option value='2'<%If isEdit Then If Rs("flag") = 2 Then Response.Write " selected"%>>左边固定广告</option>
	<option value='3'<%If isEdit Then If Rs("flag") = 3 Then Response.Write " selected"%>>右边固定广告</option>
	<option value='4'<%If isEdit Then If Rs("flag") = 4 Then Response.Write " selected"%>>弹出广告</option>
	<option value='5'<%If isEdit Then If Rs("flag") = 5 Then Response.Write " selected"%>>代码广告</option>
</select></td>
</tr>
<tr id='flagsetting1'<%If isEdit Then If Rs("flag")<>5 And Rs("flag")<>0 Then Response.Write (" style=""display:''"""):Else:Response.Write (" style=""display:'none'"""): End If:Else Response.Write " style=""display:none"""%>>
 <td class=TableRow1 align=right><strong>广告设置:</strong></td>
 <td class=TableRow1>左边距：<input name='sidemargin' type='text' id='sidemargin' value='<%If isEdit Then Response.Write Rs("sidemargin") Else Response.Write "10" End If%>' size='6' maxlength='5'>
 上边距：<input name='topmargin' type='text' id='topmargin' value='<%If isEdit Then Response.Write Rs("topmargin") Else Response.Write "100" End If%>' size='6' maxlength='5'></td>
</tr>
<tr id=flagsetting2<%If isEdit Then If Rs("flag")=5 Then Response.Write " style=""display:none"""%>>
 <td class=TableRow2 align=right><strong>图片或FLASH:</strong></td>
 <td class=TableRow2><input type='radio' name='isFlash' value='0' onClick="flagsetting(1)"<%If isEdit Then If Rs("isFlash") = 0 Then Response.Write " checked" End If:Else Response.Write " checked" End If%>>图片&nbsp;&nbsp;
 <input type='radio' name='isFlash' value='1' onClick="flagsetting(2)"<%If isEdit Then If Rs("isFlash") = 1 Then Response.Write " checked"%>>FLASH&nbsp;&nbsp;
<%If isEdit Then%><input type=checkbox name=UpdateTime value='yes'> 更新成最新广告<%End If%></td>
</tr>
<tr>
 <td class=TableRow1 align=right><strong>网站名称:</strong></td>
 <td class=TableRow1><input name='title' type='text' id='title' size=30 value='<%If isEdit Then Response.Write Rs("title")%>'></td>
</tr>

<tr id=flagsetting3<%If isEdit Then If Rs("isFlash")=1 Or Rs("flag")=5 Then Response.Write " style=""display:none"""%>>
 <td class=TableRow2 align=right><strong>网站连接URL:</strong></td>
 <td class=TableRow2><input name='url' type='text' id='url' size=60 value='<%If isEdit Then Response.Write Rs("url") Else Response.Write "http://" End If%>'></td>
</tr>
<tr id=flagsetting4<%If isEdit Then If Rs("isFlash")=1 Or Rs("flag")=5 Then Response.Write " style=""display:none"""%>>
 <td class=TableRow1 align=right><strong>连接注释:</strong></td>
 <td class=TableRow1><input name='Readme' type='text' id='Readme' size=60 value='<%If isEdit Then Response.Write Rs("Readme")%>'></td>
</tr>
<tr id=flagsetting5<%If isEdit Then If Rs("flag")=5  Then Response.Write " style=""display:none"""%>>
 <td width='20%' class=TableRow2 align=right><strong>图片或FLASH URL:</strong></td>
 <td width='80%' class=TableRow2><input name='picurl' id=ImageUrl type='text' size=60 value='<%If isEdit Then Response.Write Rs("picurl")%>'>
 <input type='button' name='selectpic' value='从已上传图片中选择' onclick='SelectPhoto()' class=button></td>
</tr>
<tr id=flagsetting6<%If isEdit Then If Rs("flag")=5  Then Response.Write " style=""display:none"""%>>
 <td class=TableRow1 align=right><strong>上传文件:</strong></td>
 <td class=TableRow1><iframe name="image" frameborder=0 width=100% height=42 scrolling=no src=Upload.asp?sType=AD></iframe></td>
</tr>
<tr id=flagsetting7<%If isEdit Then If Rs("flag") <> 5 Then Response.Write " style=""display:none""" End If:Else Response.Write " style=""display:none""" End If%>>
 <td class=TableRow2 align=right><strong>广告代码:</strong><br>支持HTML方法</td>
 <td class=TableRow2><textarea name=AdCode rows=10 cols=70><%If isEdit Then Response.Write Server.HTMLEncode(Rs("AdCode"))%></textarea></td>
</tr>
<tr>
  <td class=TableRow1 align=right><strong>文件尺寸:</strong></td>
  <td class=TableRow1>宽度：<input name='width' type='text' id='width' size='6' maxlength='5' value='<%If isEdit Then Response.Write Rs("width") Else Response.Write 100%>'> 像素 * 
  高度：<input name='height' type='text' id='height' size='6' maxlength='5' value='<%If isEdit Then Response.Write Rs("height") Else Response.Write 100%>'> 像素&nbsp;&nbsp;
  <font color=blue>* 设置图片、FLASH、弹出窗口的大小</font></td>
</tr>
<tr>
 <td class=TableRow2 align=right><strong>是否锁定广告:</strong></td>
 <td class=TableRow2><input type='radio' name='isLock' value='0' <%If isEdit Then : If Rs("isLock") = 0 Then Response.Write " checked" End If:Else Response.Write " checked" End If%>> 否&nbsp;&nbsp;
 <input type='radio' name='isLock' value='1'<%If isEdit Then : If Rs("isLock") = 1 Then : Response.Write " checked" : End If : End If%>> 是&nbsp;&nbsp;
 </td>
</tr>
<tr>
 <td class=TableRow1 colspan=2 align=center>
 <input type="button" name="Submit1" onclick="javascript:history.go(-1)" value="返回上一页" class=button>&nbsp;&nbsp;&nbsp;&nbsp;
 <input type='submit' name='Submit' value='保存广告' class=button>
 </td>
</tr></form>
</table>
<%
End Sub
Sub CheckSave()
	If Trim(Request.Form("title")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站名称不能为空！</li>"
	End If
	If Trim(Request.Form("flag")) = 5 Then
		If Trim(Request.Form("AdCode")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>请输入广告代码！</li>"
		End If
	Else
		If Trim(Request.Form("picurl")) = "" Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>URL不能为空！</li>"
		End If
	End IF
	If Trim(Request.Form("height")) = "" Or Trim(Request.Form("width")) = ""  Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>文件尺寸不能为空！</li>"
	End If
	If Trim(Request.Form("sidemargin")) = "" Or Trim(Request.Form("topmargin")) = ""  Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请设置边距！</li>"
	End If
	If Trim(Request.Form("flag")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请设置广告类型！</li>"
	End If
End Sub

Sub SaveAdvertise()
	CheckSave
	If Founderr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Adlist where (id is null)"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("boardid") = Trim(Request.Form("boardid"))
		Rs("title") = Newasp.ChkFormStr(Request.Form("title"))
		Rs("url") = Trim(Request.Form("url"))
		Rs("picurl") = Trim(Request.Form("picurl"))
		Rs("Readme") = Newasp.ChkFormStr(Request.Form("Readme"))
		Rs("AdCode") = Request.Form("AdCode")
		Rs("height") = Trim(Request.Form("height"))
		Rs("width") = Trim(Request.Form("width"))
		Rs("topmargin") = Trim(Request.Form("topmargin"))
		Rs("sidemargin") = Trim(Request.Form("sidemargin"))
		Rs("startime") = Now()
		Rs("flag") = Trim(Request.Form("flag"))
		Rs("isFlash") = Trim(Request.Form("isFlash"))
		Rs("IsLock") = CInt(Request.Form("IsLock"))
	Rs.update
	Rs.Close:Set Rs = Nothing
	Dim adNewasp
	Set adNewasp = New Admanage_Cls
	adNewasp.adboardid = CLng(Request.Form("boardid"))
	adNewasp.CreateJsFile
	Set adNewasp = Nothing
	Succeed("<li>恭喜您！添加新的广告成功。</li>")
End Sub

Sub ModifyAdvertise()
	CheckSave
	If Founderr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM NC_Adlist WHERE id = " &CLng( Request("id"))
	Rs.Open SQL,Conn,1,3
		Rs("boardid") = Trim(Request.Form("boardid"))
		Rs("title") = Newasp.ChkFormStr(Request.Form("title"))
		Rs("url") = Trim(Request.Form("url"))
		Rs("picurl") = Trim(Request.Form("picurl"))
		Rs("Readme") = Newasp.ChkFormStr(Request.Form("Readme"))
		Rs("AdCode") = Request.Form("AdCode")
		Rs("height") = Trim(Request.Form("height"))
		Rs("width") = Trim(Request.Form("width"))
		Rs("topmargin") = Trim(Request.Form("topmargin"))
		Rs("sidemargin") = Trim(Request.Form("sidemargin"))
		If LCase(Request.Form("UpdateTime")) = "yes" Then Rs("startime") = Now()
		Rs("flag") = Trim(Request.Form("flag"))
		Rs("isFlash") = Trim(Request.Form("isFlash"))
		Rs("IsLock") = CInt(Request.Form("IsLock"))
	Rs.update
	AdvertiseID = Rs("id")
	Rs.Close:Set Rs = Nothing
	Dim adNewasp
	Set adNewasp = New Admanage_Cls
	adNewasp.adboardid = CLng(Request.Form("boardid"))
	adNewasp.CreateJsFile
	Set adNewasp = Nothing
	Succeed("<li>恭喜您！修改广告成功。</li>")
End Sub
%>