📄 deleteinfo2.asp
字号:
<% @ language="vbscript" %>
<HTML>
<HEAD>
<TITLE>删除设备资料</TITLE>
</HEAD>
<BODY bgcolor="#aabbaa">
<%
if session("hy_id")="" or session("level")<2 then
response.write "<p>您没有访问本页的权限！</p>"
response.end
end if
%>
<font color="red" face="幼圆">
<p><a href="vod1.asp">返回首页</a>|
<a href="addinfo.asp">添加资料</a>|
<a href="editinfo.asp">修改资料</a>|
<a href="deleteinfo.asp">删除资料</a>|
<a href="browseinfo.asp">查询资料</a>|
</p></font>
<hr width="100%" noshade size="1" color="red">
<table><tr><td> </td></tr></table>
<%
dim cnn, rst, ssql, equ_id
equ_id=trim(request.form("txtoldequ_id"))
set cnn=server.createobject("adodb.connection")
set rst= server.createobject("adodb.recordset")
cnn.connectionstring="provider=sqloledb;data source=(local);"&_
"uid=sa;pwd=0335;database=vod"
cnn.open
ssql="delete shebei where equ_id='"&_
equ_id&"'"
set rst=cnn.execute(ssql, ,adcmdtext)
response.write"<font color=red> "&_
" "&_
" "&_
"编号为"&equ_id&"设备资料已经删除完毕！</font>"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -