submore.asp

简单的servlet/jsp注册

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%if request("action")="pass" then
sql="select * from dg where id="&request("SUB_id")
rs.open sql,conn,3,3
if rs.eof then
   response.write "没有此订单信息，或者此订单已通过管理员确认"
    response.end
else
    rs("sub_check")=true
    rs.update
   response.write "<center>"
    'response.write rs("sub_number")+"号"
    response.write "<font color=red>订单已经确认!</font>"  
	response.end
end if
rs.close

elseif request("action")="del" then
sql="select * from dg where id="&request("sub_id")
rs.open sql,conn,3,3
'sub_number=rs("sub_number")
rs.delete
rs.update
rs.close
 response.write "<center>"
    'response.write rs("sub_number")+"号"
    response.write "<font color=red>订单已经删除!</font><br><a href='subpass.asp'>返回</a>"
    
	response.end
else
sql="select * from dg where id="&request("SUB_id")
rs.open sql,conn,3,3
if rs.eof then
    response.write "没有此订单信息"
	response.end
else%>
<title>评点:<%'=rs("sub_number")%>详细信息</title>
<TABLE cellSpacing=1 cellPadding=0 width="700" align=center bgColor=#999999 
border=0>
  <TBODY>
    <TR> 
      <TD width="735" bgcolor="#f0f0f0" id=maintitleback> 
        <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="100%" height="30" valign="bottom" id=maintitle>评点管理 -&gt;&nbsp;&nbsp;评点对象：<font color=blue><strong><%=rs("select2")%></strong></font> </TD>
            </TR>
          </TBODY>
        </TABLE>
      </TD>
    </TR>
    <TR> 
      <TD id=mainbg> <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0 height="239">
          <TBODY>
            <TR> 
              <TD height="30" noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"><font color="#FFFFFF">评点日期</font></div></TD>
              <TD height="30" colspan="2" noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium><div align="center"> 
                  <font color="#FFFFFF"><%=rs("date")%></font></div></TD>
              <TD width="122" height="30" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF">评点人姓名</font></div></TD>
              <TD height="30" colspan="2" align=middle noWrap 
          background=../images/pics/tile_sub.gif id=titlemedium> <div align="center"><font color="#FFFFFF"><%=rs("name")%></font></div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center"><font color="#000000">姓名</font></div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff> <div align="center"><font color=#333333><%=rs("name")%></font></div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff><div align="center">电话</div></TD>
              <TD align=middle bgColor=#ffffff height="30"><div align="center"><%=rs("tel")%> </div></TD>
              <TD width="122" height="30" bgColor=#ffffff><div align="center">E-mail</div></TD>
              <TD width="122" height="30" align=middle bgColor=#ffffff><div align="center"><%=rs("mail")%> </div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center"><font color="#000000">服务质量</font></div></TD>
              <TD height="30" colspan="5" align=middle bgColor=#ffffff> <div align="center"></div>
                <div align="center"><strong><%=rs("adds")%></strong> </div></TD>
            </TR>
            <TR> 
              <TD bgColor=#ffffff height="30"><div align="center">环境质量</div></TD>
              <TD height="30" colspan="5" align=middle bgColor=#ffffff> <div align="center"><b><%=rs("hw_name")%></b></div></TD>
            </TR>
            <TR> 
              <%'rs.close
                    %>
              <TD bgColor=#ffffff height="30"><div align="center">备注</div></TD>
              <TD colspan="5" rowspan="2" align=middle valign="middle" bgColor=#ffffff><%=rs("textarea")%> </TD>
            </TR>
            <%'sql="select * from basket where sub_number='"&sub_number&"'"
              'rs.open sql,conn,3,3
              'if rs.eof then
                  'response.write "没有此订单信息"
                  'response.end
              'else
                 ' do while not rs.eof%>
            <TR> 
              <TD width=122 bgColor=#ffffff height="30"><div align="center"></div></TD>
              <%'totalcash=totalcash+rs("hw_cash")*rs("basket_count")%>
            </TR>
            <%'rs.movenext
              'loop
              rs.close
              %>
            <%end if%>
            <TR> 
              <TD height="30" colspan="6" bgColor=#ffffff><div align="center"><img src="../../IMAGES/pics/seperator.gif" width="359" height="1"></div></TD>
            </TR>
            <TR> 
              <TD id=mainfoot 
colSpan=6 height="20"> <div align="center"> 
                  <table width="50%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td><div align="center"><a href="submore.asp?sub_id=<%=request("sub_id")%>&action=pass"><img src="../images/pics/buyok.gif" width="88" height="26" border="0"></a></div></td>
                      <td><div align="center"><a href="submore.asp?sub_id=<%=request("sub_id")%>&action=del"><img src="../images/pics/del.gif" width="88" height="26" border="0"></a></div></td>
                    </tr>
                  </table>
                </div></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<%'end if
end if
set rs=nothing
conn.close
set conn=nothing
%>