editor_label.asp

来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 1,169 行 · 第 1/5 页

    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowDateType.value;" & vbCrLf
    Response.Write "    if (document.myform.ShowPositionID.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowPositionID.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowPositionName.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowPositionName.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowWorkPlaceName.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowWorkPlaceName.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowSubCompanyName.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowSubCompanyName.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowPositionNum.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowPositionNum.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowPositionStatus.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowPositionStatus.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowValidDate.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowValidDate.value;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""0"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.UsePage.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.OpenType.value;" & vbCrLf
    Response.Write "    break;" & vbCrLf
End If
Response.Write "    default:" & vbCrLf
Response.Write "        alert(""错误参数调用！"");" & vbCrLf
Response.Write "        break;" & vbCrLf
Response.Write "   }" & vbCrLf
If editLabel = "" And InsertTemplate = 0 Then
    Response.Write "   strJS+="")}' >"";" & vbCrLf
Else
    Response.Write "   strJS+="")}"";" & vbCrLf
End If
Response.Write "   window.returnValue = strJS;" & vbCrLf
Response.Write "   window.close();" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf

%>
<script Language="JavaScript">
function NClassIDChild(){
    if (document.myform.NClassChild.checked==true){
        document.myform.ClassID.size=2;
        document.myform.ClassID.style.height=250;
        document.myform.ClassID.style.width=400;
        document.myform.ClassID.multiple=true;
        for(var i=0;i<document.myform.ClassID.length;i++){
            if (document.myform.ClassID.options[i].value=="rsClass_arrChildID"||document.myform.ClassID.options[i].value=="ClassID"||document.myform.ClassID.options[i].value=="arrChildID"||document.myform.ClassID.options[i].value=="0"){
                document.myform.ClassID.options[i].style.background="red";
            }
        }
    }else{
        document.myform.ClassID.size=1;
        document.myform.ClassID.style.width=200;
        document.myform.ClassID.multiple=false;
        for(var i=0;i<document.myform.ClassID.length;i++){
            if (document.myform.ClassID.options[i].value=="rsClass_arrChildID"||document.myform.ClassID.options[i].value=="ClassID"||document.myform.ClassID.options[i].value=="arrChildID"||document.myform.ClassID.options[i].value=="0"){
                document.myform.ClassID.options[i].style.background="";
            }
        }
    }
}
function change_item(element){
    if(element.selectedIndex!=-1)
    var selectednumber = element.options[element.selectedIndex].value;

    if(selectednumber==1){
        objFiles.style.display="";
        <%
        If ModuleType = 5 Then
        %>
            document.myform.common.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_common.gif"
            document.myform.Elite.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_Elite.gif"
            document.myform.OnTop.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_OnTop.gif"
        <%
        Else
        %>
            document.myform.common.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_common.gif"
            document.myform.Elite.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_Elite.gif"
            document.myform.OnTop.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_OnTop.gif"
        <%
        End If
        %>
    }
    else if (selectednumber==0)
    {
        objFiles.style.display="none";
    }
    else if (selectednumber==2)
    {
        objFiles.style.display="none";
    }
    else if (selectednumber>=3)
    {
        selectednumber = selectednumber - 1
        objFiles.style.display="";
        <%
        If ModuleType = 5 Then
        %>
            document.myform.common.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_common" + selectednumber + ".gif"
            document.myform.Elite.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_Elite" + selectednumber + ".gif"
            document.myform.OnTop.src = "<%=InstallDir%>Shop/images/<%=imageproperty%>_OnTop" + selectednumber + ".gif"
        <%
        Else
        %>
            document.myform.common.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_common" + selectednumber + ".gif"
            document.myform.Elite.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_Elite" + selectednumber + ".gif"
            document.myform.OnTop.src = "<%=InstallDir & imageproperty%>/images/<%=imageproperty%>_OnTop" + selectednumber + ".gif"
        <%
        End If
        %>
    }
}
</script>

<%
Response.Write "</body>"
Response.Write "</html>"
Call CloseConn

