| 留言者 |
客戶類別：<%=RS("職業")%> 時間：<%=RS("留言時間")%><% if len(TRIM(RS("icq")))<>0 then %> 電話：<% =RS("icq") %><% end if %><% if len(TRIM(RS("首頁")))<>0 then %> " target="_blank"> 的首頁" border="0" WIDTH="16" HEIGHT="16"><% end if %> |
<%If len(TRIM(RS("密碼")))<>0 Then%>&頁數=<%=Page%>">刪除 <% end if %><% IF RS("留言性質") = "yes" THEN%>&頁數=<%=Page%>">回覆<%END if%> |
| <% if len(TRIM(RS("email")))<>0 then %>"><%=RS("姓名")%><%ELSE%><%=RS("姓名")%><% end if %> <%=RS("性別")%> |
留言主題：<%=RS("留言主題")%><%if InStr(RS("留言時間"),Date)=1 then%>  <% end if %> |
 "> |
留言內容：
<% IF RS("留言性質") = "no" THEN%>此留言是給惠普的...<%ELSE%><%=RS("留言內容")%><%END if%> |
<%If rs("回覆") = 1 Then
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From 回覆留言 Where 主留言編號= "&rs("主留言編號")&" and 刪除='no' Order By 副留言編號 Desc " , conn, 1, 3
While Not rs1.EOF
%>
| <% IF RS1("管理") = "yes" THEN%>管理員 回覆<%ELSE%>回覆者<%END if%> |
客戶類別：<%=RS1("職業")%> 時間：<%=RS1("回覆時間")%><% if len(TRIM(RS1("icq")))<>0 then %> 電話：<% =RS1("icq") %><% end if %><% if len(TRIM(RS1("首頁")))<>0 then %> " target="_blank">的首頁" border="0" WIDTH="16" HEIGHT="16"><% end if %> |
<%If len(TRIM(RS1("密碼")))<>0 Then%>" &頁數="<%=Page%>">刪除<% end if %> |
| <% if len(TRIM(RS1("email")))<>0 then %>"><%=RS1("姓名")%><%ELSE%><%=RS1("姓名")%><% end if %> <%=RS1("性別")%> |
回覆主題：<%=RS1("回覆主題")%><%if InStr(RS1("回覆時間"),Date)=1 then%> <% end if %> |
 "> |
回覆內容：
<%=RS1("回覆內容")%> |
<%
rs1.MoveNext
Wend
End If%>
