<!--#include file="../Inc.asp"-->
<!--#include file="../zaixian.asp"-->
<%call head()
Dim tidname,k
tid=request.QueryString("tid")
id=request.QueryString("id")
bbsid=request.QueryString("bbsid")
k=request.QueryString("k")
ffid=request.QueryString("ffid")
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from sell where id="&tid,conn,1,1
  tidname=rs("name")
rs.close
set rs=Nothing

call saycarda("+高级回复+"&tidname&"")
 response.write"+高级回复+"&tidname&"<br/>----------------<br/>"
set rs1=Server.CreateObject("ADODB.Recordset")
  rs1.open"select * from relist where id="&id,conn,1,1
  if rs1.eof then
 Call Error("没有此帖子！")
 Else
 response.write"<b>"&k&"楼</b>."
 response.write"<a href='/bbs/uinfo.asp?ID="&rs1("fid")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"
response.write""&ubb(rs1("fni"))&"(ID:"&ubb(rs1("fid"))&")</a>"
If rs1("fydz")<>0 Then
response.write""&ubb(rs1("fydz"))&""
End If
response.write ubb3(rs1("nr"))&"("&rs1("htm")&")"
response.write vipshow(rs1("fid"))
End if
 response.write"<br/>----------------<br/>"

 if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""bbsresave.asp?k="&k&"&amp;ffid="&ffid&"&amp;tid="&tid&"&amp;ppage="&ppage&"&amp;sid="&sid&"&amp;bbsid="&bbsid&"&amp;saytk="&saytk&""">"
end If



response.write "<select title='选择表情' name='face' value='0'>"&chr(13)
response.write "<option title='选择表情' value='0'>选择表情</option>"&chr(13)
response.write "<option title='微笑' value='1'>微笑</option>"&chr(13)
response.write "<option title='哭泣' value='2'>哭泣</option>"&chr(13)
response.write "<option title='调皮' value='3'>调皮</option>"&chr(13)
response.write "<option title='脸红' value='4'>脸红</option>"&chr(13)
response.write "<option title='害羞' value='5'>害羞</option>"&chr(13)
response.write "<option title='生气' value='6'>生气</option>"&chr(13)
response.write "<option title='偷笑' value='7'>偷笑</option>"&chr(13)
response.write "<option title='流汗' value='8'>流汗</option>"&chr(13)
response.write "<option title='我倒' value='9'>我倒</option>"&chr(13)
response.write "<option title='得意' value='10'>得意</option>"&chr(13)
response.write "<option title='奸笑' value='11'>奸笑</option>"&chr(13)
response.write "<option title='疑问' value='12'>疑问</option>"&chr(13)
response.write "<option title='睡觉' value='13'>睡觉</option>"&chr(13)
response.write "<option title='好色' value='14'>好色</option>"&chr(13)
response.write "<option title='口水' value='15'>口水</option>"&chr(13)
response.write "<option title='敲头' value='16'>敲头</option>"&chr(13)
response.write "<option title='惊讶' value='17'>惊讶</option>"&chr(13)
response.write "<option title='撇嘴' value='18'>撇嘴</option>"&chr(13)
response.write "<option title='难过' value='19'>难过</option>"&chr(13)
response.write "<option title='玫瑰' value='20'>玫瑰</option>"&chr(13)
response.write "</select><br/>"&chr(13)


response.write "<select name='fydz' value='0'>"&chr(13)
response.write "<option value='0'>选择发言动作</option>"&chr(13)
response.write "<option value='大眼睛忽闪忽闪地说:'>大眼睛忽闪忽闪地说:</option>"&chr(13)
response.write "<option value='悻悻地答道:'>悻悻地答道:</option>"&chr(13)
response.write "</select><br/>"&chr(13)
if saytk=>2 then
Response.Write "<input name=""reContent"" maxlength=""120"" value=""""/><br/>"
else
response.write "<input type=""text"" name=""reContent"&ranNum&""" title=""输入内??"" value="""" maxlength=""300""/><br/>"
end If
if saytk=>2 then

%>

<input type="submit" name="Submit" value="确定回复"></form><br/><%
else
response.write "<anchor>确定回复"
response.write "<go method=""post"" href=""bbsresave.asp?k="&k&"&amp;ffid="&ffid&"&amp;tid="&tid&"&amp;ppage="&ppage&"&amp;sid="&sid&"&amp;bbsid="&bbsid&"&amp;saytk="&saytk&""">"
response.write "<postfield name=""reContent"" value=""$(reContent"&ranNum&")""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""fydz"" value=""$(fydz)""/>"
response.write "</go></anchor>"
end If

 response.write"<br/>----------------<br/>"
 Response.write "<a href='/bbs/topic.asp?tid="&tid&"&amp;sid="&sid&"&amp;fid="&fid&"&amp;bbsid="&bbsid&"&amp;saytk="&saytk&"'>返回主帖</a>"
 %><!--#include file="../../bbs/fanhui.asp"-->
 <%
call headsay()

%>