?? 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>評點管理
-><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"> 評點日期:<b><%=rs("date")%></b></td>
<td height="30" colspan="2">評點人:<b><%=rs("name")%></b></td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="#FFFFFF"> E—mail :<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"> 評點對象:<strong><%=rs("select2")%></strong></td>
<td height="30" colspan="2"> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" colspan="4" height="30">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%"> 備注信息:</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"> 服務質量</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"> <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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -