admin_commoncode_content.asp

来自「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」· ASP 代码 · 共 1,016 行 · 第 1/5 页
ASP
1,016 行
Sub ShowTabs_MyField_Modify(rsInfo)
    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 & "")
    Do While Not rsField.EOF
        Call WriteFieldHTML(rsField("FieldName"), rsField("Title"), rsField("Tips"), rsField("FieldType"), rsInfo(Trim(rsField("FieldName"))), rsField("Options"), rsField("EnableNull"))
        rsField.MoveNext
    Loop
    Set rsField = Nothing
    
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_MyField_View(rsInfo)
    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 & "")
    Do While Not rsField.EOF
        Response.Write "  <tr class='tdbg'>"
        Response.Write "    <td width='120' align='right' class='tdbg5'>" & rsField("Title") & "</td>"
        Response.Write "    <td>" & PE_HTMLEncode(rsInfo(Trim(rsField("FieldName")))) & "</td>"
        Response.Write "  </tr>"
        rsField.MoveNext
    Loop
    Set rsField = Nothing
    Response.Write "        </tbody>" & vbCrLf
End Sub

Sub ShowTabs_Status_Add()
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "状态：</td>"
    Response.Write "            <td><input name='Status' type='radio' id='Status' value='-1'>草稿&nbsp;&nbsp;"
    Response.Write "                <input Name='Status' Type='Radio' Id='Status' Value='0' "
    If MyStatus < 3 Then
        Response.Write " checked>待审核&nbsp;&nbsp;"
    Else
        Response.Write " >待审核&nbsp;&nbsp;"
        Response.Write "<input Name='Status' Type='Radio' Id='Status' Value='" & MyStatus & "' checked>" & arrStatus(MyStatus) & ""
        If UseCreateHTML > 0 And AutoCreateType > 0 Then
            Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name='CreateImmediate' type='checkbox' value='Yes' checked>立即生成"
        End If
    End If
    
    Response.Write "            </td>"
    Response.Write "          </tr>"
End Sub

Sub ShowTabs_Status_Modify(rsInfo)
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "状态：</td>"
    Response.Write "            <td>"
    If rsInfo("Inputer") = UserName And rsInfo("Status") <= MyStatus Then
        Response.Write "<Input Name='Status' Type='radio' Id='Status' Value='-1'"
        If rsInfo("Status") = -1 Then
            Response.Write " checked"
        End If
        Response.Write "> 草稿&nbsp;&nbsp;"
        Response.Write "<Input Name='Status' Type='radio' Id='Status' Value='0'"
        If rsInfo("Status") < MyStatus Then
            Response.Write "checked"
        End If
        Response.Write "> 未审核&nbsp;&nbsp;"
        Response.Write "<Input Name='Status' Type='radio' Id='Status' Value='1'"
        If rsInfo("Status") = MyStatus Then
           Response.Write "Checked"
        End If
        Response.Write "> " & arrStatus(MyStatus)
    Else
        If rsInfo("Status") = -1 Then
            Response.Write "草稿"
        ElseIf rsInfo("Status") = -2 Then
            Response.Write "退稿"
        Else
            Response.Write arrStatus(rsInfo("Status"))
        End If
    End If
    If UseCreateHTML > 0 And AutoCreateType > 0 Then
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name='CreateImmediate' type='checkbox' value='Yes' checked>立即生成"
    End If
    Response.Write "            </td>"
    Response.Write "          </tr>"
    If rsInfo("Inputer") <> UserName Then
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>审核操作：</td>"
        Response.Write "            <td>"
        Response.Write "<input name='Status' type='radio' value='" & rsInfo("Status") & "' checked onClick=""tabMsg.style.display='none';""> 不改变当前状态&nbsp;&nbsp;&nbsp;&nbsp;"
        If rsInfo("Status") >= 0 Then
            Response.Write "<input name='Status' type='radio' value='-2' onClick=""tabMsg.style.display='';document.myform.MsgTitle.value='退稿通知';document.myform.MsgContent.value='" & EmailOfReject & "';""> 退稿&nbsp;&nbsp;&nbsp;&nbsp;"
        End If
        If rsInfo("Status") < MyStatus Then
            Response.Write "<input name='Status' type='radio' value='1'"
            If MyStatus = 3 Then
                Response.Write " onClick=""tabMsg.style.display='';document.myform.MsgTitle.value='稿件录用通知';document.myform.MsgContent.value='" & EmailOfPassed & "';"""
            Else
                Response.Write " onClick=""tabMsg.style.display='none';"""
            End If
            Response.Write "> " & arrStatus(MyStatus)
        End If
        Response.Write "            </td>"
        Response.Write "          </tr>"


        Response.Write "        <tbody id='tabMsg' style='display:none'>" & vbCrLf
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>通知录入者：</td><td><input type='checkbox' name='SendMessageToInputer' value='Yes' checked>发送站内短信通知录入者&nbsp;&nbsp;&nbsp;&nbsp;<input type='checkbox' name='SendEmailToInputer' value='Yes' checked>发送Email通知录入者</td> "
        Response.Write "          </tr>"
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>通知标题：</td><td><input type='text' name='MsgTitle' MaxLength='100' size='70' value=''></td>"
        Response.Write "          </tr>"
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right' class='tdbg5'>通知内容：</td><td><Textarea name='MsgContent'cols='70' rows='5'></textarea></td>"
        Response.Write "          </tr>"
        Response.Write "        </tbody>" & vbCrLf
    End If
End Sub

Sub ShowBatchCommon()
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyKeyword' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>关键字：</td>"
    Response.Write "            <td><input name='Keyword' type='text' id='Keyword' value='' size='30' maxlength='255'> <font color='#FF0000'>*</font> " & GetKeywordList("Admin", ChannelID)
    Response.Write "              <br><font color='#0000FF'>用来查找相关" & ChannelShortName & "，可输入多个关键字，中间用<font color='#FF0000'>“|”</font>隔开。不能出现&quot;'&?;:()等字符。</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='ModifyOnTop' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>" & ChannelShortName & "性质：</td>"
    Response.Write "            <td><input name='OnTop' type='checkbox' id='OnTop' value='Yes'> 固顶" & ChannelShortName & ""
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyElite' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>" & ChannelShortName & "性质：</td>"
    Response.Write "            <td><input name='Elite' type='checkbox' id='Elite' value='Yes'> 推荐" & ChannelShortName & ""
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyStars' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>评分等级：</td>"
    Response.Write "            <td><select name='Stars' id='Stars'>" & GetStars(3) & "</select></td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyHits' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>点击数：</td>"
    Response.Write "            <td><input name='Hits' type='text' id='Hits' value='0' size='10' maxlength='10'></td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyUpdateTime' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>更新时间：</td>"
    Response.Write "            <td><input name='UpdateTime' type='text' id='UpdateTime' value='" & Date & "' size='10' maxlength='10'> 只修改更新时间的日期部分，时间保留。</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifySkin' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>配色风格：</td>"
    Response.Write "            <td><select Name='SkinID'>" & GetSkin_Option(0) & "</select>&nbsp;相关模板中包含CSS、颜色、图片等信息</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='30' align='center' class='tdbg5'><input type='checkbox' name='ModifyTemplate' value='Yes'></td>"
    Response.Write "            <td width='100' align='right' class='tdbg5'>版面设计模板：</td>"
    Response.Write "            <td><select Name='TemplateID'>" & GetTemplate_Option(ChannelID, 3, 0) & "</select>&nbsp;相关模板中包含了版面设计的版式等信息</td>"
    Response.Write "          </tr>"
End Sub

Sub ShowComment(InfoID)
    Dim MaxPerPage
    MaxPerPage = 10
    Response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
    Response.Write "  <tr align='center' class='title'>"
    Response.Write "    <td width='30' height='22'><strong>ID</strong></td>"
    Response.Write "    <td height='22'><strong>内容</strong></td>"
    Response.Write "    <td width='60' height='22'><strong>评论人</strong></td>"
    Response.Write "    <td width='120' height='22'><strong>评论人IP</strong></td>"
    Response.Write "    <td width='120' height='22'><strong>评论时间</strong></td>"
    Response.Write "    <td width='100' height='22'><strong>操作</strong></td>"
    Response.Write "  </tr>"
    Dim rsComment, sql, TotalPut
    sql = "select * from PE_Comment where ModuleType=" & ModuleType & " and InfoID=" & InfoID
    Set rsComment = Conn.Execute(sql)
    If rsComment.EOF Then
        Response.Write "<tr class='tdbg' align='center' height='50'><td colspan='20'>暂时没有任何人对本" & ChannelShortName & "发表评论</td></tr>"
    Else
        TotalPut = rsComment.RecordCount
        If CurrentPage < 1 Then
            CurrentPage = 1
        End If
        If (CurrentPage - 1) * MaxPerPage > TotalPut Then
            If (TotalPut Mod MaxPerPage) = 0 Then
                CurrentPage = TotalPut \ MaxPerPage
            Else
                CurrentPage = TotalPut \ MaxPerPage + 1
            End If
        End If
        If CurrentPage > 1 Then
            If (CurrentPage - 1) * MaxPerPage < TotalPut Then
                rsComment.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If
    
        Dim i
        i = 0
admin_commoncode_content.asp - 源码说明

本页面展示了「本程序系统完全实现了医院网站程序的全部功能的前台和后台程序」中的 admin_commoncode_content.asp 源码文件，采用 ASP 编程语言编写，共 1,016 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

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