<% 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$}
我入住过，要点评>>客人满意度：{$IIF(Dr("H_Reviewss")=0,100,Math.Round((Dr("H_HaoPing")+Dr("H_ZhongPing"))/Dr("H_Reviewss")*100))$}% [{$Dr("H_HaoPing")$}个好评,{$Dr("H_ZhongPing")$}个中评,{$Dr("H_ChaPing")$}个差评]
<% If RecordCount>0 Then While Dr1.Read %>
{$Dr1("O_BonusCount")$}{$WebSet.BonusUnits$}
{$Dr1("U_Name")$} 于 {$System.Convert.ToDateTime(Dr1("O_R_Date")).ToString("yyyy年MM月dd日")$} 对 {$Dr1("R_Name")$} 发表　{$HotelReviewsStatus(Dr1("O_R_Count"))$}
{$Dr1("O_R_Text")$}
  • {${@t_name@}$}
    •
共拍摄{$Dr1("O_R_Pics")$}张图片,获得图片点评{$WebSet.BonusName$}{$Dr1("O_R_PicBonusCount")$}{$WebSet.BonusUnits$}
  • {${@P_Title@}$}
    • <% End While Dr1.Close() Else TourExStr.AppendLine("
  • 暂无
    • ") End If %>
    <% Dr = NoThing %>