admin_commoncode_content.asp

个人网站比较简短

    Response.Write "            <td width='100' 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='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyDividePercent' value='Yes'></td>"
    Response.Write "            <td width='100' 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 "              &nbsp;&nbsp;<font color='#0000FF'>如果比例大于0，则将按比例把向" & ViewString & "者收取的点数支付给录入者</font>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_MyField_Batch()
    Dim tempModuleType
    tempModuleType = 0 - ModuleType
    Response.Write "        <tbody id='Tabs' style='display:none'>" & vbCrLf
    Dim rsField
    Set rsField = Conn.Execute("select * from PE_Field where ChannelID=" & tempModuleType & " or ChannelID=" & ChannelID & " Order by FieldID")
    If rsField.BOF And rsField.EOF Then
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='600' colspan='3'></td>"
    Response.Write "          </tr>"
    Else
        Do While Not rsField.EOF
            Call WriteBatchFieldHTML(rsField("FieldName"), rsField("Title"), rsField("Tips"), rsField("FieldType"), rsField("DefaultValue"), rsField("Options"), rsField("EnableNull"))
            rsField.MoveNext
        Loop
    End If
    Set rsField = Nothing
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_Purview_Modify(ViewString, rsInfo, strDisabled)
    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'" & strDisabled
    If rsInfo("InfoPurview") = 0 Then Response.Write " checked"
    Response.Write ">继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
    Response.Write "            <input name='InfoPurview' type='radio' value='1'" & strDisabled
    If rsInfo("InfoPurview") = 1 Then Response.Write " checked"
    Response.Write ">所有会员（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
    Response.Write "            <input name='InfoPurview' type='radio' value='2'" & strDisabled
    If rsInfo("InfoPurview") = 2 Then Response.Write " checked"
    Response.Write ">指定会员组（当所属栏目为开放栏目，想单独对某些" & ChannelShortName & "进行" & ViewString & "权限设置，可以选择此项）<br>"
    Response.Write GetUserGroup(rsInfo("arrGroupID") & "", strDisabled)
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "" & ViewString & "点数：</td>"
    Response.Write "            <td><input name='InfoPoint' type='text' id='InfoPoint' value='" & rsInfo("InfoPoint") & "' size='5' maxlength='4' style='text-align:center'" & strDisabled & ">&nbsp;&nbsp;&nbsp;&nbsp; <font color='#0000FF'>如果大于0，则会员" & ViewString & "此" & ChannelShortName & "时将消耗相应点数（设为9999时除外），游客将无法" & ViewString & "此" & ChannelShortName & "。</font></td>"
    Response.Write "          </tr>"
    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'" & strDisabled
    If rsInfo("ChargeType") = 0 Then Response.Write " checked"
    Response.Write ">不重复收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='1'" & strDisabled
    If rsInfo("ChargeType") = 1 Then Response.Write " checked"
    Response.Write ">距离上次收费时间 <input name='PitchTime' type='text' value='" & rsInfo("PitchTime") & "' size='8' maxlength='8' style='text-align:center'" & strDisabled & "> 小时后重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='2'" & strDisabled
    If rsInfo("ChargeType") = 2 Then Response.Write " checked"
    Response.Write ">会员重复" & ViewString & "此" & ChannelShortName & " <input name='ReadTimes' type='text' value='" & rsInfo("ReadTimes") & "' size='8' maxlength='8' style='text-align:center'" & strDisabled & "> 次后重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='3'" & strDisabled
    If rsInfo("ChargeType") = 3 Then Response.Write " checked"
    Response.Write ">上述两者都满足时重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='4'" & strDisabled
    If rsInfo("ChargeType") = 4 Then Response.Write " checked"
    Response.Write ">上述两者任一个满足时就重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='5'" & strDisabled
    If rsInfo("ChargeType") = 5 Then Response.Write " checked"
    Response.Write ">每" & 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='" & rsInfo("DividePercent") & "' size='5' maxlength='4' style='text-align:center'" & strDisabled & "> %"
    Response.Write "              &nbsp;&nbsp;<font color='#0000FF'>如果比例大于0，则将按比例把向" & ViewString & "者收取的点数支付给录入者</font>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_Vote_Add()
    Dim i
    Response.Write "        <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>启用调查：</td><td><input name='ShowVote' type='checkbox' id='ShowVote' value='yes'></td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>调查主题：</td><td><textarea name='VoteTitle' cols='50' rows='4'></textarea></td>"
    Response.Write "          </tr>"
    For i = 1 To 8
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>选项" & i & "：</td><td><input type='text' name='select" & i & "' size='36'>&nbsp;票数：<input type='text' name='answer" & i & "' size='10'></td>"
        Response.Write "          </tr>"
    Next

    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>调查类型：</td><td><select name='VoteType' id='VoteType'><option value='Single' selected>单选</option><option value='Multi'>多选</option></select></td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>开始时间：</td><td><input type='text' name='BeginTime' size='20' value='" & Now() & "'>&nbsp;调查开始的时间</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>终止时间：</td><td><input type='text' name='EndTime' size='20' value='" & Now() + 30 & "'>&nbsp;调查结束的时间</td>"
    Response.Write "          </tr>"
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_Vote_Modify(rsInfo)
    Dim UseVote, i, rsVote
    Response.Write "        <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "          <tr class='tdbg'>"
    If rsInfo("VoteID") > 0 Then
        Response.Write "  <td width='120' align='right' class='tdbg5'>启用调查：</td><td><input name='ShowVote' type='checkbox' id='ShowVote' value='yes' checked></td>"
        Set rsVote = Conn.Execute("select * from PE_Vote where ID=" & rsInfo("VoteID"))
        If Not (rsVote.BOF And rsVote.EOF) Then
            UseVote = True
        End If
    Else
        Response.Write "  <td width='120' align='right' class='tdbg5'>启用调查：</td><td><input name='ShowVote' type='checkbox' id='ShowVote' value='yes'></td>"
    End If

    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>调查主题：</td><td>"
    If UseVote = True Then
        Response.Write "<textarea name='VoteTitle' cols='50' rows='4'>" & rsVote("Title") & "</textarea>"
    Else
        Response.Write "<textarea name='VoteTitle' cols='50' rows='4'></textarea>"
    End If
    Response.Write "          </td></tr>"
    For i = 1 To 8
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>选项" & i & "：</td><td>"
        If UseVote = True Then
            Response.Write "<input type='text' name='select" & i & "' size='36' value=" & rsVote("Select" & i) & ">&nbsp;票数：<input type='text' name='answer" & i & "' size='10' value=" & rsVote("Answer" & i) & ">"
        Else
            Response.Write "<input type='text' name='select" & i & "' size='36'>&nbsp;票数：<input type='text' name='answer" & i & "' size='10'>"
        End If
        Response.Write "          </td></tr>"
    Next
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>调查类型：</td><td><select name='VoteType' id='VoteType'>"
    If UseVote = True Then
        If rsVote("VoteType") = "Single" Then
            Response.Write "<option value='Single' selected>单选</option>"
        Else
            Response.Write "<option value='Single'>单选</option>"
        End If
        If rsVote("VoteType") = "Multi" Then
            Response.Write "<option value='Multi' selected>多选</option>"
        Else
            Response.Write "<option value='Multi'>多选</option>"
        End If
    Else
        Response.Write "<option value='Single' selected>单选</option><option value='Multi'>多选</option>"
    End If
    Response.Write "          </select></td></tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>开始时间：</td><td>"
    If UseVote = True Then
        Response.Write "<input type='text' name='BeginTime' size='20' value='" & rsVote("VoteTime") & "'>"
    Else
        Response.Write "<input type='text' name='BeginTime' size='20' value='" & Now() & "'>"
    End If
    Response.Write "&nbsp;调查开始的时间</td></tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>终止时间：</td><td>"
    If UseVote = True Then
        Response.Write "<input type='text' name='EndTime' size='20' value='" & rsVote("EndTime") & "'>"
    Else
        Response.Write "<input type='text' name='EndTime' size='20' value='" & Now() + 30 & "'>"
    End If
    Response.Write "&nbsp;调查结束的时间</td></tr>"
    Response.Write "        </tbody>" & vbCrLf
    If UseVote = True Then
        Set rsVote = Nothing
    End If
End Sub

Sub ShowTabs_MyField_Add()
    Dim tempModuleType
    tempModuleType = 0 - ModuleType
    Response.Write "        <tbody id='Tabs' style='display:none'>" & vbCrLf
    Dim rsField
    Set rsField = Conn.Execute("select * from PE_Field where ChannelID=" & tempModuleType & " or ChannelID=" & ChannelID & " Order by FieldID")
    Do While Not rsField.EOF
        Call WriteFieldHTML(rsField("FieldName"), rsField("Title"), rsField("Tips"), rsField("FieldType"), rsField("DefaultValue"), rsField("Options"), rsField("EnableNull"))
        rsField.MoveNext
    Loop
    Set rsField = Nothing
    Response.Write "        </tbody>" & vbCrLf
End Sub