<% Dim CategoryPic As String = WebCache.Category.Read("HotelCategory").Select("t_id=" & Dr("H_CategoryId"))(0)("t_pic") %> {$Dr("H_Name")$}图片 - {$Dr("H_Name")$}照片 - {$WebSet.Name$}
    <% If RecordCount>0 Then While Dr1.Read %>
  • {$Dr1("P_Title")$}上传日期：{$FormatDateTime(Dr1("P_Date"),1)$}
    • <% End While Dr1.Close() Else TourExStr.AppendLine("
  • 暂无
    • ") End If%>
<% Dr = NoThing %>