📄 user_shopbook.asp
字号:
<%Else%>
<input name="Phone" type="text" id="Phone" value="<%=EL_Common.HTMLEncode(rsBook("Phone"))%>" size="14">
<%End If%></td>
<td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Email" type="text" id="Fax" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Email"))%>" size="25"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Email" type="text" id="Fax" value="<%=EL_Common.HTMLEncode(rsBook("Email"))%>" size="25">
<%End If%></td>
<td align="right" class="td_ItemName"><strong>邮政编码：</strong></td>
<td class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="ZipCode" type="text" id="ZipCode" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("ZipCode"))%>" size="14"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="ZipCode" type="text" id="ZipCode" value="<%=EL_Common.HTMLEncode(rsBook("ZipCode"))%>" size="14">
<%End If%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>邮寄地址：</strong></td>
<td colspan="5" class="td_item_22"><%If rsBook("BookStatus") > 0 Then %>
<input name="Address" type="text" id="Address" readonly="true" value="<%=EL_Common.HTMLEncode(rsBook("Address"))%>" size="50"><img src="Images/lock.gif" width="11" height="14" alt="已锁定，不能修改">
<%Else%>
<input name="Address" type="text" id="Address" value="<%=EL_Common.HTMLEncode(rsBook("Address"))%>" size="50">
<%End If%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>所需<%=PointItemName%>：</strong></td>
<td colspan="5" class="td_item_22"><%=rsBook("BookPoints") & PointItemUnit%> x <%=rsBook("ProductNum")%> = <span style="font-size:18px; font-weight:bold; color:#CC0000;"><%=rsBook("BookPoints") * rsBook("ProductNum")%> <%=PointItemUnit%></span></td>
</tr>
<tr>
<td colspan="6" align="center" class="td_50"><input name="BookID" type="hidden" id="BookID" value="<%=BookID%>">
<input name="Action" type="hidden" id="Action">
<%
If rsBook("BookStatus") = 0 Then
Response.Write "<input type='button' name='Submit' value='保存修改' onclick=""SaveModify();""> "
Response.Write "<input type='button' name='Submit' value='取消兑换' onclick=""Cancel();""> "
End If
%>
<input type="button" name="Submit" value="打印订单" onClick="location.href='User_ShopBook.asp?Action=Print&BookID=<%=BookID%>'">
<input type="button" name="Submit2" value=" 返 回 " onClick="location.href='User_ShopBook.asp'"></td>
</tr>
</table>
</form>
<%
rsBook.Close()
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub ManageBook()
On Error Resume Next
Dim BookCmd, rsBook, RowCount, i, StrFields, StrCondition
Dim PageSizes, PageCounts, TotalRowCount, PageTotalPrice, AllTotalPrice
PageSizes = 20
PageTotalPrice = 0
AllTotalPrice = 0
StrFields = "BookID,BookNumber,UserID,UserName,ContactUserName,ProductName,ProductNum,TotalPoints,BookDateTime,BookStatus,SendStatus"
StrCondition = "Deleted="& EL_False &" And BookStatus<3 And UserID="& EL_User.UserID
If BookStatus <> -1 Then StrCondition = StrCondition &" And BookStatus="& BookStatus &" "
If SendStatus <> -1 Then StrCondition = StrCondition &" And SendStatus="& SendStatus &" "
Call EL_Common.InitCommand(BookCmd, "EL_SP_SplitPage")
With BookCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_ShopBook")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "BookID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "BookDateTime DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsBook = .Execute()
End With
rsBook.Close()
RowCount = BookCmd(0)
TotalRowCount = BookCmd(9)
PageCounts = BookCmd(10)
CurrentPath = CurrentPath &" >> 所有"
Select Case BookStatus
Case 0: CurrentPath = CurrentPath &"<span class='redtext'>未确认</span>"
Case 1: CurrentPath = CurrentPath &"<span class='bluetext'>已确认</span>"
Case 2: CurrentPath = CurrentPath &"<span class='greentext'>已结清</span>"
End Select
Select Case SendStatus
Case 0: CurrentPath = CurrentPath &"<span class='redtext'>未发货</span>"
Case 1: CurrentPath = CurrentPath &"<span class='bluetext'>发货中</span>"
Case 2: CurrentPath = CurrentPath &"<span class='greentext'>已发货</span>"
End Select
CurrentPath = CurrentPath &"订单"
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="16%" align="center" nowrap class="top_Item"><strong>订单号</strong></td>
<td width="25%" align="center" nowrap class="top_Item"><strong>订单名称</strong></td>
<td width="14%" align="center" nowrap class="top_Item"><strong>收货人</strong></td>
<td width="17%" align="center" nowrap class="top_Item"><strong>订单时间</strong></td>
<td width="5%" align="center" nowrap class="top_Item"><strong>兑换数量</strong></td>
<td width="8%" align="center" nowrap class="top_Item"><strong>所需<%=PointItemName%></strong></td>
<td width="7%" align="center" nowrap class="top_Item"><strong>订单状态</strong></td>
<td width="8%" align="center" nowrap class="top_Item"><strong>发货</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td colspan=9 class=td_50 align=center>没有任何订单</td></tr>"
Else
rsBook.Open()
For i = 1 To RowCount
%>
<tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
<td align="center"><a href="User_ShopBook.asp?Action=Show&BookID=<%=rsBook("BookID")%>">
<%
If DateDiff("d", Date(), rsBook("BookDateTime")) = 0 Then
Response.Write "<span class='bluetext'>"& rsBook("BookNumber") &"</span>"
Else
Response.Write rsBook("BookNumber")
End If
%>
</a> </td>
<td style="padding-left:5px;"><%=EL_Common.ServerHTMLEncode(rsBook("ProductName"))%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsBook("ContactUserName"))%></a></td>
<td align="center"><%=rsBook("BookDateTime")%></td>
<td align="center" class="redText"><%=rsBook("ProductNum")%> </td>
<td align="center" class="BlueText"><%=rsBook("TotalPoints")%> </td>
<td align="center"><%=ArrBookStatus(rsBook("BookStatus"))%></td>
<td align="center"><%=ArrSendStatus(rsBook("SendStatus"))%></td>
</tr>
<%
If i<RowCount Then rsBook.MoveNext
Next
rsBook.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="18" align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "订单", "份")%></td>
</tr>
</table>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub PrintBook()
On Error Resume Next
Response.Clear()
Response.Write "<link href='User_Style.css' type='text/css' rel='stylesheet'>"
Response.Write "<style>body{color:#000000;} td{color:#000000;}</style>"
Dim BookCmd, rsBook, i
Dim BookID, BookPriceInfo
BookID = EL_Common.ELRequest("BookID", 2)
Call EL_Common.InitCommand(BookCmd, "EL_SP_GetShopBook")
With BookCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@BookID", 3, 1, 4, BookID)
Set rsBook = .Execute()
End With
rsBook.Close()
If BookCmd(0) <> 1 Then
EL_Common.ShowErrorMsg("指定订单不存在")
Set rsBook = Nothing
Set BookCmd = Nothing
Exit Sub
End If
rsBook.Open()
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="6" align="center" class="td_50"><strong>查看订单号：</strong><%=rsBook("BookNumber")%></td>
</tr>
<tr>
<td width="12%" align="right" class="td_ItemName"><strong>订单状态：</strong></td>
<td colspan="3" class="td_item_22"><%=EL_Common.RemoveHTML(ArrBookStatus(rsBook("BookStatus")))%> <%=EL_Common.RemoveHTML(ArrSendStatus(rsBook("SendStatus")))%> </td>
<td width="11%" align="right" class="td_ItemName"><strong>订单时间：</strong></td>
<td width="22%" class="td_item_22"><%=rsBook("BookDateTime")%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>会员名：</strong></td>
<td width="26%" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("UserName"))%></td>
<td width="12%" align="right" class="td_ItemName"><strong>客户名：</strong></td>
<td colspan="3" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("TrueName"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>商品名称：</strong></td>
<td class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("ProductName"))%></td>
<td align="right" nowrap class="td_ItemName"><strong>兑换数量：</strong></td>
<td width="17%" class="td_item_22"><%=rsBook("ProductNum")%></td>
<td align="right" class="td_ItemName"><strong><%=PointItemName%>：</strong></td>
<td class="td_item_22"><%=rsBook("BookPoints")%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>确认方式：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.ServerHTMLEncode(rsBook("ConfirmType"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>其他说明：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Demand"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>收货人名：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("ContactUserName"))%></td>
<td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Mobile"))%></td>
<td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Fax"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>电话号码：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Phone"))%></td>
<td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Email"))%></td>
<td align="right" class="td_ItemName"><strong>邮政编码：</strong></td>
<td class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("ZipCode"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>邮寄地址：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Address"))%></td>
</tr>
<tr>
<td align="right" class="td_ItemName"><strong>所需<%=PointItemName%>：</strong></td>
<td colspan="5" class="td_item_22"><%=rsBook("BookPoints") & PointItemUnit%> x <%=rsBook("ProductNum")%> = <span style="font-size:18px; font-weight:bold;"><%=rsBook("BookPoints") * rsBook("ProductNum")%> <%=PointItemUnit%></span></td>
</tr>
<tr>
<td align="right" nowrap class="td_ItemName"><strong>订单处理备注：</strong></td>
<td colspan="5" class="td_item_22"><%=EL_Common.HTMLEncode(rsBook("Remark"))%></td>
</tr>
<tr>
<td colspan="6" align="center" class="td_50"><div id="buttons">
<input name="button2" type="button" id="button2" value=" 打 印 " onClick="document.getElementById('buttons').style.display='none';window.print();history.back()">
<input type="button" name="Submit3" value=" 返 回 " onClick="history.back()">
</div></td>
</tr>
</table>
<%
Set rsBook = Nothing
Set BookCmd = Nothing
EL_Common.ShowScriptError()
Call ApplicationTerminate()
End Sub
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -