editor_label.asp

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

ASP
1,169 行
字号
12345
If ModuleType <> 5 Then
    Response.Write "    strJS+="",0""" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.Num.value;" & vbCrLf
If ModuleType = 5 Then
    Response.Write "    strJS+="",""+document.myform.ProductType.value;" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.IsHot.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.IsElite.checked;" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+""\""""+document.myform.AuthorName.value+""\"""";" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.DateNum.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.OrderType.value;" & vbCrLf

Response.Write "    strJS+="",""+document.myform.ShowType.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ContentLen.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ShowClassName.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ShowPropertyType.value;" & vbCrLf
If ModuleType = 1 Then
    Response.Write "    strJS+="",""+document.myform.ShowIncludePic.checked; //A" & vbCrLf
End If
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+document.myform.ShowAuthor.checked;" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.ShowDateType.value;" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+document.myform.ShowHits.checked;" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.ShowHotSign.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ShowNewSign.checked;" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+document.myform.ShowTips.checked;" & vbCrLf
End If
If ModuleType = 1 Then
    Response.Write "    strJS+="",""+document.myform.ShowCommentLink.checked; //A" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.UsePage.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.OpenType.value;" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+document.myform.Cols.value;            //A" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssNameA.value;        //A" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssName1.value;        //A" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssName2.value;        //A" & vbCrLf
End If
If ModuleType = 5 Then
    Response.Write "    strJS+="",""+document.myform.IntervalLines.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.Cols.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowTableTitle.checked;" & vbCrLf
    Response.Write "    var TableTitleStr=""""" & vbCrLf
    Response.Write "    for(var i=1;i<14;i++){" & vbCrLf
    Response.Write "        if (i==13){" & vbCrLf
    Response.Write "            TableTitleStr+=eval(""document.myform.TableTitleStr""+i+"".value"")" & vbCrLf
    Response.Write "        }else{" & vbCrLf
    Response.Write "            TableTitleStr+=eval(""document.myform.TableTitleStr""+i+"".value"")+""|""" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    strJS+="",""+TableTitleStr" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowProductModel.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowProductStandard.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowUnit.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowStocksType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowWeight.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowPrice_Market.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowPrice_Original.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowPrice.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowPrice_Member.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowDiscount.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowButtonType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ButtonStyle.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssNameTable.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssNameTitle.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssNameA.value;        //A" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssName1.value;        //A" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.CssName2.value;        //A" & vbCrLf
End If
Response.Write "    break;" & vbCrLf

Response.Write "   case ""GetPic"":" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+=document.myform.ChannelID.value;" & vbCrLf
    Response.Write "    strJS+="",""" & vbCrLf
End If
Call CellNclass
Response.Write "    strJS+="",""+document.myform.IncludeChild.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.SpecialID.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.Num.value;" & vbCrLf
If ModuleType = 5 Then
    Response.Write "    strJS+="",""+document.myform.ProductType.value;" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.IsHot.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.IsElite.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.DateNum.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.OrderType.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ShowType.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ImgWidth.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ImgHeight.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+="",""+document.myform.ContentLen.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowTips.checked;" & vbCrLf
End If
Response.Write "    strJS+="",""+document.myform.Cols.value;" & vbCrLf
If ModuleType = 5 Then
    Response.Write "    strJS+="",""+document.myform.ShowPriceType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowDiscount.checked;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowButtonType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ButtonStyle.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.OpenType.value;" & vbCrLf
End If
Response.Write "    break;" & vbCrLf

Response.Write "   case ""GetSlide"":" & vbCrLf
If ModuleType <> 5 Then
    Response.Write "    strJS+=document.myform.ChannelID.value;" & vbCrLf
    Response.Write "    strJS+="",""" & vbCrLf
End If
Call CellNclass
Response.Write "    strJS+="",""+document.myform.IncludeChild.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.SpecialID.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.Num.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.IsHot.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.IsElite.checked;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.DateNum.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.OrderType.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ImgWidth.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.ImgHeight.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.iTimeOut.value;" & vbCrLf
Response.Write "    strJS+="",""+document.myform.effectID.value;" & vbCrLf
'If ModuleType = 5 Then
'    Response.Write "    strJS+="",""+document.myform.OpenType.value;" & vbCrLf
'End If
Response.Write "    break;" & vbCrLf

If ModuleType = 8 Then
    Response.Write "  case ""GetPositionList"":" & vbCrLf
    Response.Write "    strJS+=document.myform.PositionNum.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.IsUrgent.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.DateNum.value;   " & vbCrLf
    Response.Write "    strJS+="",""+document.myform.OrderType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.ShowType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.WorkPlaceNameLen.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.SubCompanyNameLen.value;" & vbCrLf
    Response.Write "    if (document.myform.PShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.PShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.WShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.WShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.SShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.SShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    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 "    if (document.myform.ShowUrgentSign.checked ==false||document.myform.ShowType.value==2||document.myform.ShowType.value==3){" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowUrgentSign.value;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowNewSign.checked ==false||document.myform.ShowType.value==1||document.myform.ShowType.value==3){" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.ShowNewSign.value;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.ShowType.value==1||document.myform.ShowType.value==2){" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.UsePage.value;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.OpenType.value;" & vbCrLf
    Response.Write "    break;" & vbCrLf

    Response.Write "  case ""GetSearchResult"":" & vbCrLf
    Response.Write "    strJS+=document.myform.ShowNum.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.OrderType.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.TitleLen.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.WorkPlaceNameLen.value;" & vbCrLf
    Response.Write "    strJS+="",""+document.myform.SubCompanyNameLen.value;" & vbCrLf
    Response.Write "    if (document.myform.PShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.PShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.WShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.WShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
    Response.Write "        strJS+="",""+""false"";" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if (document.myform.SShowPoints.checked ==true){" & vbCrLf
    Response.Write "        strJS+="",""+document.myform.SShowPoints.checked;" & vbCrLf
    Response.Write "    }else{" & vbCrLf
12345

editor_label.asp - 源码说明

本页面展示了「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」中的 editor_label.asp 源码文件，采用 ASP 编程语言编写，共 1,169 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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