<% dim messid,action messid=SafeRequest("id",1) action=Request.Form("action") select case action case "save" set rs=server.CreateObject("adodb.recordset") rs.open "select messre,messenter,payentername from guest where messid="&messid,conn,1,3 rs("messre")=trim(request.form("messre")) rs("messenter")=trim(request.form("messenter")) rs("payentername")=trim(request.form("payentername")) rs.update rs.close set rs=nothing conn.close set conn = nothing response.write "" response.End case "" %> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from guest where messid="&messid,conn,1,1 %>

回复付款留言
留言主题：	<%=rs("messsubject")%>	留言类型： <% if rs("messtype")=1 then %>普通留言<%elseif rs("messtype")=2 then%>汇款留言<%end if%>
留言用户：	<% = trim(rs("username")) %>	付款日期： <% = rs("paydate") %> 付款方式：<%=rs("payfs")%> 付款金额:<%=rs("messtotaljg")%>
发表时间：	<%=rs("messdtm")%> 来访IP：<% = trim(rs("messip")) %>	对应订单： <% = trim(rs("goodsid")) %>
留言内容：	<%=trim(rs("messfrom"))%>	是否确认： selected <%end if%>>确认已汇款 selected <%end if%>>未确认 确认签名：
回　　复：	<%=trim(rs("messre"))%>

<% rs.close set rs=nothing conn.close set conn = nothing%> <% end select %>