📄 del_company_sav.asp

📁 oracle9i程序事例集

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT"%>
<% 
  dim conn
  dim connstr
  Set conn=Server.CreateObject("ADODB.Recordset")
  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 {
	color: #000000;
	font-size: 24px;
	font-weight: bold;
	font-family: "黑体";
}
-->
</style>
<link href="../../MYDZSW/Css/bd_font_size.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
  dim rs,sql
  set rs=server.CreateObject("adodb.recordset")
  sql="select company_name from GSCOTT.company_info_table where company_name='"&request.QueryString("id")&"'"
  rs.open sql,connstr,3,3
  company=rs(0)
  rs.delete
  rs.close
  set rs=nothing
%>
<div align="center"><center>
<table width="582" border="0" cellspacing="0" cellpadding="0">
  <!--DWLayoutTable-->
  <tr bgcolor="#808000">
    <td height="50" colspan="3" align="center" valign="top"><font color="#FF0000"><%=company%></font><span class="style1">公司信息已经删除</span></td>
  </tr>
  <tr>
    <td width="182" height="20" align="right" valign="top" bgcolor="#DDDD00" class="bd_font_size"><a href="all_company.asp">浏览全部公司信息</a></td>
    <td width="238" align="center" valign="top" bgcolor="#DDDD00" class="bd_font_size"><a href="update_company.asp">继续删除</a></td>
    <td width="162" align="left" valign="top" bgcolor="#DDDD00" class="bd_font_size"><a href="../index.asp">返回主页</a></td>
  </tr>
  <tr>
    <td height="0"></td>
    <td></td>
    <td></td>
    </tr>
</table>
</center></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -