📄 member_delcontiue.asp
字号:
<!--#include file="conn.asp"-->
<%
id=session("userid")
username=session("username")
if id="" or username="" then
response.Redirect("adminloginerror.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
if session("usertyp")="企业" then
sql="select * from userentreg where login_name='"& username &"' and id=" & id &""
end if
if session("usertyp")="个人" then
sql="select * from userpersreg where login_name='"& username &"' and id=" & id &""
end if
rs.open sql,conn,3,3
if rs.eof then
response.Redirect("adminloginerror.asp")
else
%>
<%
id=server.htmlencode(request.querystring("id"))
if request.QueryString("typ")="host" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from hostshopping where id="&id&" and bolo='未结算'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center><font color=red>您 不 能 取 消 一 个 不 存 在 的 业 务 项 目！</fonr></div>"
else
rs.delete
response.write"<div align=center><br><font color=red>订 单 取 消 成 功！</fonr></div>"
end if
end if
if request.QueryString("typ")="mail" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mailshopping where id="&id&" and bolo='未结算'"
rs.open sql,conn,3,3
if rs.eof then
response.write"<div align=center><font color=red>您 不 能 取 消 一 个 不 存 在 的 业 务 项 目！</fonr></div>"
else
rs.delete
response.write"<div align=center><br><font color=red>订 单 取 消 成 功！</fonr></div>"
end if
end if
%>
<%
end if
rs.close
set rs=nothing
set conn=nothing
%><body style="font-size: 9pt">⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -