admin_createhtml.asp

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

    Response.Write "            生成指定ID的" & ChannelShortName & "（多个ID可用逗号隔开）："
    Response.Write "            <input name='" & ModuleName & "ID' type='text' id='" & ModuleName & "ID' value='1,3,5' size='20'>"
    Response.Write "            <input name='Action' type='hidden' id='Action' value='Create" & ModuleName & "'>"
    Response.Write "            <input name='CreateType' type='hidden' id='CreateType' value='1'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input name='submit' type='submit' id='submit' value='开始生成>>'>"
    Response.Write "            </form>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "        <tr>"
    Response.Write "          <td height='40'>"
    Response.Write "            <form name='form2' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "            生成指定栏目的" & ChannelShortName & "："
    Response.Write "            <select name='ClassID'>" & GetClass_Option(5, 0) & "</select>"
    Response.Write "            <input name='Action' type='hidden' id='Action' value='Create" & ModuleName & "'>"
    Response.Write "            <input name='CreateType' type='hidden' id='CreateType' value='2'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input name='submit' type='submit' id='submit' value='开始生成>>'>"
    Response.Write "            </form>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "        <tr>"
    Response.Write "          <td height='40'>"
    Response.Write "            <form name='form9' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "            <font color='red'>生成所有未生成的" & ChannelShortName & "（推荐）</font>"
    Response.Write "            <input name='Action' type='hidden' id='Action' value='Create" & ModuleName & "'>"
    Response.Write "            <input name='CreateType' type='hidden' id='CreateType' value='9'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input name='submit' type='submit' id='submit' value='开始生成>>'>"
    Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='Admin_UpdateCreatedStatus.asp?ChannelID=" & ChannelID & "' title='当您用FTP工具删除了已经生成的HTML页面，或者换了服务器后，可以用此功能更新数据库记录的生成状态，以能正常使用“生成所有未生成的" & ChannelShortName & "”功能。'>【更新" & ChannelShortName & "生成状态】</a>"
    Response.Write "            </form>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "        <tr>"
    Response.Write "          <td height='40'>"
    Response.Write "            <form name='form3' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "            生成所有" & ChannelShortName & ""
    Response.Write "            <input name='Action' type='hidden' id='Action' value='Create" & ModuleName & "'>"
    Response.Write "            <input name='CreateType' type='hidden' id='CreateType' value='3'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input name='submit' type='submit' id='submit' value='开始生成>>'>"
    Response.Write "            </form>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "      </table>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  </tbody>"


    Response.Write "  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "  <tr>"
    Response.Write "    <td align='center' class='tdbg'>"
    Response.Write "      <table width='530' border='0' cellspacing='0' cellpadding='0'>"
    Response.Write "        <form name='formclass' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "        <tr>"
    Response.Write "          <td>"
    Response.Write "            <select name='ClassID' size='2' multiple style='height:300px;width:300px;'>" & GetClass_Option(5, 0) & "</select>"
    Response.Write "          </td>"
    Response.Write "          <td valign='bottom'>"
    Response.Write "            <input name='Action' type='hidden' id='Action' value='CreateClass'>"
    Response.Write "            <input name='CreateType' type='hidden' value='1'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input type='submit' name='Submit' onClick=""document.formclass.CreateType.value='1'"" value='生成选定栏目的列表页' style='cursor:hand;'>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            <input type='submit' name='Submit' onClick=""document.formclass.CreateType.value='2'"" value='生成所有栏目的列表页' style='cursor:hand;'>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            提示：<br>"
    Response.Write "            可以按住“CTRL”或“Shift”键进行多选"
    Response.Write "            <br>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "        </form>"
    Response.Write "      </table>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  </tbody>"


    Response.Write "  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "  <tr>"
    Response.Write "    <td align='center' class='tdbg'>"
    Response.Write "      <table width='530' border='0' cellspacing='0' cellpadding='0'>"
    Response.Write "        <form name='formspecial' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "        <tr>"
    Response.Write "          <td>"
    Response.Write "          <select name='SpecialID' size='2' multiple id='SpecialID' style='height:300px;width:300px;'>" & GetSpecial_Option(0) & "</select>"
    Response.Write "          </td>"
    Response.Write "          <td valign='bottom'>"
    Response.Write "            <input name='Action' type='hidden' id='Action' value='CreateSpecial'>"
    Response.Write "            <input name='CreateType' type='hidden' value='1'>"
    Response.Write "            <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "            <input type='submit' name='Submit' onClick=""document.formspecial.CreateType.value='1'"" value='生成选定专题的列表页' style='cursor:hand;'>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            <input type='submit' name='Submit' onClick=""document.formspecial.CreateType.value='2'"" value='生成所有专题的列表页' style='cursor:hand;'>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            <br>"
    Response.Write "            提示：<br>"
    Response.Write "            可以按住“CTRL”或“Shift”键进行多选"
    Response.Write "            <br>"
    Response.Write "          </td>"
    Response.Write "        </tr>"
    Response.Write "        </form>"
    Response.Write "      </table>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  </tbody>"


    Response.Write "  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "  <tr>"
    Response.Write "    <td align='center' class='tdbg'>"
    Response.Write "      <form name='form' method='post' action='Admin_Create" & ModuleName & ".asp'>"
    Response.Write "      <br>"
    Response.Write "      <input name='Action' type='hidden' id='Action' value='CreateIndex'>"
    Response.Write "      <input name='CreateType' type='hidden' id='CreateType' value='1'>"
    Response.Write "      <input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
    Response.Write "      <input name='submit' type='submit' id='submit' value=' 生成" & ChannelName & "首页 '>"
    Response.Write "      </form>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</td></tr></table>"
End If
Response.Write "</body></html>"
Call CloseConn

%>