viewsub.asp

这是一套集“新闻、产品、订购、招聘、下载、留言”为一体的企业型后台管理系统 系统维护人员： #################################################

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
'set rsbasket=server.createobject("adodb.recordset")
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
sql="select * from dg where id="&request("sub_id")
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有此订单信息"
else%>
<title><!--订单:<%'=rs("sub_number")%>-->
详细信息</title>
<table width="580" border="0" align="center" cellspacing="1">
  <tr>
    <td width="100%">
      <table border="0" width="100%" cellspacing="1">
        <tr>
          <td width="100%" height="30" valign="top" bgcolor="#f0f0f0"> 
            <table cellspacing=0 cellpadding=3 width="100%" border=0>
              <tbody>
                <tr> 
                  <td><img height=8 src="../images/pics/nav_m.gif" width=8 
            border=0></td>
                  <td width="50%" height="30" valign="bottom" id=maintitle>评点管理 
                    -&gt;<b> 已经确认评点</b></td>
                  <td width="50%" valign="bottom" id=maintitle><a href="subdel.asp?sub_id=<%=rs("id")%>&del=del"><img src="../images/pics/delete.gif" width="45" height="20" border="0"></a></td>
                </tr>
              </tbody>
            </table>
            
          </td>
        </tr>
        <tr>
          <td width="100%" bgcolor="#66CCFF">
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr bgcolor="#F7f7f7"> 
                <td height="30" colspan="2">&nbsp;评点日期：<b><%=rs("date")%></b></td>
                <td height="30" colspan="2">评点人：<b><%=rs("name")%></b></td>
              </tr>
              <tr> 
                <td height="30" colspan="2" bgcolor="#FFFFFF">&nbsp;E—mail&nbsp; ：<b><%=rs("mail")%></b></td>
                <td height="30" colspan="2" bgcolor="#FFFFFF"> 电 话 ：<b><%=rs("tel")%></b></td>
              </tr>
              <tr bgcolor="#F7f7f7"> 
                <td height="30" colspan="2" bgcolor="#F7f7f7">&nbsp;评点对象：<strong><%=rs("select2")%></strong></td>
                <td height="30" colspan="2">&nbsp;</td>
              </tr>
              <tr> 
                <td bgcolor="#FFFFFF" colspan="4" height="30"> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width="16%">&nbsp;备注信息：</td>
                      <td width="84%"><b><%=rs("textarea")%></b></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr bgcolor="#f0f0f0"> 
                <td height="30" colspan="4"> 
                  <p align="center"><font color="#FF0000">评点结果</font></p>
                </td>
              </tr>
              <tr bgcolor="#f7f7f7"> 
                <td width="32%" height="30" align="center">&nbsp;服务质量</td>
                <td width="17%" height="30" align="center"> 
                  <!--单价-->
                </td>
                <td width="22%" height="30" align="center">环境质量</td>
                <td width="29%" height="30">
                  <!--合计-->
                </td>
              </tr>
              <%'sub_number=rs("sub_number")
			  'rs.close%>
              <%'sql="select * from basket where sub_number='"&sub_number&"'"
              'rsbasket.open sql,conn,3,3
              'if rsbasket.eof then
                  'response.write "没有此订单信息"
                  'response.end
              'else
                  'do while not rsbasket.eof%>
              <tr> 
                <td width="32%" height="30" align="center" bgcolor="#FFFFFF">&nbsp;<strong><%=rs("adds")%></strong></td>
                <td width="17%" height="30" align="center" bgcolor="#FFFFFF"> 
                  <!--<%'=rsbasket("hw_cash")%>元-->
                </td>
                <td width="22%" height="30" align="center" bgcolor="#FFFFFF"><strong><%=rs("hw_name")%></strong></td>
                <td width="29%" height="30" bgcolor="#FFFFFF"> 
                  <!--<font color=red><%'=rsbasket("hw_cash")*rsbasket("basket_count")%></font>元-->
                </td>
                <%'totalcash=totalcash+rsbasket("hw_cash")*rsbasket("basket_count")%>
              </tr>
              <%'rsbasket.movenext
              'loop
              %>
              <tr> 
                <td height="30" colspan="3" align="center" bgcolor="#FFFFFF"> 
                  <!--总计-->
                </td>
                <td width="29%" height="30" bgcolor="#FFFFFF">
                  <!--<font color=red><%=totalcash%></font>元-->
                </td>
              </tr>
              
              <tr> 
                <td bgcolor="#FFFFFF" colspan="4"> 　
                  <div align="right">
<%'end if
              'rsbasket.close%>
                  </div></td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<div align="center">
<%
end if
rs.close
set rs=nothing
'set rsbasket=nothing
conn.close
set conn=nothing
%>
</div>