admin_channel.asp

个人网站比较简短

    Response.Write "      <td width='200' class='tdbg5'><strong>是否允许在本频道上传文件：</strong></td>"
    Response.Write "      <td><input name='EnableUploadFile' type='radio' value='True' checked>是 &nbsp;&nbsp;&nbsp;&nbsp;<input name='EnableUploadFile' type='radio' value='False'>否</td>"
    Response.Write "    </tr>" & vbCrLf
    Dim UploadDir
    Randomize
    UploadDir = "UploadFiles_" & CInt(Rnd * 8999 + 1000)
    
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong>上传文件的保存目录：</strong><br><font color='red'>你可以定期或不定期的更改上传目录，以防其他网站盗链</font></td>"
    Response.Write "      <td><input name='UploadDir' type='text' id='UploadDir' value='" & UploadDir & "' size='20' maxlength='20'>&nbsp;&nbsp;<font color='red'>只能是英文和数字，不能带空格或“\”、“/”等符号。</font></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong>允许上传的最大文件大小：</strong></td>"
    Response.Write "      <td><input name='MaxFileSize' type='text' id='MaxFileSize' value='1024' size='10' maxlength='10'> KB&nbsp;&nbsp;&nbsp;&nbsp;<font color=blue>提示：1 KB = 1024 Byte，1 MB = 1024 KB</font></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong>允许上传的文件类型：</strong><br>多种文件类型之间以“|”分隔</td>"
    Response.Write "      <td><table>"
    Response.Write "          <tr><td>图片类型：</td><td><input name='UpFileType' type='text' id='UpFileType' value='gif|jpg|jpeg|jpe|bmp|png' size='50' maxlength='200'></td></tr>"
    Response.Write "          <tr><td>Flash文件：</td><td><input name='UpFileType' type='text' id='UpFileType' value='swf' size='50' maxlength='50'></td></tr>"
    Response.Write "          <tr><td>Windows媒体：</td><td><input name='UpFileType' type='text' id='UpFileType' value='mid|mp3|wmv|asf|avi|mpg' size='50' maxlength='200'></td></tr>"
    Response.Write "          <tr><td>Real媒体：</td><td><input name='UpFileType' type='text' id='UpFileType' value='ram|rm|ra' size='20' maxlength='200'></td></tr>"
    Response.Write "          <tr><td>其他文件：</td><td><input name='UpFileType' type='text' id='UpFileType' value='rar|exe|doc|zip' size='50' maxlength='200'></td></tr>"
    Response.Write "      </table></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf



    Response.Write "  <tbody id='Tabs' style='display:none'>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>生成HTML方式：</font></strong><br>服务器支持FSO才能启用“生成HTML”功能<br>请谨慎选择！以后在每一次更改生成方式前，你最好先删除所有以前生成的文件，然后在保存频道参数后再重新生成所有文件。</td>"
    Response.Write "      <td>" & GetUseCreateHTML(0, 0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>栏目、专题列表更新页数：</font></strong><br>添加内容后自动更新的栏目及专题列表页数。</td>"
    Response.Write "      <td><input name='UpdatePages' type='text' id='UpdatePages' value='3' size='5' maxlength='5'> 页 <font color='#FF0000'>*</font>&nbsp;&nbsp;<font color='blue'>如：更新页数设为3，则每次自动更新前三页，第4页以后的分页为固定生成的页面，当新增内容数超过一页，则再生成一个固定页面，在总记录数不是每页记录数的整数倍时，交叉页（第3、4页）会有部分记录重复。</font></td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr><td colspan='2'><font color='red'><b>以下参数仅当“生成HTML方式”设为后三者时才有效。<br>请谨慎选择！以后在每一次更改以下参数前，你最好先删除所有以前生成的文件，然后在保存参数设置后再重新生成所有文件。</b></font></td></tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>自动生成HTML时的生成方式：</font></strong><br>添加/修改信息时，系统可以自动生成有关页面文件，请在这里选择自动生成时的方式。</td>"
    Response.Write "      <td>" & GetAutoCreateType(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>栏目列表文件的存放位置：</font></strong></td>"
    Response.Write "      <td>" & GetListFileType(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>目录结构方式：</font></strong></td>"
    Response.Write "      <td>" & GetStructureType(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>内容页文件的命名方式：</font></strong></td>"
    Response.Write "      <td>" & GetFileNameType(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>频道首页的扩展名：</font></strong></td>"
    Response.Write "      <td>" & arrFileExt_Index(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>栏目页、专题页的扩展名：</font></strong></td>"
    Response.Write "      <td>" & arrFileExt_List(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td width='200' class='tdbg5'><strong><font color=red>内容页的扩展名：</font></strong></td>"
    Response.Write "      <td>" & arrFileExt_Item(0) & "</td>"
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf
    If IsCustom_Content = True Then
        Call EditCustom_Content("Add", "", "Channel")
    End If
    Response.Write "</table>" & vbCrLf
    Response.Write "</td></tr></table>" & vbCrLf

    Response.Write "<table width='100%' border='0' align='center'>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td colspan='2' align='center' class='tdbg'><input name='Action' type='hidden' id='Action' value='SaveAdd'>"
    Response.Write "      <input  type='submit' name='Submit' value=' 添 加 '> &nbsp; <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_Channel.asp'"" style='cursor:hand;'></td>"
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>"
    Response.Write "</form>"

    Call ShowChekcFormJS
End Sub

Sub ShowChekcFormJS()
    Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
    Response.Write "function CheckForm(){" & vbCrLf
    Response.Write "  if(document.myform.ChannelName.value==''){" & vbCrLf
    Response.Write "    ShowTabs(0);" & vbCrLf
    Response.Write "    alert('请输入频道名称！');" & vbCrLf
    Response.Write "    document.myform.ChannelName.focus();" & vbCrLf
    Response.Write "    return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if(document.myform.ChannelType[1].checked==true){" & vbCrLf
    Response.Write "    if(document.myform.ChannelDir.value==''){" & vbCrLf
    Response.Write "      ShowTabs(0);" & vbCrLf
    Response.Write "      alert('请输入频道目录！');" & vbCrLf
    Response.Write "      document.myform.ChannelDir.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(document.myform.ChannelShortName.value==''){" & vbCrLf
    Response.Write "      ShowTabs(0);" & vbCrLf
    Response.Write "      alert('请输入项目名称！');" & vbCrLf
    Response.Write "      document.myform.ChannelShortName.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else{" & vbCrLf
    Response.Write "    if(document.myform.LinkUrl.value==''){" & vbCrLf
    Response.Write "      ShowTabs(0);" & vbCrLf
    Response.Write "      alert('请输入频道的链接地址！');" & vbCrLf
    Response.Write "      document.myform.LinkUrl.focus();" & vbCrLf
    Response.Write "      return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf

    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub

Sub Modify()
    Dim iChannelID, rsChannel
    iChannelID = Trim(Request("iChannelID"))
    If iChannelID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改频道ID</li>"
        Exit Sub
    Else
        iChannelID = PE_CLng(iChannelID)
    End If
    Set rsChannel = Conn.Execute("select * from PE_Channel where ChannelID=" & iChannelID)
    If rsChannel.BOF And rsChannel.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的频道！</li>"
        rsChannel.Close
        Set rsChannel = Nothing
        Exit Sub
    End If
    Response.Write "<script language='JavaScript' type='text/JavaScript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_Channel.asp'>频道管理</a>&nbsp;&gt;&gt;&nbsp;修改频道设置：<font color='red'>" & rsChannel("ChannelName") & "</font></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
    If rsChannel("ChannelType") <> 2 Then
        If rsChannel("ModuleType") <> 4 Then
            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
        End If
        '刘永涛，供求频道屏蔽
        If rsChannel("ModuleType") <> 6 And rsChannel("ModuleType") <> 4 And rsChannel("ModuleType") <> 7 And rsChannel("ModuleType") <> 8 Then
            Response.Write "    <td id='TabTitle' class='title5' onclick='ShowTabs(4)'>生成选项</td>" & vbCrLf
            If IsCustom_Content = True Then