📄 del_admin_sav.asp

📁 oracle9i程序事例集

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
    dim conn
   dim connstr
   connstr="Driver={Microsoft ODBC for Oracle};server=mylink;uid=system;pwd=system;"
 %> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-family: "黑体";
	font-size: 24px;
}
body {
	background-color: #435167;
}
-->
</style>
<link href="../../Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
  dim rs,sql
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from GSCOTT.ADMIN_TABLE where ADMIN_ID='"&request.QueryString("id")&"'"
  rs.open sql,connstr,3,3
  rs.delete
%>
<div align="center">
  <table width="582" border="0" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="582" height="64" align="center" valign="middle" bgcolor="#868686"><span class="style1">管理员账号<%=request.QueryString("id")%>已经删除</span></td>
    </tr>
    <tr>
      <td height="27" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td width="200" height="27" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="all_admin.asp">浏览全部帐号</a></td>
            <td width="193" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="del_admin.asp">继续删除</a></td>
          <td width="189" align="center" valign="middle" bgcolor="#CDCDCD" class="bd_font_size"><a href="../index.asp">返回主页</a></td>
          </tr>
                  </table></td>
    </tr>
    <tr>
      <td height="54">&nbsp;</td>
    </tr>
  </table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -