editor_label.asp
来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 1,169 行 · 第 1/5 页
ASP
1,169 行
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>" & ChannelShortName & "属性图片：</strong></td>"
Response.Write " <td height='25'>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%' valign='top'>"
Response.Write " <tr>"
Response.Write " <td width='100'>"
Response.Write " <select name='ShowPropertyType' id='ShowPropertyType' onChange=""javascript:change_item(this)"">"
Response.Write " <option value='0' "
If Trim(ShowPropertyType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='2' "
If Trim(ShowPropertyType) = "2" Then Response.Write "selected"
Response.Write ">符号</option>"
Response.Write " <option value='1' "
If Trim(ShowPropertyType) = "1" Then Response.Write "selected"
Response.Write ">小图片（样式 1）</option>"
Response.Write " <option value='3' "
If Trim(ShowPropertyType) = "3" Then Response.Write "selected"
Response.Write ">小图片（样式 2）</option>"
Response.Write " <option value='4' "
If Trim(ShowPropertyType) = "4" Then Response.Write "selected"
Response.Write ">小图片（样式 3）</option>"
Response.Write " <option value='5' "
If Trim(ShowPropertyType) = "5" Then Response.Write "selected"
Response.Write ">小图片（样式 4）</option>"
Response.Write " <option value='6' "
If Trim(ShowPropertyType) = "6" Then Response.Write "selected"
Response.Write ">小图片（样式 5）</option>"
If ModuleType = 1 Then
Response.Write " <option value='7' "
If Trim(ShowPropertyType) = "7" Then Response.Write "selected"
Response.Write ">小图片（样式 6）</option>"
Response.Write " <option value='8' "
If Trim(ShowPropertyType) = "8" Then Response.Write "selected"
Response.Write ">小图片（样式 7）</option>"
Response.Write " <option value='9' "
If Trim(ShowPropertyType) = "9" Then Response.Write "selected"
Response.Write ">小图片（样式 8）</option>"
Response.Write " <option value='10' "
If Trim(ShowPropertyType) = "10" Then Response.Write "selected"
Response.Write ">小图片（样式 9）</option>"
End If
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td id=objFiles style='display:none'>"
Response.Write " 普通图片 <IMG id=common SRC='" & InstallDir & "images/" & imageproperty & "_common.gif' BORDER='0' ALT='普通图片'> 推荐图片 <IMG SRC='" & InstallDir & "images/" & imageproperty & "_Elite.gif' id=Elite BORDER='0' ALT='推荐图片'> 固定图片 <IMG SRC='" & InstallDir & "images/" & imageproperty & "_OnTop.gif' id=OnTop BORDER='0' ALT='固定图片'>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>日期范围：</strong></td>"
Response.Write " <td height='25'>只显示最近"
Response.Write " <input name='DateNum' type='text' id='DateNum' value="
If Trim(DateNum) = "" Then
Response.Write "0"
Else
Response.Write DateNum
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " 天内更新的" & ChannelShortName & " <font color='#FF0000'> 如果为空或0，则显示所有天数的" & ChannelShortName & "。</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>排序方法：</strong></td>"
Response.Write " <td height='25'><select name='OrderType' id='OrderType'>"
Response.Write " <option value='1' "
If Trim(OrderType) = "1" Then Response.Write "selected"
Response.Write ">" & ChannelShortName & "ID（降序）</option>"
Response.Write " <option value='2' "
If Trim(OrderType) = "2" Then Response.Write "selected"
Response.Write ">" & ChannelShortName & "ID（升序）</option>"
Response.Write " <option value='3' "
If Trim(OrderType) = "3" Then Response.Write "selected"
Response.Write ">更新时间（降序）</option>"
Response.Write " <option value='4' "
If Trim(OrderType) = "4" Then Response.Write "selected"
Response.Write ">更新时间（升序）</option>"
Response.Write " <option value='5' "
If Trim(OrderType) = "5" Then Response.Write "selected"
Response.Write ">点击次数（降序）</option>"
Response.Write " <option value='6' "
If Trim(OrderType) = "6" Then Response.Write "selected"
Response.Write ">点击次数（升序）</option>"
Response.Write " <option value='7' "
If Trim(OrderType) = "7" Then Response.Write "selected"
Response.Write ">按评论数（降序）</option>"
Response.Write " <option value='8' "
If Trim(OrderType) = "8" Then Response.Write "selected"
Response.Write ">按评论数（升序）</option>"
Response.Write " </select></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='25' align='right' class='tdbg5'><strong>标题最多字符数：</strong></td>"
Response.Write " <td height='25'><input name='TitleLen' type='text' id='TitleLen' value="
If Trim(TitleLen) = "" Then
Response.Write "30"
Else
Response.Write TitleLen
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " <font color='#FF0000'>如果为0，则显示完整标题。字母算一个字符，汉字算两个字符。</font></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='ContentLen' type='text' id='ContentLen' value="
If Trim(ContentLen) = "" Then
Response.Write "0"
Else
Response.Write ContentLen
End If
Response.Write " size='5' maxlength='3'>"
Response.Write " <font color='#FF0000'>如果大于0，则在标题下方面显示指定字数的" & ChannelShortName & "内容</font></td>"
Response.Write " </tr>"
'If ModuleType = 1 Or 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 TYPE='text' NAME='Cols' value="
If Trim(Cols) = "" Then
Response.Write "1"
Else
Response.Write Cols
End If
Response.Write " id='id' size='5' maxlength='3'> <font color='#FF0000'>超过此列数就换行</font>"
Response.Write " <input type='hidden' name='urltype' value='0'></td>"
Response.Write " </tr>"
'End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='50' align='right' class='tdbg5'><strong>显示内容：</strong></td>"
Response.Write " <td height='50'><table width='100%' border='0' cellpadding='1' cellspacing='2'>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowClassName' type='checkbox' id='ShowClassName' value='1' "
If LCase(Trim(ShowClassName)) = "true" Then
Response.Write "checked"
End If
Response.Write ">所属栏目</td>"
If ModuleType = 1 Then
Response.Write " <td><input name='ShowIncludePic' type='checkbox' id='ShowIncludePic' value='1' "
If LCase(Trim(ShowIncludePic)) = "true" Then
Response.Write "checked"
End If
Response.Write ">“图文”标志</td>"
End If
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowAuthor' type='checkbox' id='ShowAuthor' value='1' "
If LCase(Trim(ShowAuthor)) = "true" Then
Response.Write "checked"
End If
Response.Write ">作者</td>"
End If
Response.Write " <td>更新时间"
Response.Write " <select name='ShowDateType' id='ShowDateType'>"
Response.Write " <option value='0' "
If Trim(ShowDateType) = "0" Then Response.Write "selected"
Response.Write ">不显示</option>"
Response.Write " <option value='1' "
If Trim(ShowDateType) = "1" Then Response.Write "selected"
Response.Write ">年月日</option>"
Response.Write " <option value='2'"
If Trim(ShowDateType) = "2" Then Response.Write "selected"
Response.Write ">月日</option>"
Response.Write " <option value='3' "
If Trim(ShowDateType) = "3" Then Response.Write "selected"
Response.Write ">月-日</option>"
Response.Write " </select>"
Response.Write " </td>"
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowHits' type='checkbox' id='ShowHits' value='1' "
If LCase(Trim(ShowHits)) = "true" Then
Response.Write "checked"
End If
Response.Write " >点击次数</td>"
End If
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td><input name='ShowHotSign' type='checkbox' id='ShowHotSign' value='1' "
If LCase(Trim(ShowHotSign)) = "true" Then
Response.Write "checked"
End If
Response.Write ">热点" & ChannelShortName & "标志</td>"
Response.Write " <td><input name='ShowNewSign' type='checkbox' id='ShowNewSign' value='1' "
If LCase(Trim(ShowNewSign)) = "true" Then
Response.Write "checked"
End If
Response.Write ">最新" & ChannelShortName & "标志</td>"
If ModuleType <> 5 Then
Response.Write " <td><input name='ShowTips' type='checkbox' id='ShowTips' value='1' "
If LCase(Trim(ShowTips)) = "true" Then
Response.Write "checked"
End If
Response.Write ">显示提示信息</td>"
End If
If ModuleType = 1 Then
Response.Write " <td><input name='ShowCommentLink' type='checkbox' id='ShowCommentLink' value='1' "
If LCase(Trim(ShowCommentLink)) = "true" Then
Response.Write "checked"
End If
Response.Write ">显示评论链接</td>"
End If
Response.Write " <td><input name='UsePage' type='checkbox' id='UsePage' value='1'"
If LCase(Trim(UsePage)) = "true" Then
Response.Write "checked"
End If
Response.Write ">是否分页显示</td>"
Response.Write " </tr>"
Response.Write " </table>"
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'>"
Response.Write " <select name='OpenType' id='OpenType'>"
Response.Write " <option value='0' "
If Trim(OpenType) = "0" Then Response.Write "selected"
Response.Write ">在原窗口打开</option>"
Response.Write " <option value='1' "
If Trim(OpenType) = "1" Then Response.Write "selected"
Response.Write ">在新窗口打开</option>"
Response.Write " </select>"
Response.Write " </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='IntervalLines' type='text' value='"
If Trim(IntervalLines) = """" Then
Response.Write ""
Else
Response.Write IntervalLines
End If
Response.Write "' size='10' maxlength='10'> <font color=blue>为0时不空行</font></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?