📄 delorder.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>
<% if session("user_name")="" and session("company_name")="" then %>
您还没有登录，五秒钟后自动返回首页，如果您的浏览器没有自动返回，请<a href="index.asp">点击返回</a>。
<meta http-equiv="refresh" content="5;url=index.asp">
<% else if session("user_name")<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select uof_consignment from GSCOTT.user_orderform_table where uof_id='"&request("id")&"'"
rs.open sql,connstr,1,1
consignment=rs("uof_consignment")
else
set rs=server.CreateObject("adodb.recordset")
sql="select cof_consignment from GSCOTT.company_orderform_table where cof_id='"&request("id")&"'"
rs.open sql,connstr,1,1
consignment=rs("cof_consignment")
end if
if consignment="是" then
%>您的订单已被处理，无法删除。五秒钟后自动返回首页，如果您的浏览器没有自动返回，请<a href="index.asp">点击返回</a>。
<meta http-equiv="refresh" content="5;url=index.asp">
<%else%>
</head>
<body>
<%
if session("user_name")<>"" then
conn.Open connstr
conn.execute("delete from GSCOTT.user_orderform_table where uof_id='"&request("id")&"'")
conn.close
else
conn.Open connstr
conn.execute("delete from GSCOTT.company_orderform_table where cof_id='"&request("id")&"'")
conn.close
end if
%>
</body>
<%end if
end if %>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -