目前显示结果是:

以下是代码，该如何改：

<%
    if RS("DeliverStatus")=1  then
    Dim RSD,DeliverStr1,DeliverStr2,API_Key:API_Key=""
    API_Key=LoadXslConfig_API()
    if API_Key="" then
     Response.Write "<script>;location.href='user_order.asp';</script>"
    else
     Set RSD=Conn.Execute("Select Top 1 * From KS_LogDeliver Where DeliverType=1 And OrderID='" & RS("OrderID") & "'")
     If Not RSD.Eof Then
       DeliverStr1=RSD("ExpressCompany2")
       DeliverStr2=RSD("ExpressNumber")
     End If
     Response.Write getDeliveryCorp(DeliverStr1,DeliverStr2,API_Key)  
    end if
    RSD.Close : Set RSD=Nothing
   end if
    %>

已经解决,在代码前后增加 [replyview] <PRE>......  </PRE>   中间代码为683到699行代码 [/replyview]

解决后的显示效果