<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head
%>
<%
id=request.QueryString("id")
p=cint(request.QueryString("p"))
if p="" or p<1 then p=1

set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [gbook] where [ID]=" & ID
rs.open rsstr,conn,1,1
call saycardd("回复留言")
response.write"标题："&UBB(rs("title"))&"<br/>"
response.write"内容："&UBB(rs("text"))&"<br/>"
response.write("时间：" & rs("YD_time") & "<br/>")
response.write "----------<br/>"
response.write("联系方式：" & UBB(rs("lianxi")) & "<br/>")
response.write("手机：" & rs("num") & "<br/>")
response.write("型号：" & rs("agent") & "<br/>")

response.write"回复："&UBB(rs("retext"))&"<br/>"

response.write"时间："&rs("retime")&"<br/>"

response.write "----------<br/>"
if saytk>1 then

Response.write "<form name=""form"" method=""post"" action=""resave.asp?sid="&sid&"&amp;saytk="&saytk&""">"%>
<input name="retext" type="text" format="*M" emptyok="true" maxlength="500" value='<%=rs("retext")%>'/><br/>
<%response.write "<input type=""hidden"" name=""id"" value="""&id&"""/>"
response.write "<input type=""hidden"" name=""p"" value="""&p&"""/>"
response.write "<input type=""submit"" name=""Submit"" value=""回复留言""></form><br/>"
%>
<%else%>
<input name="retext" type="text" format="*M" emptyok="true" maxlength="500" value='<%=rs("retext")%>'/><br/>
<anchor>[回复留言]
    <go href="resave.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post" accept-charset="utf-8">
        <postfield name="id" value="<%=id%>"/>
        <postfield name="p" value="<%=p%>"/>
        <postfield name="retext" value="$(retext)"/>
    </go>
</anchor><br/>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
----------<br/>
<a href="Admin_ly.asp?sid=<%=sid%>&amp;p=<%=p%>&amp;saytk=<%=saytk%>">[留言管理]</a><br/>
<a href="../class.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[设计中心]</a><br/>
<a href="../index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a><br/><br/>
<%response.write""
call headsay()%>
