📄 admin_channel.asp

📁 网络上经典的图片程序
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 系统名称：润滑油营销网
' 开 发 商：方圆卓越——中国最专业的营销咨询团队
' 擅长项目：润滑油行业的营销培训、样板市场、人员培训
' 更新日期：2005-4-15
' 官方网站：润滑油营销网(www.lubesale.com) QQ:66687989
'=====================================================================
' Copyright 2006-2008 润滑油营销网·方圆卓越 - All Rights Reserved.
' newasp is a trademark of saleroad@163.com
'=====================================================================
Response.Write "<script language = JavaScript>" & vbCrLf
Response.Write "function ChannelSetting(n){" & vbCrLf
Response.Write "	if (n == 1){" & vbCrLf
Response.Write "		ChannelSetting1.style.display='none';" & vbCrLf
Response.Write "		ChannelSetting2.style.display='';" & vbCrLf
Response.Write "	}" & vbCrLf
Response.Write "	else{" & vbCrLf
Response.Write "		ChannelSetting1.style.display='';" & vbCrLf
Response.Write "		ChannelSetting2.style.display='none';" & vbCrLf
Response.Write "	}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
Response.Write "	<tr>"
Response.Write "		<th colspan=""2"">站点频道管理</th>"
Response.Write "	</tr>"
Response.Write "	<tr>"
Response.Write "		<td width=""100%"" class=TableRow2 colspan=2><b>管理选项：</b><a href=admin_channel.asp>管理首页</a>" 
Response.Write "		| <a href=?action=add>添加频道</a> | "
Dim Rsm,ModuleName,strModuleName,sChannelID,NewChannelID
Set Rsm = Newasp.Execute("SELECT ChannelID,ModuleName From NC_Channel WHERE ChannelType < 2 ORDER BY orders ASC")
Do While Not Rsm.EOF
	Response.Write "<a href=?action=edit&ChannelID="
	Response.Write Rsm("ChannelID")
	Response.Write ">"
	Response.Write Rsm("ModuleName")
	Response.Write "设置</a> | "
	strModuleName = strModuleName & Rsm("ModuleName") & "|||"
	sChannelID = sChannelID & Rsm("ChannelID") & "|||"
	Rsm.movenext
Loop
Set Rsm = Nothing
Response.Write "<a href=?action=orders>频道排序</a>"
Response.Write "		</td>"
Response.Write "	</tr>"
Response.Write "</table>"
Response.Write "<br>"
Dim Action,ChannelDir,TitleColor,mChannelDir,mChannelID
Dim i,RsObj
Action = LCase(Newasp.RemoveBadCharacters(Request("action")))
If Not ChkAdmin("Channel") Then
	Server.Transfer("showerr.asp")
	Response.End
End If
Select Case Trim(Action)
Case "savenew"
	Call SavenewChannel
Case "savedit"
	Call SaveditChannel
Case "add"
	Call ChannelAdd
Case "edit"
	Call ChannelEdit
Case "del"
	Call ChannelDel
Case "orders"
	Call ChannelOrders
Case "saveorder"
	Call SaveOrder
Case "stopchannel"
	Call UpdateStop
Case "ishidden"
	Call UpdateHidden
Case "linktarget"
	Call UpdateLinkTarget
Case "createhtml"
	Call UpdateCreateHtml
Case "reload"
	Call ReloadChannelCache
Case Else
	Call showmain
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If

Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub showmain()
	Response.Write "<table border=""0"" align=""center"" cellspacing=""1"" cellpadding=""3"" class=""TableBorder"">"
	Response.Write "	<tr>"
	Response.Write "		<th>频道名称</th>"
	Response.Write "		<th>频道类型</th>"
	Response.Write "		<th>频道状态</th>"
	Response.Write "		<th>是否HTML</th>"
	Response.Write "		<th>名称状态</th>"
	Response.Write "		<th>连接目标</th>"
	Response.Write "		<th>管理选项</th>"
	Response.Write "	</tr>"

	SQL = "select * from NC_Channel order by orders"
	Set Rs = Newasp.Execute(SQL)
	Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
	Do While Not Rs.EOF
		Response.Write "	<tr>"
		Response.Write "		<td class=""TableRow2"">"
		Response.Write ("<a href=?action=edit&ChannelID=" & Rs("ChannelID") & " title=修改此频道设置>")
		Response.Write (Newasp.ReadFontMode(Rs("ChannelName"),Rs("ColorModes"),Rs("FontModes")))
		Response.Write ("</a>")
		Response.Write "		</td>"
		Response.Write "		<td class=""TableRow1"" align=""center"">"
		If Rs("ChannelType") = 0 Then
			Response.Write ("<font color=blue>系统频道")
		Elseif Rs("ChannelType") = 1 Then
			Response.Write ("<font color=green>内部频道")
		Else
			Response.Write ("<font color=red>外部频道")
		End If
		Response.Write ("<font>")
		Response.Write ("</td>")
		If Rs("ChannelType") < 2 Then
			Response.Write ("<td class=""TableRow2"" align=""center"">")
			If Rs("StopChannel") <> 0 Then
				Response.Write ("<a href=?action=StopChannel&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：打开此频道""><font color=red>关闭<font></a>")
			Else
				Response.Write ("<a href=?action=StopChannel&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：关闭此频道"">打开</a>")
			End If
			Response.Write "		</td>"
			Response.Write "		<td class=""TableRow1"" align=""center"">"
			If Rs("IsCreateHtml") = 0 Then
				If Rs("ChannelID") = 4 Then
					Response.Write ("否")
				Else
					Response.Write ("<a href=?action=createhtml&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：生成HTML"">否</a>")
				End If
			Else
				Response.Write ("<a href=?action=createhtml&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：不生成HTML""><font color=blue>是</font></a>")
			End If
		Else
			Response.Write ("<td colspan=""2"" class=""TableRow2"" align=""center"">")
			Response.Write ("<a href=" & Rs("ChannelUrl") & " target=_blank><font color=blue>" & Rs("ChannelUrl") & "</font></a>")
		End If
		Response.Write "		</td>"
		Response.Write "				<td class=""TableRow2"" align=""center"">"
		If Rs("IsHidden") <> 0 Then
			Response.Write ("<a href=?action=ishidden&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：隐藏频道名称""><font color=green>隐藏<font></a>")
		Else
			Response.Write ("<a href=?action=ishidden&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：隐藏频道名称"">显示</a>")
		End If
		Response.Write "		</td>"
		Response.Write "		<td class=""TableRow1"" align=""center"">"
		If Rs("LinkTarget") = 0 Then
			Response.Write ("<a href=?action=linktarget&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：新窗口打开"">本窗口打开</a>")
		Else
			Response.Write ("<a href=?action=linktarget&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：本窗口打开""><font color=blue>新窗口打开<font></a>")
		End If
		Response.Write "		</td>"
		Response.Write "		<td class=""TableRow2"" align=""center""><A HREF=?action=edit&ChannelID="
		Response.Write Rs("ChannelID")
		Response.Write ">编 辑</A>"
		If Rs("ChannelID") => 10 Then
			Response.Write " | <A HREF=?action=del&ChannelID="
			Response.Write Rs("ChannelID")
			Response.Write " onclick=""{if(confirm('此操作将删除此频道\n您确定要删除吗?')){return true;}return false;}"">删 除</A>"
		End If
		If Rs("ChannelType") < 2 Then
			'Response.Write " | <A HREF=?action=reload&ChannelID="
			'Response.Write Rs("ChannelID")
			'Response.Write "><font color=blue>更新缓存</font></a>"
			If Rs("ChannelID") <> 4 Then
				Response.Write " | <A HREF=admin_classify.asp?action=jsmenu&ChannelID="
				Response.Write Rs("ChannelID")
				Response.Write "&stype=1><font color=green>生成JS菜单</font></a>"
			End If
		End If
		Response.Write "		</td>"
		Response.Write "	</tr>"

	Rs.movenext
	Loop
	Rs.Close
	Set Rs = Nothing
	Response.Write "	<tr>"
	Response.Write "		<td colspan=""7"" class=""TableRow1""><b>说明：</b> <br>①、点击相应的状态名可以进行相关快捷切换操作；<br>"
	Response.Write "②、在切换HTML生成功能后，请<font color=red>重新生成JS</font>菜单。"
	Response.Write "</td>	</tr>"
	Response.Write "</table>"
End Sub

Private Sub ChannelAdd()
	
	Set Rs = Newasp.Execute("select Max(ChannelID) from NC_Channel")
	If Rs.bof And Rs.EOF Then
		NewChannelID = 1
	Else
		NewChannelID = Rs(0) + 1
	End If
	If IsNull(NewChannelID) Then NewChannelID = 1
	Rs.Close
	If NewChannelID < 10 Then NewChannelID = 10
%>
	<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
		<tr>
			<th colspan="2" align="left"><img src="images/welcome.gif" width="16" height="17" align="absMiddle"> 添加站点频道</th>
		</tr>
		<form method="POST" action="?action=savenew">
		<input type="hidden" name="NewChannelID" value="<%=NewChannelID%>">
		<tr>
			<td width="20%" class="TableRow2"><div class="divbody">频道名称</td>
			<td width="80%" class="TableRow1">
			<input type="text" name="ChannelName" size="20"></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">频道名称模式</div></td>
			<td class="TableRow1"> 颜色：
			<select size="1" name="ColorModes">
			<option value="0">请选择标题颜色</option>
<%
	TitleColor = "," & Newasp.InitTitleColor
	TitleColor = Split(TitleColor, ",")
	For i = 1 To UBound(TitleColor)
		Response.Write ("<option style=""background-color:"& TitleColor(i) &";color: "& TitleColor(i) &""" value='"& i &"'>"& TitleColor(i) &"</option>")
	Next
%>
			</select> 字体：
			<select size="1" name="FontModes">
		<option value="0">请选择字体</option>
		<option value="1">粗体</option>
		<option value="2">斜体</option>
		<option value="3">下划线</option>
		<option value="4">粗体+斜体</option>
		<option value="5">粗体+下划线</option>
		<option value="6">斜体+下划线</option>
		</select></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">频道注释</div></td>
			<td class="TableRow1">
			<input type="text" name="Caption" size="60"></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">频道类型</div></td>
			<td class="TableRow1">
			<input type="radio" value="2" checked name="ChannelType" onClick="ChannelType1.style.display='';ChannelType2.style.display='none';ChannelType3.style.display='none';"> 外部频道&nbsp;&nbsp; 
			<input type="radio" name="ChannelType" value="1" onClick="ChannelType1.style.display='none';ChannelType2.style.display='';ChannelType3.style.display='';"> 内部频道</td>
		</tr>
		<tr id=ChannelType1>
			<td class="TableRow2"><div class="divbody">频道连接URL</div></td>
			<td class="TableRow1">
			<input type="text" name="ChannelUrl" size="45" value="<%=Newasp.SiteUrl%>"> <font color="#FF0000">
			* 请输入完整的URL</font></td>
		</tr>
		<tr id=ChannelType2 style="display:none">
			<td class="TableRow2"><div class="divbody">所属模块</div></td>
			<td class="TableRow1">
			<select name="modules" szie=1>
				<option value='0' selected>外部</option>
				<option value='1'>文章</option>
				<option value='2'>软件</option>
				<option value='5'>动画</option>
			</select></td>
		</tr>
		<tr id=ChannelType3 style="display:none">
			<td class="TableRow2"><div class="divbody">频道目录</div></td>
			<td class="TableRow1"><input type="text" name="ChannelDir" size=20 value='dir'></td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">连接目标</div></td>
			<td class="TableRow1">
			<input type="radio" value="0" checked name="LinkTarget"> 本窗口打开&nbsp;&nbsp; 
			<input type="radio" name="LinkTarget" value="1"> 新窗口打开</td>
		</tr>
		<tr>
			<td class="TableRow2"><div class="divbody">频道菜单状态</div></td>
			<td class="TableRow1">
			<input type="radio" name="IsHidden" value="0" checked> 正常&nbsp;&nbsp; 
			<input type="radio" name="IsHidden" value="1"> 隐藏</td>
		</tr>
		<tr>
			<td class="TableRow2">　</td>
			<td class="TableRow1">
			<p 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>
<%
End Sub

Private Sub ChannelEdit()
	Dim Rs_c,tempstr
	Dim Channel_Setting
	Set Rs = Newasp.Execute("Select * From NC_Channel where ChannelID = " & Request("ChannelID"))
	If Rs.bof And Rs.EOF Then
		FoundErr = True
12 3 4 下一页
💿 文件大小 1794 K
👤 上传用户 jccg1000146752
📂 所属分类文章/文档
🏷️ 相关标签

#网络 #程序
⌨️ 快捷键说明

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