<!--#include file="conn.asp"-->
<%


call head()
Call saycarda("查看留言")
%>
<!--#INCLUDE file="../bbs/sy1.asp"-->


<%
id=usb(request("id"))
pid=usb(request("pid1"))
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from shop_ly where cstr(id)='"&id&"' and cstr(did)='"&myid&"'"
rs.open rspl,connshop,1,2
if not rs.eof then
rs("htxt")=pid
rs("htm")=now()
rs.update
end if
rs.close
set rs=nothing
%>
回复留言成功
<br/>-----------<br/>
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>
