If not conn.execute("select top 1 * from ks_orderitem where orderid='" & RS("OrderID") &"' and islimitbuy<>0").eof Then
 OrderDetailStr=OrderDetailStr & "     <tr><td><div style='margin:10px;color:red;padding:10px;margin-top:3px;border:1px solid #f9c943;background:#FFFFF6'>温馨提示:本订单是限时/限量抢购订单,限制下单后" & LimitBuyPayTime & "小时之内必须付款,即如果您在[" & DateAdd("h",LimitBuyPayTime,RS("InputTime")) & "]之前用户没有付款,本订单自动作废。</div>"
 OrderDetailStr=OrderDetailStr & "  </td>"
 OrderDetailStr=OrderDetailStr & "  </tr>"
 End If
 
 If RS("DeliverStatus")=1 Then
  Dim RSD,DeliverStr
  Set RSD=Conn.Execute("Select Top 1 * From KS_LogDeliver Where OrderID='" & RS("OrderID") & "'")
  If Not RSD.Eof Then
   DeliverStr="快递公司:" & RSD("ExpressCompany") & " 物流单号:" & RSD("ExpressNumber") & " 发货日期:" & RSD("DeliverDate") & " 发货经手人:" & RSD("HandlerName")
  End If
  RSD.Close : Set RSD=Nothing
 OrderDetailStr=OrderDetailStr & "     <tr><td><div style='margin:10px;color:blue;padding:10px;margin-top:3px;border:1px solid #f9c943;background:#FFFFF6'>温馨提示:本订单已发货。" & DeliverStr & "</div>"
 OrderDetailStr=OrderDetailStr & "  </td>"
 OrderDetailStr=OrderDetailStr & "  </tr>"
 End If
 
 OrderDetailStr=OrderDetailStr & " </table>"
   End Function