www.gusucode.com > 凡人网络购物系统 2008源码程序 > daninfo.asp
<!--#include file="conn.asp"--> <%if request("action")<>"print" then%> <link href=Skin/<%=venshop_skin%>/css.css rel=STYLESHEET type=text/css> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <body topmargin="5" leftmargin="5" rightmargin="0" bottommargin="0"> <%end if%> <%if Request.Cookies("venshop")("user_name")="" then response.write "您还没有定购任何产品,或者您您的登录超时。 <a href=login.asp>登录</a> <a href=reg.asp>注册</a>" response.end else user_name=Request.Cookies("venshop")("user_name") end if id=request("id") if request("action")="del" then set rs=server.createobject("adodb.recordset") sql="select * from venshop_gou where username='"&user_name&"' and id="&id&"" rs.open sql,conn,1,3 rs.delete rs.update rs.close set rs=nothing response.write "删除成功! <a href='javascript:window.close()'>关闭</a>" response.end end if set rs=server.createobject("adodb.recordset") sql="select * from venshop_gou where username='"&user_name&"' and id="&id&"" rs.open sql,conn,1,1 if rs.eof then response.write "没有此信息" response.end rs.close set rs=nothing else %><title>缺货单详情</title> <%if request("action")="print" then Response.ContentType = "application/msword" response.AddHeader "content-disposition", "inline; filename="&rs("username")&rs("id")&".doc" end if %> <table border="0" width="600" cellspacing="1" cellpadding="5" bgcolor="#808080"> <tr><td bgcolor="#EEEEEE" align="center">日期:<font color="#808080"><%=rs("gdate")%></font> 用户名:<%=rs("username")%></td></tr> <tr><td bgcolor="#FFFFFF">需求商品:<%=rs("hw")%></td></tr> <tr><td bgcolor="#FFFFFF">需求数量:<%=rs("count")%></td></tr> <tr><td bgcolor="#FFFFFF">商品规格:<%=rs("guige")%></td></tr> <tr><td bgcolor="#FFFFFF">商品材料:<%=rs("cailiao")%></td></tr> <tr><td bgcolor="#FFFFFF">商品备注:<%=rs("beizhu")%></td></tr> <tr><td bgcolor="#FFFFFF">采 购 人:<b><%=rs("name")%></b></td></tr> <tr><td bgcolor="#FFFFFF">邮 箱:<%=rs("email")%></td></tr> <tr><td bgcolor="#FFFFFF">电 话:<%=rs("tel")%></td></tr> <tr><td bgcolor="#FFFFFF">处理结果:<%if rs("acheck")=0 then%>尚未处理<%else%><%=rs("are")%><%end if%></td></tr> <%if request("action")<>"print" then%><tr><td bgcolor="#FFFFFF" align="center"> <%if rs("acheck")=0 then%><a href="daninfo.asp?id=<%=request("id")%>&action=del">删除</a><%end if%> <a href="daninfo.asp?id=<%=request("id")%>&action=print">订单打印</a></td></tr></table><%end if%> <%rs.close set rs=nothing end if conn.close set conn=nothing %>