admin_commoncode_js.asp

个人网站比较简短

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>内容代码格式：</strong></td>"
    Response.Write "      <td height='25'> <Input TYPE='radio' Name='ContentType' value='0' " & RadioValue(ContentType, 0) & " onClick=""htmltype.style.display='none';jstype.style.display=''""> JS <Input TYPE='radio' Name='ContentType' value='1' " & RadioValue(ContentType, 1) & "  onClick=""htmltype.style.display='';jstype.style.display='none'""> Html <FONT color='blue'>注意：频道选择生成Shtml方式时可选用此项，可以在扩展名为.shtml的文件中使用<br>&lt;!--#include file=""aaaa.html""--&gt;这样的指令包含其他文件，这样对搜索引擎比使用JS代码调用会更友好。 </font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>文件名：</strong></td>"
    Response.Write "      <td height='25'><input name='JsFileName' type='text' id='JsFileName'  value='" & JsFileName & "' size='49' maxlength='50'> <font color='#FF0000'>*</font>"
    Response.Write "       <Span Id='jstype' style=""display:"
    If ContentType = 0 Then
        Response.Write "''"
    Else
        Response.Write "'none'"
    End If
    Response.Write """>"
    Response.Write "<font color='red'>以.js为扩展名</font></Span>"
    Response.Write "<Span Id='htmltype' style=""display:"
    If ContentType = 1 Then
        Response.Write "''"
    Else
        Response.Write "'none'"
    End If
    Response.Write """><font color='red'>以.html为扩展名</font></Span></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg2'>"
    Response.Write "      <td height='25' colspan='2' align='center' ><strong>参数设置</strong></td>"
    Response.Write "    </tr>"
End Sub

Sub PreviewJS()
    Dim ID, sqlJs, rsJs
    ID = Trim(Request("ID"))
    If ID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数丢失！</li>"
        Exit Sub
    Else
        ID = PE_CLng(ID)
    End If
    sqlJs = "select * from PE_JsFile where ID=" & ID
    Set rsJs = Conn.Execute(sqlJs)
    If rsJs.BOF And rsJs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的JS文件！</li>"
        rsJs.Close
        Set rsJs = Nothing
        Exit Sub
    End If

    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' colspan='2' align='center'><strong>预览JS文件效果----" & rsJs("JsName") & "</strong></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='center'>"

    If rsJs("ContentType") = 1 Then
        Response.Write "<iframe marginwidth=0 marginheight=0 frameborder=0 name='libin' width='700' height='400' src=" & InstallDir & ChannelDir & "/JS/" & rsJs("JsFileName") & "></iframe>"
    Else
        Response.Write "<script language='javascript' src='" & InstallDir & ChannelDir & "/JS/" & rsJs("JsFileName") & "'></script>"
    End If

    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='center'>"
    Response.Write "        <a href='javascript:this.location.reload();'>刷新本页</a>&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <a href='Admin_ArticleJS.asp?ChannelID=" & ChannelID & "'>返回上页</a>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"

    rsJs.Close
    Set rsJs = Nothing
End Sub

Sub DelJS()
    Dim ID, sqlJs, rsJs, tJsFileName
    ID = Trim(Request("ID"))
    If ID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数丢失！</li>"
        Exit Sub
    Else
        ID = PE_CLng(ID)
    End If
    sqlJs = "select * from PE_JsFile where ID=" & ID
    Set rsJs = Server.CreateObject("ADODB.Recordset")
    rsJs.Open sqlJs, Conn, 1, 3
    If rsJs.BOF And rsJs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的JS文件！</li>"
        rsJs.Close
        Set rsJs = Nothing
        Exit Sub
    End If
    If ObjInstalled_FSO = True Then
        tJsFileName = Server.MapPath(InstallDir & ChannelDir & "/JS/" & rsJs("JsFileName"))
        If fso.FileExists(tJsFileName) Then
            fso.DeleteFile tJsFileName
        End If
    End If
    rsJs.Delete
    rsJs.Update
    rsJs.Close
    Set rsJs = Nothing
    Call CloseConn
    Response.Redirect "Admin_" & ModuleName & "JS.asp?ChannelID=" & ChannelID
End Sub

Sub CreateJS(ID)
    Response.Write "<br><iframe id='CreateJS' width='100%' height='100' frameborder='0' src='Admin_CreateJS.asp?ChannelID=" & ChannelID & "&Action=CreateJs&ID=" & ID & "'></iframe>"
End Sub

Function GetClass_Option(CurrentID)
    Dim rsClass, sqlClass, strTemp, tmpDepth, i
    Dim arrShowLine(20)
    For i = 0 To UBound(arrShowLine)
        arrShowLine(i) = False
    Next
    sqlClass = "Select ClassID,ClassName,ClassType,Depth,NextID from PE_Class where ChannelID=" & ChannelID & " order by RootID,OrderID"
    Set rsClass = Conn.Execute(sqlClass)
    If rsClass.BOF And rsClass.EOF Then
        strTemp = "<option value=''>请先添加栏目</option>"
    Else
        strTemp = ""
        Do While Not rsClass.EOF
            tmpDepth = rsClass(3)
            If rsClass(4) > 0 Then
                arrShowLine(tmpDepth) = True
            Else
                arrShowLine(tmpDepth) = False
            End If
            strTemp = strTemp & "<option value='" & rsClass(0) & "'"
            If CurrentID > 0 And rsClass(0) = CurrentID Then
                 strTemp = strTemp & " selected"
            End If
            strTemp = strTemp & ">"
            
            If tmpDepth > 0 Then
                For i = 1 To tmpDepth
                    strTemp = strTemp & "&nbsp;&nbsp;"
                    If i = tmpDepth Then
                        If rsClass(4) > 0 Then
                            strTemp = strTemp & "├&nbsp;"
                        Else
                            strTemp = strTemp & "└&nbsp;"
                        End If
                    Else
                        If arrShowLine(i) = True Then
                            strTemp = strTemp & "│"
                        Else
                            strTemp = strTemp & "&nbsp;"
                        End If
                    End If
                Next
            End If
            strTemp = strTemp & rsClass(1)
            If rsClass(2) = 2 Then
                strTemp = strTemp & "(外)"
            End If
            strTemp = strTemp & "</option>"
            rsClass.MoveNext
        Loop
    End If
    rsClass.Close
    Set rsClass = Nothing

    GetClass_Option = strTemp
End Function

%>