📄 delguest.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include file=include/setup.inc -->
<!--
-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="html/guest.css">
<title><%=guestTitle%></title></head>
<body text=000000 bgcolor=#FFFFF0 leftmargin="20">
<div align="center">
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#6699FF" width="38%" id="AutoNumber2" height="80">
<tr>
<td width="100%" height="1" background="dh.gif">
<p align="center"><font size="2"><b>删除订单成功！！！！！</b></font></td>
</tr>
<tr>
<td width="100%" height="37" bgcolor="#FFFFFF">
<p>
<%
tablebackcolor="#99CCFF"
id=request("id")
if isNumeric(id)=0 or isNull(id)<>0 then
response.write "记录找不到!"
response.end
end if
rem -----------------------
rem ---显示一条订货记录----
rem -----------------------
function showRecord
tempRecord="<TABLE align=center border=0 cellPadding=5 cellSpacing=3 width=450>"
tempRecord=tempRecord&"<tr><td bgColor="&tablebackcolor&">ID:<font color=ff0000>"&id&"</font> "
if len(title)>0 then
tempRecord=tempRecord&"<span class=p9>主题:"&server.htmlencode(title)&"</strong>"
end if
if Goods<>1 then
tempRecord=tempRecord&"<br><span class=p9>订的货是"&chooseGoods(Goods-1)
end if
if len(guest)>0 then
tempRecord=tempRecord&"<br>留言内容:<pre><span class=p9>"&server.htmlencode(guest)&"</pre>"
end if
if len(name)>0 then
tempRecord=tempRecord&"<br><span class=p9>姓名:"&server.htmlencode(name)
end if
if len(homepage)>0 then
tempRecord=tempRecord&"<br>主页地址:<a href="&chr(34)&server.htmlencode(homepage)&chr(34)&">"&server.htmlencode(homepage)&"</a>"
end if
if len(mail)>0 then
tempRecord=tempRecord&"<br><span class=p9>邮箱:<a href="&chr(34)&"mailto:"&server.htmlencode(mail)&chr(34)&">"&server.htmlencode(mail)&"</a>"
end if
if len(address)>0 then
tempRecord=tempRecord&"<br><span class=p9>联系地址:"&server.htmlencode(address)
end if
tempRecord=tempRecord&"<br><span class=p9>时间:"&ndatetime
tempRecord=tempRecord&"<br><span class=p9><a href=lookguest.asp?id="&id&">>>查看留言内容</a> <a href=delguest.asp?id="&id&">删除订单记录</a></td></tr></table>"
response.write tempRecord
end function
rem -----------------------
rem ---显示一条记录结束----
rem -----------------------
%>
<!-- #include file=database.asp -->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open "select top 1 * from manage",con,1,1
if Rs.eof or Rs.bof then
response.write "数据库错误,数据库中注管理员已经不存在,请添加记录后再操作!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
if session("pass")<>Rs("pass") then
response.write "密码错误!"
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
Rs.close
Rs.open "select id,name,title,homepage,product,mail,guesttime,address,guest from guest where id="&id,con,1,3
if Rs.eof or Rs.bof then
response.write "<span class=p9>找不到此订货单!</span>"
%>
【<a href="manage.asp?page=<%=request("page")%>">返回管理</a>】 【<a href="Goods.asp">返回订货单</a>】 【<a href=<%=returnUrl%>>返回主页</a>】
<%
Rs.close
set Rs=nothing
con.close
set con=nothing
response.end
end if
name=Rs(1)
title=Rs(2)
homepage=Rs(3)
Goods=Rs(4)
mail=Rs(5)
address=Rs(7)
ndatetime=Rs(6)
id=Rs(0)
guest=Rs(8)
showRecord()
Rs.delete
Rs.close
set Rs=nothing
con.close
set con=nothing
%>
</p></td>
</tr>
<tr>
<td height="21" bgcolor="#FFFFFF"><div align="center"><span class=p9><a href="manage.asp?page=<%=request("page")%>">返回管理</a>】 【<a href="Goods.asp">返回订货单</a>】 【<a href=<%=returnUrl%>>返回主页</a>】 </span></div></td>
</tr>
</table>
</div>
<div align="center"></div>
<center><span class=p9><br>
已经成功删除！！！！！<br>
</span>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -