📄 servermanage.asp

📁 天创商务网客户资源管理系统 v1,asp+Access,iis5
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = CheckPurview.asp-->
<body background="images/BLogo.gif">
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr> 
    <td colspan=2>
      <!--#include file = topMenu.htm-->
    </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td height="528" valign="top" width="35%" background="images/BLogo.gif"> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td>　</td>
        </tr>
        <tr> 
          <td> <form name="form" method="POST" action="serverSubmit.asp?operation=Addservername">
              <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
                <tr bgcolor="#a4cee4"> 
                  <td height="25" colspan="2" align="center" valign="middle"><b>增加业务类型</b></td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle">业务类型名称</td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle"> 
                    <input type="text" name="servername" size="20" > </td>
                </tr>
                <tr> 
                  <td valign="middle" colspan="2" align="center"> <hr size=1 color=#accee4> 
                  </td>
                </tr>
                <tr> 
                  <td align="right"> <input type="submit" value="增加" name="B12"> 
                    &nbsp; </td>
                  <td> &nbsp; <input type="reset" value="还原" name="B13"> </td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
      <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
      <form name="form" method="POST" action="serverSubmit.asp?operation=Delservername">
          <tr> 
            <td> <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
                <tr bgcolor="#a4cee4"> 
                  <td height="25" colspan="2" align="center" valign="middle"><b>删除业务类型</b></td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle">业务类型名称</td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle"> 
                    <select name="serverid">
                      <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select serverid,servername from server order by serverid desc "
    rs.open rs.source,conn,1,1
    while not rs.eof
%>
                      <option value="<%=rs("serverid")%>"><%=rs("servername")%></option>
                      <%
    rs.movenext
    wend
    rs.close
%>
                    </select> </td>
                </tr>
                <tr> 
                  <td valign="middle" colspan="2" align="center"> <hr size=1 color=#accee4> 
                  </td>
                </tr>
                <tr align="center"> 
                  <td colspan="2"></td>
                </tr>
                <tr align="center"> 
                  <td colspan="2"> <input type="submit" value="删除" name="B123" onclick="return Del()"> 
                  </td>
                </tr>
              </table></td>
          </tr>
        </form>
        <form name="form1" method="POST" action="serversubmit.asp?operation=Modifyserver">
          <tr> 
            <td height="2"> <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="100%" border="0" cellpadding="0" align="center" cellspacing="0">
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle" bgcolor="#a4cee4"><b>修改业务类型</b></td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle">业务类型名称</td>
                </tr>
                <tr> 
                  <td height="25" colspan="2" align="center" valign="middle"> 
                    <select name="serverid">
                      <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select servername,serverid from server order by serverid desc "
    rs.open rs.source,conn,1,1
    while not rs.eof
%>
                      <option value="<%=rs("serverid")%>"><%=rs("servername")%></option>
                      <%
    rs.movenext
    wend
    rs.close
	set rs=nothing
%>
                    </select><br>修改名称：<input type="text" name="servername" size="10" > </td> </td>
                </tr>
                <tr> 
                  <td valign="middle" colspan="2" align="center"> <hr size=1 color=#accee4> 
                  </td>
                </tr>
                <tr align="center" valign="middle"> 
                  <td colspan="2"> <input type="submit" value="修改" name="B12322"> 
                  </td>
                </tr>
              </table></td>
          </tr>
        </form>
        <form name="form1" method="POST" action="serverModify.asp?operation=Modifyservername">
          <tr> 
            <td height="99"> 　</td>
          </tr>
        </form>
      </table></td>
    <td width="65%" height="528" valign="top" background="images/BLogo.gif"> <br> 
      <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" width="95%" border="0" cellpadding="0" align="center" cellspacing="0">
        <tr bgcolor="#a4cee4"> 
          <td height="25" colspan="2" align="center" valign="middle"><b>业务类型</b></td>
        </tr>
        <tr valign="top"> 
          <td colspan="2" height="425"> 
            <%
    set rs = server.createobject("adodb.recordset")
    rs.source = "select servername from server order by serverid desc "
    rs.open rs.source,conn,1,1
    if rs.recordcount=0 then
      response.write("你没有添加栏目")
    end if
    while not rs.eof
        servername=rs("servername")
        response.write(" <img src=images/list.gif border=0 align=absMiddle ><font color=red>  "&rs("servername")&"</font></img><br> ")
      rs.movenext
    wend
 %>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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