%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 %>