www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_daninfo.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%if request("action")<>"print" then%>
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%end if%>
<%
if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>2 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
id=request("id")
if request("action")="re" then
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_gou where id="&id&""
rs.open sql,conn,1,3
rs("are")=request("are")
rs("acheck")=1
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_daninfo.asp?id="&id,"ad_dan.asp?acheck=0")
end if
if request("action")="del" then
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_gou where id="&id&""
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
call deleok(delet,"ad_dan.asp?acheck=0")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_gou where id="&id&""
rs.open sql,conn,1,1
if rs.eof then
response.write "没有此信息"
rs.close
else%>
<%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%>已处理<%end if%></td></tr>
<%if request("action")<>"print" then%>
<form method="POST" action="ad_daninfo.asp?id=<%=request("id")%>&action=re">
<tr><td bgcolor="#FFFFFF">管理回复：<br><textarea rows="8" name="are" cols="81"><%=rs("are")%></textarea><br><input type="submit" value="提交" name="B1"></td></tr></form>
<%else%>
<tr><td bgcolor="#FFFFFF">管理回复：<br><%=rs("are")%></td></tr>
<%end if%>
<%if request("action")<>"print" then%><tr><td bgcolor="#FFFFFF" align="center">
<a href="ad_daninfo.asp?id=<%=request("id")%>&action=del">删除</a>
<a href="ad_daninfo.asp?id=<%=request("id")%>&action=print">打印</a></td></tr></table><%end if%>
<%end if
rs.close
set rs=nothing
%><!--#include file="ad_bottom.asp"-->