📄 admin_commoncode_content.asp
字号:
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Sub ShowTr_Class()
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>所属栏目：</td>"
Response.Write " <td>"
Response.Write " <select name='ClassID'>" & GetClass_Option(3, ClassID) & "</select>"
Response.Write " <font color='#FF0000'><strong>注意：</strong></font>"
Response.Write " <font color='#0000FF'>不能指定为外部栏目</font>"
If AdminPurview = 2 And AdminPurview_Channel = 3 Then
Response.Write "<font color='#0000FF'>，并且你只能在<font color='#FF0000'>红色栏目</font>及其子栏目中添加内容</font>"
End If
Response.Write " </td>"
Response.Write " </tr>"
End Sub
Sub ShowTabs_Special(arrSpecialID, strDisabled)
Response.Write "<SCRIPT language='javascript'>" & vbCrLf
Response.Write "function SelectAll(){" & vbCrLf
Response.Write " for(var i=0;i<document.myform.SpecialID.length;i++){" & vbCrLf
Response.Write " document.myform.SpecialID.options[i].selected=true;}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "function UnSelectAll(){" & vbCrLf
Response.Write " for(var i=0;i<document.myform.SpecialID.length;i++){" & vbCrLf
Response.Write " document.myform.SpecialID.options[i].selected=false;}" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>所属专题：</td>"
Response.Write " <td>"
Response.Write " <select name='SpecialID' size='2' multiple style='height:300px;width:260px;'>" & GetSpecial_Option(arrSpecialID) & "</select>"
If strDisabled <> " disabled" Then
Response.Write " <br><input type='button' name='Submit' value=' 选定所有专题 ' onclick='SelectAll()'>"
Response.Write " <br><input type='button' name='Submit' value='取消选定所有专题' onclick='UnSelectAll()'>"
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </tbody>" & vbCrLf
End Sub
Sub ShowTabs_Property_Add()
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "属性：</td>"
Response.Write " <td>"
Response.Write " <input name='OnTop' type='checkbox' id='OnTop' value='yes'> 固顶" & ChannelShortName & " "
Response.Write " <input name='Hot' type='checkbox' id='Hot' value='yes' onclick=""javascript:document.myform.Hits.value='" & HitsOfHot & "'""> 热门" & ChannelShortName & " "
Response.Write " <input name='Elite' type='checkbox' id='Elite' value='yes'> 推荐" & ChannelShortName & " "
Response.Write " " & ChannelShortName & "评分等级： <select name='Stars' id='Stars'>" & GetStars(3) & "</select>"
Response.Write " </td>"
Response.Write " </tr>"
If ModuleType = 2 Or ModuleType = 3 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>"
If ModuleType = 2 Then
Response.Write "下载次数："
Else
Response.Write "查看次数："
End If
Response.Write "</td>"
Response.Write " <td>"
Response.Write " 本日： <input name='DayHits' type='text' id='DayHits' value='0' size='10' maxlength='10'> "
Response.Write " 本周： <input name='WeekHits' type='text' id='WeekHits' value='0' size='10' maxlength='10'> "
Response.Write " 本月： <input name='MonthHits' type='text' id='MonthHits' value='0' size='10' maxlength='10'> "
Response.Write " 总计： <input name='Hits' type='text' id='Hits' value='0' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " </tr>"
Else
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>点击数初始值：</td>"
Response.Write " <td>"
Response.Write " <input name='Hits' type='text' id='Hits' value='0' size='10' maxlength='10' style='text-align:center'> <font color='#0000FF'>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font>"
Response.Write " </td>"
Response.Write " </tr>"
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>录入时间：</td>"
Response.Write " <td>"
Response.Write " <input name='UpdateTime' type='text' id='UpdateTime' value='" & Now() & "' maxlength='50'> 时间格式为“年-月-日 时:分:秒”，如：<font color='#0000FF'>2003-5-12 12:32:47</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>配色风格：</td>"
Response.Write " <td><select Name='SkinID'>" & GetSkin_Option(Session("SkinID")) & "</select> 相关模板中包含CSS、颜色、图片等信息</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>版面设计模板：</td>"
Response.Write " <td><select Name='TemplateID'>" & GetTemplate_Option(ChannelID, 3, Session("TemplateID")) & "</select> 相关模板中包含了版面设计的版式等信息</td>"
Response.Write " </tr>"
Response.Write " </tbody>" & vbCrLf
End Sub
Sub ShowTabs_Property_Modify(rsInfo)
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "性质：</td>"
Response.Write " <td>"
Response.Write " <input name='OnTop' type='checkbox' id='OnTop' value='yes'"
If rsInfo("OnTop") = True Then Response.Write " checked"
Response.Write "> 固顶" & ChannelShortName & " "
Response.Write " <input name='Hot' type='checkbox' id='Hot' value='yes' onclick=""javascript:document.myform.Hits.value='" & HitsOfHot & "'"" disabled> 热门" & ChannelShortName & " "
Response.Write " <input name='Elite' type='checkbox' id='Elite' value='yes'"
If rsInfo("Elite") = True Then Response.Write " checked"
Response.Write "> 推荐" & ChannelShortName & " "
Response.Write " " & ChannelShortName & "评分等级：<select name='Stars' id='Stars'>" & GetStars(rsInfo("Stars")) & "</select>"
Response.Write " </td>"
Response.Write " </tr>"
If ModuleType = 2 Then
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>下载次数：</td>"
Response.Write " <td>"
Response.Write " 本日： <input name='DayHits' type='text' id='DayHits' value='" & rsInfo("DayHits") & "' size='10' maxlength='10'> "
Response.Write " 本周： <input name='WeekHits' type='text' id='WeekHits' value='" & rsInfo("WeekHits") & "' size='10' maxlength='10'> "
Response.Write " 本月： <input name='MonthHits' type='text' id='MonthHits' value='" & rsInfo("MonthHits") & "' size='10' maxlength='10'> "
Response.Write " 总计： <input name='Hits' type='text' id='Hits' value='" & rsInfo("Hits") & "' size='10' maxlength='10'>"
Response.Write " </td>"
Response.Write " </tr>"
Else
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>点击数：</td>"
Response.Write " <td>"
Response.Write " <input name='Hits' type='text' id='Hits' value='" & rsInfo("Hits") & "' size='10' maxlength='10'> <font color='#0000FF'>这功能是提供给管理员作弊用的。不过尽量不要用呀！^_^</font>"
Response.Write " </td>"
Response.Write " </tr>"
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>录入时间：</td>"
Response.Write " <td>"
Response.Write " <input name='UpdateTime' type='text' id='UpdateTime' value='" & rsInfo("UpdateTime") & "' maxlength='50'> 时间格式为“年-月-日 时:分:秒”，如：<font color='#0000FF'>2003-5-12 12:32:47</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>配色风格：</td>"
Response.Write " <td><select Name='SkinID'>" & GetSkin_Option(rsInfo("SkinID")) & "</select> 相关模板中包含CSS、颜色、图片等信息</td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>版面设计模板：</td>"
Response.Write " <td><select Name='TemplateID'>" & GetTemplate_Option(ChannelID, 3, rsInfo("TemplateID")) & "</select> 相关模板中包含了版面设计的版式等信息</td>"
Response.Write " </tr>"
Response.Write " </tbody>" & vbCrLf
End Sub
Sub ShowTabs_Purview_Add(ViewString)
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>" & ViewString & "权限：</td>"
Response.Write " <td><input name='InfoPurview' type='radio' value='0' checked>继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='1'>所有会员（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='2'>指定会员组（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
Response.Write GetUserGroup("", "")
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>" & ViewString & "点数：</td>"
Response.Write " <td><input name='InfoPoint' type='text' id='InfoPoint' value='" & Session("InfoPoint") & "' size='5' maxlength='4' style='text-align:center'> "
Response.Write " <font color='#0000FF'>如果点数大于0，则有权限的会员" & ViewString & "此" & ChannelShortName & "时将消耗相应点数（设为9999时除外），游客将无法" & ViewString & "此" & ChannelShortName & "</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>重复收费：</td>"
Response.Write " <td><input name='ChargeType' type='radio' value='0' checked>不重复收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='1'>距离上次收费时间 <input name='PitchTime' type='text' value='24' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='2'>会员重复" & ViewString & "此" & ChannelShortName & " <input name='ReadTimes' type='text' value='10' size='8' maxlength='8' style='text-align:center'> 次后重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='3'>上述两者都满足时重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='4'>上述两者任一个满足时就重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='5'>每" & ViewString & "一次就重复收费一次（建议不要使用）"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>分成比例：</td>"
Response.Write " <td><input name='DividePercent' type='text' id='DividePercent' value='0' size='5' maxlength='4' style='text-align:center'> %"
Response.Write " <font color='#0000FF'>如果比例大于0，则将按比例把向" & ViewString & "者收取的点数支付给录入者</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </tbody>" & vbCrLf
End Sub
Sub ShowTabs_Purview_Batch(ViewString)
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyInfoPurview' value='Yes'></td>"
Response.Write " <td width='100' align='right' class='tdbg5'>" & ViewString & "权限：</td>"
Response.Write " <td><input name='InfoPurview' type='radio' value='0' checked>继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='1'>所有会员（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='2'>指定会员组（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
Response.Write GetUserGroup("", "")
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyInfoPoint' value='Yes'></td>"
Response.Write " <td width='100' align='right' class='tdbg5'>" & ViewString & "点数：</td>"
Response.Write " <td><input name='InfoPoint' type='text' id='InfoPoint' value='" & Session("InfoPoint") & "' size='5' maxlength='4' style='text-align:center'> "
Response.Write " <font color='#0000FF'>如果点数大于0，则有权限的会员" & ViewString & "此" & ChannelShortName & "时将消耗相应点数（设为9999时除外），游客将无法" & ViewString & "此" & ChannelShortName & "</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyChargeType' value='Yes'></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -