📄 admin_photojs.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 4 页
字号:
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>每行显示" & ChannelShortName & "数：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='Cols' id='Cols'>"
    Response.Write "          <option value='1'>1</option>"
    Response.Write "          <option value='2'>2</option>"
    Response.Write "          <option value='3'>3</option>"
    Response.Write "          <option value='4' selected>4</option>"
    Response.Write "          <option value='5'>5</option>"
    Response.Write "          <option value='6'>6</option>"
    Response.Write "          <option value='7'>7</option>"
    Response.Write "          <option value='8'>8</option>"
    Response.Write "          <option value='9'>9</option>"
    Response.Write "          <option value='10'>10</option>"
    Response.Write "          <option value='11'>11</option>"
    Response.Write "          <option value='12'>12</option>"
    Response.Write "        </select>"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;超过指定列数就会换行"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>链接地址选项：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='UrlType' id='OpenType'>"
    Response.Write "          <option value='0' selected>使用相对路径</option>"
    Response.Write "          <option value='1'>使用包含完整网址的绝对路径</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveAddPic'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 添 加 '>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
End Sub

Sub ModifyPic()
    Dim ID, sqlJs, rsJs, JsConfig
    ID = PE_CLng(Trim(Request("ID")))
    If ID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数丢失！</li>"
        Exit Sub
    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
    JsConfig = Split(rsJs("Config") & "|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", "|")

    Response.Write "<form action='Admin_PhotoJS.asp' method='post' name='myform' id='myform'>"
    Response.Write "  <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>修改参数（图片列表方式）</strong></td>"
    Response.Write "    </tr>"

    Call JsBaseInif(rsJs("JsName"), rsJs("JsReadme"), rsJs("ContentType"), rsJs("JsFileName"))

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>所属栏目：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ClassID'><option value='0'>所有栏目</option>" & GetClass_Option(PE_CLng(JsConfig(0))) & "</select>"
    Response.Write "        <input type='checkbox' name='IncludeChild' " & RadioValue(PE_CLng(JsConfig(1)), 1) & ">包含子栏目&nbsp;&nbsp;&nbsp;&nbsp;<font color='red'><b>注意：</b></font>不能指定为外部栏目"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>所属专题：</strong></td>"
    Response.Write "      <td height='25' ><select name='SpecialID' id='SpecialID'><option value=''>不属于任何专题</option>" & GetSpecial_Option(PE_CLng(JsConfig(15))) & "</select></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "数目：</strong></td>"
    Response.Write "      <td height='25'><input name='PhotoNum' type='text' value='" & JsConfig(2) & "' size='5' maxlength='3'> <font color='#FF0000'>*</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "属性：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <input name='IsHot' type='checkbox' id='IsHot' " & RadioValue(PE_CLng(JsConfig(3)), 1) & ">热门" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <input name='IsElite' type='checkbox' id='IsElite' " & RadioValue(PE_CLng(JsConfig(4)), 1) & ">推荐" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        <font color='#FF0000'>如果都不选，将显示所有" & ChannelShortName & "</font>"
    Response.Write "      </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='DateNum' type='text' id='DateNum' value='" & JsConfig(5) & "' size='5' maxlength='3'> 天内更新的" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>&nbsp;&nbsp;如果为空或0，则显示所有天数的" & ChannelShortName & "</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'>"
    Response.Write "        <select name='OrderType' id='OrderType'>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 1) & ">" & ChannelShortName & "ID（降序）</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 2) & ">" & ChannelShortName & "ID（升序）</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 3) & ">更新时间（降序）</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 4) & ">更新时间（升序）</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 5) & ">点击次数（降序）</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(6)), 6) & ">点击次数（升序）</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>显示样式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <input name='ShowType' type='radio' " & RadioValue(PE_CLng(JsConfig(7)), 1) & ">图片+名称+内容简介：上下排列<br>"
    Response.Write "        <input name='ShowType' type='radio' " & RadioValue(PE_CLng(JsConfig(7)), 2) & ">（图片+名称：上下排列）+内容简介：左右排列<br>"
    Response.Write "        <input name='ShowType' type='radio' " & RadioValue(PE_CLng(JsConfig(7)), 3) & ">图片+（名称+内容简介：上下排列）：左右排列"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><b>首页图片设置：</b></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        宽度： <input name='ImgWidth' type='text' id='ImgWidth' value='" & JsConfig(8) & "' size='5' maxlength='3'> 像素&nbsp;&nbsp;&nbsp;&nbsp;"
    Response.Write "        高度： <input name='ImgHeight' type='text' id='ImgHeight' value='" & JsConfig(9) & "' size='5' maxlength='3'> 像素"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "名称字符数：</strong></td>"
    Response.Write "      <td height='25'><input name='TitleLen' type='text' id='TitleLen' value='" & JsConfig(10) & "' size='5' maxlength='3'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>若为0，则不显示名称；若为-1，则显示完整名称。字母算一个字符，汉字算两个字符。</font></td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>" & ChannelShortName & "简介字符数：</strong></td>"
    Response.Write "      <td height='25'><input name='ContentLen' type='text' id='ContentLen' value='" & JsConfig(11) & "' size='5' maxlength='3'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果大于0，则显示指定字数的" & ChannelShortName & "简介</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='ShowTips' type='checkbox' id='ShowTips' " & RadioValue(PE_CLng(JsConfig(12)), 1) & ">显示作者、更新时间、点击数等提示信息</td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>每行显示" & ChannelShortName & "数：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='Cols' id='Cols'>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 1) & ">1</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 2) & ">2</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 3) & ">3</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 4) & ">4</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 5) & ">5</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 6) & ">6</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 7) & ">7</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 8) & ">8</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 9) & ">9</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 10) & ">10</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 11) & ">11</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(13)), 12) & ">12</option>"
    Response.Write "        </select>"
    Response.Write "        &nbsp;&nbsp;&nbsp;&nbsp;超过指定列数就会换行"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right'><strong>链接地址选项：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='UrlType' id='OpenType'>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(14)), 0) & ">使用相对路径</option>"
    Response.Write "          <option " & OptionValue(PE_CLng(JsConfig(14)), 1) & ">使用包含完整网址的绝对路径</option>"
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='40' colspan='2' align='center'>"
    Response.Write "        <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "        <input name='ID' type='hidden' id='ID' value='" & ID & "'>"
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SaveModifyPic'>"
    Response.Write "        <input name='Submit' type='submit' id='Submit' value='保存修改结果'>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "</form>"
    rsJs.Close
    Set rsJs = Nothing
End Sub

Sub SaveJS_List()
    Dim ID, JsName, JsReadme, JsFileName, Config
    Dim ShowType, PhotoNum, ClassID, SpecialID, IncludeChild, IsHot, IsElite, DateNum, OrderType, TitleLen, ContentLen
    Dim ShowClassName, ShowAuthor, ShowDateType, ShowHits, ShowHotSign
    Dim ShowNewSign, ShowTips, OpenType, UrlType, ShowPropertyType
    Dim Author, Cols, CssNameA, CssName1, CssName2
    Dim rsJs, sqlJs, trs
    Dim ContentType
    If Action = "SaveAdd" Then
        ID = 0
    Else
        ID = PE_CLng(Trim(Request("ID")))
        If ID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>参数丢失！</li>"
            Exit Sub
        End If
    End If
    JsName = Trim(Request("JsName"))
    JsReadme = Trim(Request("JsReadme"))
    JsFileName = Trim(Request("JsFileName"))
    ShowType = PE_CLng(Trim(Request("ShowType")))
    PhotoNum = PE_CLng(Trim(Request("PhotoNum")))
    ClassID = Trim(Request("ClassID"))
    IncludeChild = PE_CLng(Trim(Request("IncludeChild")))
    SpecialID = PE_CLng(Trim(Request("SpecialID")))
    IsHot = PE_CLng(Trim(Request("IsHot")))
    IsElite = PE_CLng(Trim(Request("IsElite")))
    DateNum = PE_CLng(Trim(Request("DateNum")))
    OrderType = PE_CLng(Trim(Request("OrderType")))
    TitleLen = PE_CLng(Trim(Request("TitleLen")))
    ContentLen = PE_CLng(Trim(Request("ContentLen")))
💿 文件大小 7095 K
👤 上传用户 foreverlovely
📂 所属分类家庭/个人应用
🏷️ 相关标签

#网站 #比较
⌨️ 快捷键说明

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