⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_channel.asp

📁 小游戏网站演示www.4399.io 拥有4万条游戏数据
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
			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("IsCreateHtml") = 0
		Rs("HtmlExtName") = ".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("SortDestination") = "[InstallDir][channel][class]list_[classid]_[page].html"
		Rs("InfoDestination") = "[InstallDir][channel][class][id].html"
		Rs("MoreDestination") = "[InstallDir][channel]special/[name]_[page].html"
		Rs("setEditor") = "0|AdminMode|590|350|editor/|||0|Simple|560|350|0|0|0|0|0|1|0|0|0|0|0|550|5000|1|1|1|1|1|0|0|0|0|0|0|0|0|0"
		Rs("NamedPath") = ""
	Rs.update
	Rs.Close:Set Rs = Nothing
	Newasp.DelCahe "ChannelMenu"
	If CInt(Request.Form("modules")) > 0 Then
		Succeed("<li>添加新的频道成功</li><script>parent.leftFrame.location='admin_left.asp?action=menu&m=" & Request.Form("modules") & "';</script>")
	Else
		Succeed("<li>添加新的频道成功</li>")
	End If
	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 & "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"
	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,m_setEditor,i
	Dim strEditorDir,strNamedPath
	For i = 0 To 21
		If i = 4 Then
			strEditorDir = Newasp.CheckStr(Trim(Request.Form("setEditor(4)")))
			If strEditorDir = "" Then strEditorDir = "editor/"
			strEditorDir = Replace(strEditorDir, "\", "/")
			If Right(strEditorDir,1) <> "/" Then
				strEditorDir = strEditorDir & "/"
			End If 
			If Left(strEditorDir,1) = "/" Then
				FoundErr = True
				ErrMsg = ErrMsg + "<li>编辑器目录输入错误！</li>"
				Exit Sub
			End If
			m_setEditor = m_setEditor & strEditorDir & "|||"
		Else
			m_setEditor = m_setEditor & Trim(Request.Form("setEditor(" & i & ")")) & "|"
		End If
	Next
	m_setEditor = m_setEditor & "1|1|1|1|1"
	If Len(Request.Form("ChannelDir")) = 0 And Request.Form("ChannelType") <> 2 Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>频道所在目录不能为空！</li>"
	End If
	ChannelDir = Replace(Replace(Replace(Trim(Request.Form("ChannelDir")), "\","/"), " ",""), "'","")
	If Right(ChannelDir, 1) <> "/" Then
		ChannelDir = ChannelDir & "/"
	Else
		ChannelDir = ChannelDir
	End If
	strNamedPath = Replace(Replace(Replace(Trim(Request.Form("NamedPath")), "/","\"), " ",""), "'","")
	If Len(strNamedPath) > 1 Then
		If Right(strNamedPath,1) = "\" Then
			strNamedPath = Left(strNamedPath,Len(strNamedPath)-1)
		End If
	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(Trim(Request.Form("DomainName")), "\","/"), "'","")
	If Right(sDomainName, 1) = "/" Then
		sDomainName = Left(sDomainName,Len(sDomainName)-1)
	End If
	Dim TempStr, ChannelSetting
	For Each TempStr In Request.Form("ChannelSetting")
			ChannelSetting = ChannelSetting & Replace(TempStr, "|||", "") & "|||"
	Next
	If Founderr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_Channel where ChannelID = " & Request("ChannelID")
	Rs.Open SQL,Conn,1,3
		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") = Trim(ChannelDir)
		Rs("StopChannel") = Trim(Request.Form("StopChannel"))
		Rs("IsHidden") = Trim(Request.Form("IsHidden"))
		Rs("LinkTarget") = Trim(Request.Form("LinkTarget"))
		Rs("ChannelType") = Trim(Request.Form("ChannelType"))
		Rs("ChannelUrl") = Trim(Request.Form("ChannelUrl"))
		Rs("ModuleName") = Trim(Request.Form("ModuleName"))
		Rs("BindDomain") = Trim(Request.Form("BindDomain"))
		Rs("DomainName") = Trim(sDomainName)
		Rs("ChannelSkin") = Trim(Request.Form("ChannelSkin"))
		Rs("IsCreateHtml") = Trim(Request.Form("IsCreateHtml"))
		Rs("HtmlExtName") = HtmlExtName
		Rs("StopUpload") = Trim(Request.Form("StopUpload"))
		Rs("MaxFileSize") = CLng(Request.Form("MaxFileSize"))
		Rs("UpFileType") = Trim(Request.Form("UpFileType"))
		Rs("IsAuditing") = Trim(Request.Form("IsAuditing"))
		Rs("AppearGrade") = Trim(Request.Form("AppearGrade"))
		Rs("PostGrade") = Trim(Request.Form("PostGrade"))
		Rs("LeastString") = CLng(Request.Form("LeastString"))
		Rs("MaxString") = CLng(Request.Form("MaxString"))
		Rs("PaginalNum") = CInt(Request.Form("PaginalNum"))
		Rs("LeastHotHist") = CLng(Request.Form("LeastHotHist"))
12345

⌨️ 快捷键说明

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