<%dim messid messid=SafeRequest("id",1) set rs=server.CreateObject("adodb.recordset") if messid="" then rs.open "select top 1 * from mess order by messdtm desc",conn,1,3 else rs.open "select * from mess where messid="&messid&"",conn,1,3 end if %>
查看留言
留言类型: <% select case rs("messtype") case "1" response.write "普通留言" case "2" response.write "意见建议" case "3" response.write "缺货登记" case "4" response.write "合作意向" case "5" response.write "产品投诉" case "6" response.write "服务投诉" end select %> 来访 IP : <% if session("admin")="" then %>保密 <% else %> <% = trim(rs("messip")) %> <% end if %>
留言用户: <% = trim(rs("messusername")) %> 电子邮件: <% if session("admin")="" then %> 保密 <% else %> > <% = trim(rs("messemail")) %> <% end if %>
发表时间: <%=rs("messdtm")%> 联系电话: <% if session("admin")="" then %>保密 <% else %> <% = trim(rs("messtel")) %> <% end if %>
留言主题: > <%=trim(rs("messsubject"))%>
留言内容: <%=trim(rs("messcontent"))%>
回  复: <%=trim(rs("messfrom"))%>
点击关闭窗口
<%rs.close set rs=nothing conn.close set conn=nothing %>