求个代码asp转php

<%
Server.ScriptTimeOut = "3600"
Dim rs_str_order, str_sql_order, rs_str_det, str_sql_det
Dim int_order_counter_i, int_det_counter_i, str_packing_id, orders_id
Dim print_packing_slip_count, print_packing_slip_gc, prev_seller, current_seller
Dim gc_name_count, need_packing_slip
Set rs_str_order = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("order_id") <> "" Then
order_ids = Request.QueryString("order_id")
order_ids_array = Split(order_ids, ",")
For array_count = Lbound(order_ids_array) To Ubound(order_ids_array)
order_id = order_id + "'" + order_ids_array(array_count) + "', "
Next
order_id = Left(order_id, Len(order_id) - 2)
str_sql_order = " Select xx from xx" 

Else
str_sql_order = " Select xx from xx)" 
End If
rs_str_order.Open str_sql_order, MM_print_STRING, 1, 1
'need_packing_slip = rs_str_order("so_need_slip")%>
<body>
<%
If Not rs_str_order.Eof Then
int_order_counter_i = 0
Do While Not rs_str_order.Eof
int_order_counter_i = int_order_counter_i + 1
%>
<%
str_packing_id = rs_str_order("so_sale_order")
Set rs_str_det = Server.CreateObject("ADODB.Recordset")
str_sql_det = " Select sd_sale_order, sd_seller_id, sd_prod_no, sd_quantity, sd_memo, pl_eng_name," &_
  " sel_full_name, sd_prod_name, so_group_id" &_
              " From dbo.t_sale_det, dbo.t_prod_list, dbo.t_seller, dbo.t_sale_order" &_
  " Where sd_sale_order = '" & str_packing_id & "'" &_
  " And so_sale_order = sd_sale_order" &_
  " And sd_prod_no *= pl_prod_no" &_
  " And sd_seller_id = sel_seller_id" &_
  " Order By sel_full_name Asc"
rs_str_det.Open str_sql_det, MM_print_STRING, 1, 1
'If rs_str_det.RecordCount >= 10 Then
'print_packing_slip_count = 1
'Else
'print_packing_slip_count = 0
'End If
'prev_seller = ""
'gc_name_count = 0
'print_packing_slip_gc = 0
''Do While Not rs_str_det.Eof
'gc_name_count = gc_name_count + 1
'current_seller = rs_str_det("sel_full_name")
'If prev_seller <> current_seller Then
'print_packing_slip_gc = print_packing_slip_gc + 1
'End If
'prev_seller = current_seller
'If Not rs_str_det.Eof Then rs_str_det.MoveNext
'Loop
If rs_str_det.RecordCount > 0 Then rs_str_det.MoveFirst
If Request.QueryString("order_id") <> "" Then
%>
<div class="layout">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" class="rcd_description">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "<strong>RCD Coupon Code: 80214    Rate: 3%</strong>"
Response.Write "<br><br>"
Response.Write "Applies to Repeat orders on: www.abc.com&nbsp;&nbsp;&nbsp;&nbsp;www.abe.com"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "<strong>RCD Coupon Code：DORA1   Rate：3%</strong>" 
Response.Write "<br><br>"
Response.Write "Apply to repeat orders on: http://www.abd.com"
Else 
Response.Write "<strong>RCD Coupon Code: 80214    Rate: 3%</strong>"
Response.Write "<br><br>"
Response.Write "Applies to Repeat orders on: www.8season-supplies.com&nbsp;&nbsp;&nbsp;&nbsp;www.abc.com"
End If %>
</td>
  </tr>
  <tr>
    <td colspan="2" class="title">
<%     If rs_str_order("so_group_id") = 1 Then
Response.Write "abc Packing Slip"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "abd Packing Slip"
Else 
Response.Write "abc Packing Slip"
End If  %> </td>
    </tr>
  <tr>
    <td colspan="2" class="packing_no_date">
<!--Packing NO.和date表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="packing_no_date_left">
<% If rs_str_order("so_group_id") = 1 Then %>
<img src="images/abc_packing_slip_logo.gif" width="180" height="87" />
<% ElseIf rs_str_order("so_group_id") = 2 Then %>
<img src="images/abd_packing_slip_logo.gif" width="180" height="87" />
<%  Else  %>
<img src="images/abc_packing_slip_logo.gif" width="180" height="87" />
<% End If  %>
</td>
        <td class="packing_no_date_right"><strong>Packing No.：</strong><%=rs_str_order("so_packing_id")%>&nbsp;&nbsp;&nbsp;<strong>Date：</strong><%=Left(rs_str_order("so_order_date"), 10)%></td>
      </tr>
    </table>
<!--Packing NO.和date表格结束--> </td>
    </tr>
  <tr>
    <td colspan="2">
<!--from to 表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="from">From:</td>
        <td class="from_value">
<% If rs_str_order("so_group_id") = 1 Then
Response.Write "Lisa"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "Catherine"
Else
Response.Write "Lisa"
End If %> </td>
        <td class="to">To:</td>
        <td class="to_value"><%=rs_str_order("so_full_name")%>(<%=rs_str_order("so_country")%>)</td>
      </tr>
    </table>
<!--from to 表格结束--> </td>
    </tr><tr>
    <td colspan="2">
<!--店铺名称输出表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="ebay_id">Beads Whosale:</td>
        <td class="ebay_id_value">
<!--开始输出店铺的名称。注：顾客在哪个店铺购买了物品，就显示哪几个店铺的名称-->
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "www.abe.com"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "www.abd.com"
Else
Response.Write "www.abc.com"
End If
%> </td>
        <td class="websites">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "Knitting Wholesale:"
End If
%>
</td>
        <td class="websites_value">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "www.abe.com/"
End If
%>
</td>
      </tr>
    </table>
<!--店铺名称输出表格结束--> </td>
    </tr>
<!--订单明细开始输出，订单明细开始输出，订单明细开始输出，订单明细开始输出-->
    <tr>
     <td colspan="2" class="items_from"><!--#include file="packing_slip_include.asp" --></td>
    </tr>
<!--订单明细输出结束，订单明细输出结束，订单明细输出结束，订单明细输出结束-->
</table>
</div>
<xmp></xmp>
<%
Else
'If print_packing_slip_count = 1 or print_packing_slip_gc >=2 or need_packing_slip = 1 Then
%>
<div class="layout">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" class="rcd_description">
<%

If rs_str_order("so_group_id") = 1 Then
Response.Write "<strong>RCD Coupon Code: 80214    Rate: 3%</strong>"
Response.Write "<br><br>"
Response.Write "Applies to Repeat orders on: www.abc.com&nbsp;&nbsp;&nbsp;&nbsp;www.abe.com"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "<strong>RCD Coupon Code：DORA1   Rate：3%</strong>" 
Response.Write "<br><br>"
Response.Write "Apply to repeat orders on: http://www.abd.com"
Else 
Response.Write "<strong>RCD Coupon Code: 80214    Rate: 3%</strong>"
Response.Write "<br><br>"
Response.Write "Applies to Repeat orders on: www.abc.com&nbsp;&nbsp;&nbsp;&nbsp;abe.com"
End If %>
</td> </tr><tr>
    <td colspan="2" class="title">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "abc Packing Slip"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "abd Packing Slip"
Else 
Response.Write "abc Packing Slip"
End If
%> </td>
    </tr>
  <tr>
    <td colspan="2" class="packing_no_date">

<!--Packing NO.和date表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="packing_no_date_left">
<%  If rs_str_order("so_group_id") = 1 Then %>
<img src="images/abc_packing_slip_logo.gif" width="180" height="87" />
<% ElseIf rs_str_order("so_group_id") = 2 Then %>
<img src="images/abd_packing_slip_logo.gif" width="180" height="87" />
<% Else %>
<img src="images/abc_packing_slip_logo.gif" width="180" height="87" />
<% End If %>
</td>
        <td class="packing_no_date_right"><strong>Packing No.：</strong><%=rs_str_order("so_packing_id")%>&nbsp;&nbsp;&nbsp;<strong>Date：</strong><%=Left(rs_str_order("so_order_date"), 10)%></td>
      </tr>
    </table>
<!--Packing NO.和date表格结束--> </td>
    </tr>
  <tr>
    <td colspan="2">
<!--from to 表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="from">From:</td>
        <td class="from_value">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "Hong(Lisa)"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "Catherine"
Else
Response.Write "Hong(Lisa)"
End If
%> </td>
        <td class="to">To:</td>
        <td class="to_value"><%=rs_str_order("so_full_name")%>(<%=rs_str_order("so_country")%>)</td>
      </tr>
    </table>
<!--from to 表格结束--> </td>
    </tr>
  <tr>
    <td colspan="2">
<!--店铺名称输出表格开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="ebay_id">Beads Whosale:</td>
        <td class="ebay_id_value">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "www.abc.com"
ElseIf rs_str_order("so_group_id") = 2 Then
Response.Write "www.abd.com"
Else
Response.Write "www.abc.com"
End If
%> </td>
        <td class="websites">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "Knitting Wholesale:"
End If
%>
</td>
        <td class="websites_value">
<%
If rs_str_order("so_group_id") = 1 Then
Response.Write "www.abe.com/"
End If
%>
</td>
      </tr>
    </table>
<!--店铺名称输出表格结束--> </td>
    </tr>     <tr>
     <td colspan="2" class="items_from"><!--#include file="packing_slip_include.asp" --></td>
    </tr>
<!--订单明细输出结束，订单明细输出结束，订单明细输出结束，订单明细输出结束-->
</table>
</div>
<xmp></xmp>
<% 'End If
End If
If Not rs_str_order.Eof Then rs_str_order.MoveNext
Loop
End If  %>
</body>