admin_channel.asp

网络上经典的图片程序

				<td class="TableRow1"><div class="divbody">设置软件语言：</div><br>每种软件语言请用“,”分开</td>
				<td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(4)%>"></td>
			</tr>
<%
	Else
		Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""|||"">"
		Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@"">"
		Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@"">"
	End If
%>
		</table></fieldset></td>
		</tr>
		<tr>
			<td class="TableRow2">　</td>
			<td class="TableRow1" align="center"><input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button>&nbsp;&nbsp;
			<input type="submit" value="保存设置" name="B2" class=Button></td>
		</tr>
		</form>
	</table>
<div id="Issubport0" style="display:none"><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),0,"")%></div>
<div id="Issubport1" style="display:none"><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),1,"")%></div>
<div id="Issubport2" style="display:none"><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),2,"")%></div>
<div id="Issubport3" style="display:none"><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),3,"")%></div>
<div id="Issubport4" style="display:none"><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),4,"")%></div>
<div id="Issubport5" style="display:none">不使用日期目录,HTML文件将保存到分类目录下面<br><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport6" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,1)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport7" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,2)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport8" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,3)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport9" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,4)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport10" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,5)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport11" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,6)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport12" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,7)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<div id="Issubport13" style="display:none"><%=Newasp.GetChannelDir(Rs("ChannelID"))%>分类目录/<%=Newasp.ShowDatePath(tempstr,8)%><%=Newasp.ReadFileName(tempstr,9988,Rs("HtmlExtName"),Rs("HtmlPrefix"),Rs("HtmlForm"),"")%></div>
<SCRIPT LANGUAGE="JavaScript">
<!--
function chkselect(s,divid)
{
	var divname='Issubport';
	var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
		divname=divname+s;
	}
	if (divid=="know2")
	{
		s+=5;
		divname=divname+s;
	}
	document.getElementById(divid).innerHTML=divname;
	chkreport=document.getElementById(divname).innerHTML;
	document.getElementById(divid).innerHTML=chkreport;
}
//-->
</SCRIPT>
<%
Rs.Close:Set Rs = Nothing
End Sub

Private Sub CheckSave()
	If Len(Request.Form("ChannelName")) = 0 Or Len(Request.Form("ChannelName")) => 25 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>网站频道名称不能为空或者超过20个字符！</li>"
	End If
	If Len(Request.Form("ColorModes")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>标题颜色参数错误！</li>"
	End If
	If Len(Request.Form("Caption")) = 0 Or Len(Request.Form("Caption")) => 200 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道注释不能为空或者超过200个字符！</li>"
	End If
	If Len(Request.Form("ChannelUrl")) = 0 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道连接URL不能为空！</li>"
	End If
	
End Sub

Private Sub SavenewChannel()
	CheckSave
	Dim neworders
	If Len(Request.Form("ChannelDir")) = 0 And Request.Form("ChannelType") <> 2 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道所在目录不能为空！</li>"
	End If
	ChannelDir = Replace(Replace(Replace(Request.Form("ChannelDir"), "\","/"), " ",""), "'","")
	If Right(ChannelDir, 1) <> "/" Then
		ChannelDir = ChannelDir & "/"
	Else
		ChannelDir = ChannelDir
	End If
	If Request.Form("ChannelType") = 1 Then
		If Request.Form("modules") = 0 Then
			FoundErr = True
			ErrMsg = ErrMsg + "<li>请选择正确的模块！</li>"
			Exit Sub
		End If
		Set Rs = Conn.Execute("SELECT ChannelID,ChannelDir FROM NC_Channel WHERE ChannelType=0 And ChannelID=" & CLng(Request.Form("modules")))
		If Rs.EOF And Rs.BOF Then
			ErrMsg = "<li>找不到指定模块。</li>"
			Founderr = True
			Exit Sub
		Else
			mChannelID = Rs("ChannelID")
			mChannelDir = Rs("ChannelDir")
			If LCase(ChannelDir) = LCase(mChannelDir) Then
				ErrMsg = "<li>不能指定和系统频道相同的目录。</li>"
				Founderr = True
				Exit Sub
			End If
		End If
		Set Rs = Nothing
	End If
	
	Set Rs = Conn.Execute("SELECT ChannelID FROM NC_Channel WHERE ChannelID=" & CLng(Request("NewChannelID")))
	If Not (Rs.EOF And Rs.BOF) Then
		ErrMsg = "<li>您不能指定和别的频道一样的序号。</li>"
		Founderr = True
		Exit Sub
	Else
		NewChannelID = CLng(Request("NewChannelID"))
	End If
	Set Rs = Nothing
	If NewChannelID = 999 Then NewChannelID = NewChannelID + 1
	If NewChannelID = 9999 Then NewChannelID = NewChannelID + 1
	If Founderr = True Then Exit Sub
	Set Rs = Newasp.Execute ("SELECT MAX(orders) FROM NC_Channel")
	If Not (Rs.EOF And Rs.bof) Then
		neworders = Rs(0)
	End If
	If IsNull(neworders) Then neworders = 0
	Set Rs = Nothing
	'Call ChannelCopy
	'Succeed("<li>添加新的频道成功</li>"):exit sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM NC_Channel"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("ChannelID") = NewChannelID
		Rs("orders") = neworders + 1
		Rs("ColorModes") = Trim(Request.Form("ColorModes"))
		Rs("FontModes") = Trim(Request.Form("FontModes"))
		Rs("ChannelName") = Newasp.ChkFormStr(Request.Form("ChannelName"))
		Rs("Caption") = Newasp.ChkFormStr(Request.Form("Caption"))
		Rs("ChannelDir") = ChannelDir
		Rs("StopChannel") = 0
		Rs("IsHidden") = Trim(Request.Form("IsHidden"))
		Rs("LinkTarget") = Trim(Request.Form("LinkTarget"))
		Rs("ChannelType") = CInt(Request.Form("ChannelType"))
		Rs("ChannelUrl") = Trim(Request.Form("ChannelUrl"))
		Rs("modules") = CInt(Request.Form("modules"))
		Rs("BindDomain") = 0
		Rs("DomainName") = "http://"
		If CInt(Request.Form("ChannelType")) = 1 Then
			Rs("ModuleName") = "新频道"
		Else
			Rs("ModuleName") = "外部"
		End If
		
		Rs("ChannelSkin") = 0
		Rs("HtmlPath") = 0
		Rs("HtmlForm") = 3
		Rs("IsCreateHtml") = 0
		Rs("HtmlExtName") = ".html"
		Rs("HtmlPrefix") = "HTML_"
		Rs("StopUpload") = 1
		Rs("MaxFileSize") = 500
		Rs("UpFileType") = "rar|zip|exe|gif|jpg|png|bmp|swf"
		Rs("IsAuditing") = 1
		Rs("AppearGrade") = 0
		Rs("PostGrade") = 0
		Rs("LeastString") = 10
		Rs("MaxString") = 500
		Rs("PaginalNum") = 15
		Rs("LeastHotHist") = 50
		If CInt(Request.Form("modules")) = 2 Then
			Rs("Channel_Setting") = "Win2003/|WinNet/|WinXP/|Win2000/|NT/|WinME/|Win9X/|Linux/|Unix/|Mac/|||Win9X/Win2000/WinXP/Win2003/|||国产软件,国外软件,汉化补丁,病毒防治|||共享软件,免费软件,自由软件,试用软件,演示软件,商业软件|||简体中文,繁体中文,英文|||"
		Else
			Rs("Channel_Setting") = "|||@@@|||@@@|||"
		End If
	Rs.update
	Rs.Close:Set Rs = Nothing
	Newasp.DelCahe "ChannelMenu"
	Succeed("<li>添加新的频道成功</li>")
	If CInt(Request.Form("modules")) > 0 And CInt(Request.Form("ChannelType")) = 1 Then
		Call ChannelCopy
	End If
	
End Sub
Private Sub ChannelCopy()
	Dim newChannelDir,oldChannelDir
	Dim tmpChannel,tmpChannelArray
	oldChannelDir = Newasp.InstallDir & mChannelDir
	newChannelDir = Newasp.InstallDir & ChannelDir
	Newasp.CreatPathEx(newChannelDir & "js")
	Newasp.CreatPathEx(newChannelDir & "special")
	Newasp.CreatPathEx(newChannelDir & "UploadPic")
	Newasp.CreatPathEx(newChannelDir & "UploadFile")
	Newasp.CopyToFile oldChannelDir & "index.asp",newChannelDir & "index.asp"
	Newasp.CopyToFile oldChannelDir & "list.asp",newChannelDir & "list.asp"
	Newasp.CopyToFile oldChannelDir & "show.asp",newChannelDir & "show.asp"
	Newasp.CopyToFile oldChannelDir & "special.asp",newChannelDir & "special.asp"
	Newasp.CopyToFile oldChannelDir & "search.asp",newChannelDir & "search.asp"
	Newasp.CopyToFile oldChannelDir & "showbest.asp",newChannelDir & "showbest.asp"
	Newasp.CopyToFile oldChannelDir & "showhot.asp",newChannelDir & "showhot.asp"
	Newasp.CopyToFile oldChannelDir & "shownew.asp",newChannelDir & "shownew.asp"
	Newasp.CopyToFile oldChannelDir & "comment.asp",newChannelDir & "comment.asp"
	Newasp.CopyToFile oldChannelDir & "Hits.Asp",newChannelDir & "Hits.Asp"
	Newasp.CopyToFile oldChannelDir & "RemoveCache.Asp",newChannelDir & "RemoveCache.Asp"
	Newasp.CopyToFile oldChannelDir & "rssfeed.asp",newChannelDir & "rssfeed.asp"
	Newasp.CopyToFile oldChannelDir & "js/ShowPage.JS",newChannelDir & "js/ShowPage.JS"
	Newasp.CopyToFile oldChannelDir & "js/Show_Page.JS",newChannelDir & "js/Show_Page.JS"
	tmpChannel = Newasp.ReadFile("include/Channel.dat")
	tmpChannel = Replace(tmpChannel, "$ChannelID$", NewChannelID,1,-1,1)
	tmpChannelArray = Split(tmpChannel, "@@@")
	If CInt(Request.Form("modules")) = 1 Then
		Newasp.CopyToFile oldChannelDir & "sendmail.asp",newChannelDir & "sendmail.asp"
		Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(0)
	ElseIf CInt(Request.Form("modules")) = 2 Then
		Newasp.CopyToFile oldChannelDir & "showtype.asp",newChannelDir & "showtype.asp"
		Newasp.CopyToFile oldChannelDir & "error.asp",newChannelDir & "error.asp"
		Newasp.CopyToFile oldChannelDir & "download.asp",newChannelDir & "download.asp"
		Newasp.CopyToFile oldChannelDir & "softdown.asp",newChannelDir & "softdown.asp"
		Newasp.CopyToFile oldChannelDir & "previewimg.asp",newChannelDir & "previewimg.asp"
		Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(1)
	Else
		Newasp.CopyToFile oldChannelDir & "download.asp",newChannelDir & "download.asp"
		Newasp.CopyToFile oldChannelDir & "down.asp",newChannelDir & "down.asp"
		Newasp.CopyToFile oldChannelDir & "downfile.asp",newChannelDir & "downfile.asp"
		Newasp.CopyToFile oldChannelDir & "play.html",newChannelDir & "play.html"
		Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(2)
	End If
	Dim rstmp,i
	Dim TemplateDir,TemplateFields,TemplateValues
	Set rstmp = Newasp.Execute("SELECT * FROM NC_Template WHERE ChannelID=" & CLng(Request.Form("modules")))
	SQL=rstmp.GetRows(-1)
	Set rstmp = Nothing
	For i=0 To Ubound(SQL,2)
		TemplateDir = ""
		TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault"
		TemplateValues = "" & NewChannelID & ","& SQL(2,i) &"," & SQL(3,i) & ",'" & TemplateDir & "','" & Newasp.CheckStr(SQL(5,i)) & "','" & Newasp.CheckStr(SQL(6,i)) & "','" & Newasp.CheckStr(SQL(7,i)) & "','" & Newasp.CheckStr(SQL(8,i)) & "'," & SQL(9,i) & ""
		Conn.Execute ("INSERT INTO NC_Template (" & TemplateFields & ") VALUES (" & TemplateValues & ")")
	Next
	SQL=Null
End Sub

Private Sub SaveditChannel()
	CheckSave
	Dim HtmlExtName,sDomainName
	If Len(Request.Form("ChannelDir")) = 0 And Request.Form("ChannelType") <> 2 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道所在目录不能为空！</li>"
	End If
	ChannelDir = Replace(Replace(Replace(Request.Form("ChannelDir"), "\","/"), " ",""), "'","")
	If Right(ChannelDir, 1) <> "/" Then
		ChannelDir = ChannelDir & "/"
	Else
		ChannelDir = ChannelDir
	End If
	If Trim(Request.Form("IsCreateHtml")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请选择是否生成HTML文件！</li>"
	End If
	If Left(Trim(Request.Form("HtmlExtName")),1) <> "." Then
		HtmlExtName = "." & Trim(Request.Form("HtmlExtName"))
	Else
		HtmlExtName = Trim(Request.Form("HtmlExtName"))
	End If
	If Not Newasp.IsValidChar(Request.Form("HtmlExtName")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>文件扩展名中含有非法字符或者中文字符！</li>"
	End If
	If Not Newasp.IsValidChar(ChannelDir) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道目录中含有非法字符或者中文字符！</li>"
	End If
	If Not IsNumeric(Request("MaxFileSize")) Then
		ErrMsg = ErrMsg & "<li>上传文件大小请使用整数！</li>"
		Founderr = True
	End If
	If Not IsNumeric(Request("LeastString")) Then
		ErrMsg = ErrMsg & "<li>最小字符请使用整数！</li>"
		Founderr = True
	End If
	If Not IsNumeric(Request("MaxString")) Then
		ErrMsg = ErrMsg & "<li>最大字符请使用整数！</li>"
		Founderr = True
	End If
	If Not IsNumeric(Request("PaginalNum")) Then
		ErrMsg = ErrMsg & "<li>每页显示列表数请使用整数！</li>"
		Founderr = True
	End If
	If Not IsNumeric(Request("LeastHotHist")) Then
		ErrMsg = ErrMsg & "<li>最小热门点击数请使用整数！</li>"
		Founderr = True
	End If
	sDomainName = Replace(Replace(Replace(Request.Form("DomainName"), "\","/"), " ",""), "'","")
	If Right(sDomainName, 1) <> "/" Then
		sDomainName = sDomainName & "/"