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

📄 powereasy.createjs.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    arrConfig = arrConfig & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"

    JsConfig = Split(arrConfig, "|")
    ClassID = PE_CLng(JsConfig(0))
    IncludeChild = CBool(JsConfig(1))
    PhotoNum = PE_CLng(JsConfig(2))
    IsHot = CBool(JsConfig(3))
    IsElite = CBool(JsConfig(4))
    DateNum = PE_CLng(JsConfig(5))
    OrderType = PE_CLng(JsConfig(6))
    ShowType = PE_CLng(JsConfig(7))
    ImgWidth = PE_CLng(JsConfig(8))
    ImgHeight = PE_CLng(JsConfig(9))
    TitleLen = PE_CLng(JsConfig(10))
    ContentLen = PE_CLng(JsConfig(11))
    ShowTips = CBool(JsConfig(12))
    Cols = PE_CLng1(JsConfig(13))
    UrlType = PE_CLng(JsConfig(14))
    SpecialID = PE_CLng(JsConfig(15))
    
    Dim PE_Photo
    Set PE_Photo = New Photo
    Call PE_Photo.Init
    strJS = PE_Photo.GetPicPhoto(ChannelID, ClassID, IncludeChild, SpecialID, PhotoNum, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, ContentLen, ShowTips, Cols, UrlType)
    Set PE_Photo = Nothing

    Call SaveJsFile(ContentType, InstallDir & ChannelDir, JsFileName, strJS, ComeUrl)
    
End Sub

Sub CreateJS_SoftList(JsFileName, ByVal arrConfig, ByVal ContentType)
    Dim JsConfig, hf, strJS
    Dim ClassID, IncludeChild, SpecialID, SoftNum, IsHot, IsElite, DateNum, OrderType, ShowType, TitleLen, ContentLen
    Dim ShowClassName, ShowAuthor, ShowDateType, ShowHits, ShowHotSign
    Dim ShowNewSign, ShowTips, OpenType, UrlType, ShowPropertyType
    Dim InputerName, Cols, CssNameA, CssName1, CssName2
    
    arrConfig = arrConfig & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
    JsConfig = Split(arrConfig, "|")
    ShowType = PE_CLng(JsConfig(0))
    SoftNum = PE_CLng(JsConfig(1))
    ClassID = PE_CLng(JsConfig(2))
    IncludeChild = CBool(JsConfig(3))
    IsHot = CBool(JsConfig(4))
    IsElite = CBool(JsConfig(5))
    DateNum = PE_CLng(JsConfig(6))
    OrderType = PE_CLng(JsConfig(7))
    TitleLen = PE_CLng(JsConfig(8))
    ContentLen = PE_CLng(JsConfig(9))
    ShowClassName = CBool(JsConfig(10))
    ShowAuthor = CBool(JsConfig(11))
    ShowDateType = PE_CLng(JsConfig(12))
    ShowHits = CBool(JsConfig(13))
    ShowHotSign = CBool(JsConfig(14))
    ShowNewSign = CBool(JsConfig(15))
    ShowTips = CBool(JsConfig(16))
    OpenType = PE_CLng(JsConfig(17))
    UrlType = PE_CLng(JsConfig(18))
    ShowPropertyType = PE_CLng(JsConfig(19))
    SpecialID = PE_CLng(JsConfig(20))
    InputerName = ZeroToEmpty(JsConfig(21))
    Cols = PE_CLng1(JsConfig(22))
    CssNameA = ZeroToEmpty(JsConfig(23))
    CssName1 = ZeroToEmpty(JsConfig(24))
    CssName2 = ZeroToEmpty(JsConfig(25))
    Dim PE_Soft
    Set PE_Soft = New Soft
    Call PE_Soft.Init
    strJS = PE_Soft.GetSoftList(ChannelID, ClassID, IncludeChild, SpecialID, UrlType, SoftNum, IsHot, IsElite, InputerName, DateNum, OrderType, ShowType, TitleLen, ContentLen, ShowClassName, ShowPropertyType, ShowAuthor, ShowDateType, ShowHits, ShowHotSign, ShowNewSign, ShowTips, False, OpenType, Cols, CssNameA, CssName1, CssName2)
    Set PE_Soft = Nothing

    Call SaveJsFile(ContentType, InstallDir & ChannelDir, JsFileName, strJS, ComeUrl)
    
End Sub

Sub CreateJS_PicSoft(JsFileName, ByVal arrConfig, ByVal ContentType)
    Dim JsConfig, hf, strJS
    Dim ClassID, IncludeChild, SpecialID, SoftNum, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, ContentLen, ShowTips, Cols, UrlType

    arrConfig = arrConfig & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"

    JsConfig = Split(arrConfig, "|")
    ClassID = PE_CLng(JsConfig(0))
    IncludeChild = CBool(JsConfig(1))
    SoftNum = PE_CLng(JsConfig(2))
    IsHot = CBool(JsConfig(3))
    IsElite = CBool(JsConfig(4))
    DateNum = PE_CLng(JsConfig(5))
    OrderType = PE_CLng(JsConfig(6))
    ShowType = PE_CLng(JsConfig(7))
    ImgWidth = PE_CLng(JsConfig(8))
    ImgHeight = PE_CLng(JsConfig(9))
    TitleLen = PE_CLng(JsConfig(10))
    ContentLen = PE_CLng(JsConfig(11))
    ShowTips = CBool(JsConfig(12))
    Cols = PE_CLng1(JsConfig(13))
    UrlType = PE_CLng(JsConfig(14))
    SpecialID = PE_CLng(JsConfig(15))
    
    Dim PE_Soft
    Set PE_Soft = New Soft
    Call PE_Soft.Init
    strJS = PE_Soft.GetPicSoft(ChannelID, ClassID, IncludeChild, SpecialID, SoftNum, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, ContentLen, ShowTips, Cols, UrlType)
    Set PE_Soft = Nothing

    Call SaveJsFile(ContentType, InstallDir & ChannelDir, JsFileName, strJS, ComeUrl)
    
End Sub

Sub CreateJS_ProductList(JsFileName, ByVal arrConfig, ByVal ContentType)
    Dim JsConfig, hf, strJS
    Dim ClassID, IncludeChild, SpecialID, ProductNum, ProductType, IsHot, IsElite, DateNum, OrderType, ShowType
    Dim TitleLen, ContentLen, ShowClassName, ShowPropertyType, ShowDateType, ShowHotSign, ShowNewSign, UsePage, OpenType, UrlType
    
    Dim IntervalLines, Cols, ShowTableTitle, TableTitleStr, ShowProductModel, ShowProductStandard
    Dim ShowUnit, ShowStocksType, ShowWeight, ShowPrice_Market, ShowPrice_Original, ShowPrice
    Dim ShowPrice_Member, ShowDiscount, ShowButtonType, ButtonStyle
    Dim CssNameTable, CssNameTitle, CssNameA, CssName1, CssName2

    arrConfig = arrConfig & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
    JsConfig = Split(arrConfig, "|")
    ClassID = PE_CLng(JsConfig(0))
    IncludeChild = CBool(JsConfig(1))
    SpecialID = PE_CLng(JsConfig(2))
    ProductNum = PE_CLng(JsConfig(3))
    ProductType = PE_CLng(JsConfig(4))
    IsHot = CBool(JsConfig(5))
    IsElite = CBool(JsConfig(6))
    DateNum = PE_CLng(JsConfig(7))
    OrderType = PE_CLng(JsConfig(8))
    ShowType = PE_CLng(JsConfig(9))
    TitleLen = PE_CLng(JsConfig(10))
    ContentLen = PE_CLng(JsConfig(11))
    ShowClassName = CBool(JsConfig(12))
    ShowPropertyType = PE_CLng(JsConfig(13))
    ShowDateType = PE_CLng(JsConfig(14))
    ShowHotSign = CBool(JsConfig(15))
    ShowNewSign = CBool(JsConfig(16))
    UsePage = CBool(JsConfig(17))
    OpenType = PE_CLng(JsConfig(18))
    UrlType = PE_CLng(JsConfig(19))

    IntervalLines = PE_CLng(JsConfig(20))
    Cols = PE_CLng1(JsConfig(21))
    ShowTableTitle = CBool(JsConfig(22))
    TableTitleStr = Trim(Replace(JsConfig(23), "{$}", "|"))
    ShowProductModel = CBool(JsConfig(24))
    ShowProductStandard = CBool(JsConfig(25))
    ShowUnit = CBool(JsConfig(26))
    ShowStocksType = CBool(JsConfig(27))
    ShowWeight = CBool(JsConfig(28))
    ShowPrice_Market = CBool(JsConfig(29))
    ShowPrice_Original = CBool(JsConfig(30))
    ShowPrice = CBool(JsConfig(31))
    ShowPrice_Member = CBool(JsConfig(32))
    ShowDiscount = CBool(JsConfig(33))

    ShowButtonType = PE_CLng(JsConfig(34))
    ButtonStyle = PE_CLng(JsConfig(35))
    CssNameTable = ZeroToEmpty(JsConfig(36))
    CssNameTitle = ZeroToEmpty(JsConfig(37))
    CssNameA = ZeroToEmpty(JsConfig(38))
    CssName1 = ZeroToEmpty(JsConfig(39))
    CssName2 = ZeroToEmpty(JsConfig(40))
    
    Dim PE_Product

    Set PE_Product = New Product
    Call PE_Product.Init

    strJS = PE_Product.GetProductList(ClassID, IncludeChild, SpecialID, ProductNum, ProductType, IsHot, IsElite, DateNum, OrderType, ShowType, TitleLen, ContentLen, ShowClassName, ShowPropertyType, ShowDateType, ShowHotSign, ShowNewSign, UsePage, OpenType, UrlType, IntervalLines, Cols, ShowTableTitle, TableTitleStr, ShowProductModel, ShowProductStandard, ShowUnit, ShowStocksType, ShowWeight, ShowPrice_Market, ShowPrice_Original, ShowPrice, ShowPrice_Member, ShowDiscount, ShowButtonType, ButtonStyle, CssNameTable, CssNameTitle, CssNameA, CssName1, CssName2)
    Set PE_Product = Nothing

    Call SaveJsFile(ContentType, InstallDir & ChannelDir, JsFileName, strJS, ComeUrl)
    
End Sub

Sub CreateJS_PicProduct(JsFileName, ByVal arrConfig, ByVal ContentType)
    Dim JsConfig, hf, strJS
    Dim ClassID, IncludeChild, SpecialID, ProductNum, ProductType, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, Cols, UrlType
    
    arrConfig = arrConfig & "|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0"
    JsConfig = Split(arrConfig, "|")
    ClassID = PE_CLng(JsConfig(0))
    IncludeChild = CBool(JsConfig(1))
    SpecialID = PE_CLng(JsConfig(2))
    ProductNum = PE_CLng(JsConfig(3))
    ProductType = PE_CLng(JsConfig(4))
    IsHot = CBool(JsConfig(5))
    IsElite = CBool(JsConfig(6))
    DateNum = PE_CLng(JsConfig(7))
    OrderType = PE_CLng(JsConfig(8))
    ShowType = PE_CLng(JsConfig(9))
    ImgWidth = PE_CLng(JsConfig(10))
    ImgHeight = PE_CLng(JsConfig(11))
    TitleLen = PE_CLng(JsConfig(12))
    Cols = PE_CLng1(JsConfig(13))
    UrlType = PE_CLng(JsConfig(14))

    Dim PE_Product
    Set PE_Product = New Product
    Call PE_Product.Init
    strJS = PE_Product.GetPicProduct(ClassID, IncludeChild, SpecialID, ProductNum, ProductType, IsHot, IsElite, DateNum, OrderType, ShowType, ImgWidth, ImgHeight, TitleLen, Cols, UrlType, False, False, False, 0, 1)
    Set PE_Product = Nothing
    
    Call SaveJsFile(ContentType, InstallDir & ChannelDir, JsFileName, strJS, ComeUrl)
    
End Sub


'=================================================
'过程名：SaveJsFile
'作  用：保存JS文件
'=================================================
Sub SaveJsFile(ByVal ContentType, ByVal SaveFilePath, ByVal JsFileName, ByVal strJS, ByVal ComeUrl)
    'On Error Resume Next
    If PE_CLng(ContentType) = 0 Then
        strJS = Replace(Replace(strJS, vbCrLf, "\n"), """", "\""")
        strJS = "document.write(" & Chr(34) & strJS & Chr(34) & ");"
    End If
    If CreateMultiFolder(SaveFilePath & "/js") Then
        Call WriteToFile(SaveFilePath & "/js/" & JsFileName, strJS)
    End If
End Sub

%>
12

⌨️ 快捷键说明

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