Sub GetList()

    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right' class='tdbg5'><strong>显示样式：</strong></td>"
    Response.Write "      <td height='25'>"
    Response.Write "        <select name='ShowType' id='ShowType'>"
    Response.Write "           <option value='1' "
    If Trim(ShowType) = "1" Then Response.Write "selected"
    Response.Write ">普通列表</option>"
    Response.Write "           <option value='2' "
    If Trim(ShowType) = "2" Then Response.Write "selected"
    Response.Write ">表格式</option>"
    Response.Write "           <option value='3' "
    If Trim(ShowType) = "3" Then Response.Write "selected"
    Response.Write ">各项独立式</option>"
    If ModuleType = 1 Then
        Response.Write "           <option value='4' "
        If Trim(ShowType) = "4" Then Response.Write "selected"
        Response.Write ">智能多列式</option>"
        Response.Write "           <option value='5' "
        If Trim(ShowType) = "5" Then Response.Write "selected"
        Response.Write ">输出DIV格式</option>"
        Response.Write "           <option value='6' "
        If Trim(ShowType) = "6" Then Response.Write "selected"
        Response.Write ">输出RSS格式</option>"
    Else
        Response.Write "           <option value='4' "
        If Trim(ShowType) = "4" Then Response.Write "selected"
        Response.Write ">输出DIV格式</option>"
        Response.Write "           <option value='5' "
        If Trim(ShowType) = "5" Then Response.Write "selected"
        Response.Write ">输出RSS格式</option>"
    End If
    Response.Write "        </select>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "数目：</strong></td>"
    Response.Write "      <td height='25'><input name='Num' type='text' value='"
    If Trim(Num) = "" Then
        Response.Write "10"
    Else
        Response.Write Num
    End If
    Response.Write "' size='5' maxlength='3'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果为0，将显示所有" & ChannelShortName & "。</font></td>"
    Response.Write "    </tr>"
    If ModuleType = 5 Then
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right' class='tdbg5'><strong> 产品类型：</strong></td>"
    Response.Write "      <td height='25'><select name='ProductType' id='ProductType'>"
    Response.Write "        <option value='1'"
    If Trim(ProductType) = "1" Then Response.Write "selected"
    Response.Write ">正常销售商品</option>"
    Response.Write "        <option value='2'"
    If Trim(ProductType) = "2" Then Response.Write "selected"
    Response.Write ">涨价商品</option>"
    Response.Write "        <option value='3'"
    If Trim(ProductType) = "3" Then Response.Write "selected"
    Response.Write ">特价商品</option>"
    Response.Write "        <option value='4'"
    If Trim(ProductType) = "4" Then Response.Write "selected"
    Response.Write ">促销礼品</option>"
    Response.Write "        <option value='5'"
    If Trim(ProductType) = "5" Then Response.Write "selected"
    Response.Write ">正常销售和涨价商品</option>"
    Response.Write "        <option value='6'"
    If Trim(ProductType) = "6" Then Response.Write "selected"
    Response.Write ">降价商品</option>"
    Response.Write "        <option value='0'"
    If Trim(ProductType) = "0" Then Response.Write "selected"
    Response.Write ">所有商品</option>"
    Response.Write "        </select> </td>"
    Response.Write "    </tr>"
    End If
    Response.Write "    <tr class='tdbg'>"
    Response.Write "      <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "属性：</strong></td>"
    Response.Write "      <td height='25'><input name='IsHot' type='checkbox' id='IsHot' value='1'"
    If LCase(Trim(IsHot)) = "true" Then Response.Write "checked"
    Response.Write ">"
    Response.Write "        热门" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<input name='IsElite' type='checkbox' id='IsElite' value='1'"
    If LCase(Trim(IsElite)) = "true" Then Response.Write "checked"
    Response.Write ">"
    Response.Write "        推荐" & ChannelShortName & "&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果都不选，将显示所有" & ChannelShortName & "。</font></td>"
    Response.Write "    </tr>"
    If ModuleType <> 5 Then
        Response.Write "    <tr class='tdbg'>"
        Response.Write "      <td height='25' align='right' class='tdbg5'><strong>作者姓名：</strong></td>"
        Response.Write "      <td height='25'><input name='AuthorName' type='text' value='"
        If Trim(AuthorName) = """" Then
            Response.Write ""
        Else
            Response.Write AuthorName
        End If
        Response.Write "'  size='10' maxlength='10'>&nbsp;&nbsp;&nbsp;&nbsp;<font color='#FF0000'>如果不为空，则只显示指定作者的" & ChannelShortName & "，用于个人文集。</font></td>"
        Response.Write "    </tr>"
    End If