orderno.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ds") 
	  
	   Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
 
if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if
%>
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD  style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="7%"><IMG height=32 src="../images/myemail.gif" 
            border=0></TD>
              <TD width="93%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>
<%
sql="select buyorder,saleorder from Yixiang_emailorder where gsid="&session("id")&"" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
%>




<TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle><BR>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CBB55A">
          <tr> 
            <td> <table width="100%" border="0" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                    <td align="center"> 
                      <p>您真的要退订与“<font color="#FF0000"><%=rs("buyorder")%>&nbsp;<%=rs("saleorder")%></font>”相关的供求信息吗？<br>
                      </p>
                      <p> <a href="orderno_ok.asp">退掉吧，不订了</a> 　<a href="index.asp"">再保留一段时间，商机就要来了！</a></p>
                    </td>
                </tr>
              </table></td>
          </tr>
        </table>
<BR><BR><BR></TD></TR></TBODY></TABLE>




<BR>
<BR>
</TABLE>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>