📄 admin_channel.asp
字号:
End If
If rsChannelList("ChannelType") = 1 And rsChannelList("ModuleType") <> 4 Then
Response.Write "<a href='Admin_Channel.asp?Action=UpdateChannelFiles&iChannelID=" & rsChannelList("ChannelID") & "'>文件</a>"
Else
Response.Write " "
End If
Response.Write "</td>"
Response.Write "</tr>"
rsChannelList.MoveNext
Loop
Response.Write "</table>"
rsChannelList.Close
Set rsChannelList = Nothing
Response.Write "<form name='form1' method='post' action='Admin_Channel.asp'><div align='center'>"
Response.Write "<input type='hidden' name='Action' value='UpdateData'>"
Response.Write "<input type='submit' name='submit' value='更新所有频道的数据' onclick=""document.form1.Action.value='UpdateData'""> "
Response.Write "<input type='submit' name='submit' value='更新所有频道的文件' onclick=""document.form1.Action.value='UpdateChannelFiles'"">"
Response.Write "</div></form>"
End Sub
Sub order()
Dim rsChannelList, sqlChannelList, iCount, i, j
'sqlChannelList = "select * from PE_Channel order by OrderID"
sqlChannelList = "select * from PE_Channel Where 1=1"
If Not (FoundInArr(AllModules, "Supply", ",")) Then
sqlChannelList = sqlChannelList & " And ModuleType<>6"
End If
If Not (FoundInArr(AllModules, "Job", ",")) Then
sqlChannelList = sqlChannelList & " And ModuleType<>8"
End If
If Not (FoundInArr(AllModules, "House", ",")) Then
sqlChannelList = sqlChannelList & " And ModuleType<>7"
End If
sqlChannelList = sqlChannelList & " order by OrderID "
Set rsChannelList = Server.CreateObject("Adodb.RecordSet")
rsChannelList.Open sqlChannelList, Conn, 1, 1
iCount = rsChannelList.RecordCount
j = 1
Response.Write "<br>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td width='32' align='center'><strong>序号</strong></td>"
Response.Write " <td height='22' align='center'><strong> 频道名称</strong></td>"
Response.Write " <td width='54' align='center'><strong>打开方式</strong></td>"
Response.Write " <td width='80' align='center'><strong>频道类型</strong></td>"
Response.Write " <td width='120' align='center'><strong>频道目录/</strong><strong>链接地址</strong></td>"
Response.Write " <td width='80' align='center'><strong>功能模块</strong></td>"
Response.Write " <td width='240' colspan='2' align='center'><strong>操作</strong></td>"
Response.Write " </tr>" & vbCrLf
Do While Not rsChannelList.EOF
Response.Write "<tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write "<td width='32' align='center'>" & rsChannelList("OrderID") & "</td>"
Response.Write " <td align='center'><a href='Admin_Channel.asp?Action=Modify&iChannelID=" & rsChannelList("ChannelID") & "' title='" & nohtml(rsChannelList("ReadMe")) & "'>" & rsChannelList("ChannelName") & "</a></td>"
Response.Write "<td width='54' align='center'>"
If rsChannelList("OpenType") = 0 Then
Response.Write "<font color=green>原窗口</font>"
Else
Response.Write "新窗口"
End If
Response.Write "</td>"
Response.Write "<td width='80' align='center'>"
Select Case rsChannelList("ChannelType")
Case 0
Response.Write "<font color=blue>系统频道</font>"
Case 1
Response.Write "<font color=green>内部频道</font>"
Case 2
Response.Write "<font color=red>外部频道</font>"
End Select
Response.Write "</td>"
Response.Write "<td width='120'>"
If rsChannelList("ChannelType") <= 1 Then
Response.Write "目录：" & rsChannelList("ChannelDir")
Else
Response.Write "<font color=red>链接：" & rsChannelList("LinkUrl") & "</font>"
End If
Response.Write "</td>"
Response.Write "<td width='80' align='center'>"
If rsChannelList("ChannelType") <= 1 Then
Response.Write GetModuleTypeName(rsChannelList("ModuleType"))
Else
Response.Write " "
End If
Response.Write "</td>"
Response.Write "<form action='Admin_Channel.asp?Action=UpOrder' method='post'>"
Response.Write " <td width='120' align='center'>"
If j > 1 Then
Response.Write "<select name=MoveNum size=1><option value=0>向上移动</option>"
For i = 1 To j - 1
Response.Write "<option value=" & i & ">" & i & "</option>"
Next
Response.Write "</select>"
Response.Write "<input type=hidden name=iChannelID value=" & rsChannelList("ChannelID") & ">"
Response.Write "<input type=hidden name=cOrderID value=" & rsChannelList("OrderID") & "> <input type=submit name=Submit value=修改>"
Else
Response.Write " "
End If
Response.Write "</td></form>"
Response.Write "<form action='Admin_Channel.asp?Action=DownOrder' method='post'>"
Response.Write " <td width='120' align='center'>"
If iCount > j Then
Response.Write "<select name=MoveNum size=1><option value=0>向下移动</option>"
For i = 1 To iCount - j
Response.Write "<option value=" & i & ">" & i & "</option>"
Next
Response.Write "</select>"
Response.Write "<input type=hidden name=iChannelID value=" & rsChannelList("ChannelID") & ">"
Response.Write "<input type=hidden name=cOrderID value=" & rsChannelList("OrderID") & "> <input type=submit name=Submit value=修改>"
Else
Response.Write " "
End If
Response.Write "</td></form></tr>"
j = j + 1
rsChannelList.MoveNext
Loop
Response.Write "</table>"
rsChannelList.Close
Set rsChannelList = Nothing
End Sub
Sub AddChannel()
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Channel.asp'>频道管理</a> >> 添加新频道</td></tr></table>"
Response.Write "<form method='post' action='Admin_Channel.asp' name='myform' onSubmit='return CheckForm();'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr align='center'>" & vbCrLf
Response.Write " <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>频道设置</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>前台样式</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(3)'>上传选项</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(4)'>生成选项</td>" & vbCrLf
If IsCustom_Content = True Then
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(5)'>自设内容</td>" & vbCrLf
End If
Response.Write " <td> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
Response.Write "<table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong> 频道名称：</strong></td>" & vbCrLf
Response.Write " <td><input name='ChannelName' type='text' id='ChannelName' size='49' maxlength='30'> <font color='#FF0000'>*</font></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>频道图片：</strong></td>" & vbCrLf
Response.Write " <td><input name='ChannelPicUrl' type='text' id='ChannelPicUrl' size='49' maxlength='200'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='200' class='tdbg5'><strong>频道说明：</strong><br>鼠标移至频道名称上时将显示设定的说明文字（不支持HTML）</td>" & vbCrLf
Response.Write " <td valign='middle'><textarea name='ReadMe' cols='40' rows='3' id='ReadMe'></textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='200' class='tdbg5'><strong>频道类型：</strong><br><font color=red>请慎重选择，频道一旦添加后就不能再更改频道类型。</font></td>" & vbCrLf
Response.Write " <td>"
Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
Response.Write "function HideTabTitle(displayValue,tempType){" & vbCrLf
Response.Write " for (var i = 1; i < TabTitle.length; i++) {" & vbCrLf
Response.Write " if(tempType==0&&i==2) {" & vbCrLf
Response.Write " TabTitle[i].style.display='none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else{" & vbCrLf
Response.Write " TabTitle[i].style.display=displayValue;" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<input name='ChannelType' type='radio' value='2' onclick=""HideTabTitle('none');ChannelSetting.style.display='none'"" ><font color=blue><b>外部频道</b></font>"
Response.Write " 外部频道指链接到本系统以外的地址中。当此频道准备链接到网站中的其他系统时，请使用这种方式。<br>"
Response.Write " 外部频道的链接地址：<input name='LinkUrl' type='text' id='LinkUrl' value='' size='40' maxlength='200'>"
Response.Write " <br><br>" & vbCrLf
Response.Write " <input name='ChannelType' type='radio' value='1' checked"
If ObjInstalled_FSO = False Then Response.Write " disabled "
Response.Write " onclick=""HideTabTitle('',1);ChannelSetting.style.display=''"">"
Response.Write "<font color=blue><b>系统内部频道</b></font>"
Response.Write " 系统内部频道指的是在本系统现有功能模块（新闻、文章、图片等）基础上添加新的频道，新频道具备和所使用功能模块完全相同的功能。例如，添加一个名为“网络学院”的新频道，新频道使用“文章”模块的功能，则新添加的“网络学院”频道具有原文章频道的所有功能。<br>"
Response.Write " 此功能需要服务器支持FSO才可用。<br>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -