<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->

<%call head()
call saycardd("我的海鲜")
ids=session("id")
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select h1,h2,h3,h4 from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,2
if rs.recordcount<1 then
rs.addnew
rs("ids")=ids
rs.update
end if
Response.Write "小虾：(" & rs("h1") &"条)<br/><a href='mai.asp?wpid=h1&amp;sid="&sid&"&amp;saytk="&saytk&"'>出售</a>|<a href='song.asp?wpid=h1&amp;sid="&sid&"&amp;saytk="&saytk&"'>送人</a><br/>鲤鱼:(" & rs("h2") &"条)<br/><a href='mai.asp?wpid=h2&amp;sid="&sid&"&amp;saytk="&saytk&"'>出售</a>|<a href='song.asp?wpid=h2&amp;sid="&sid&"&amp;saytk="&saytk&"'>送人</a><br/>螃蟹:(" & rs("h3") &"只)<br/><a href='mai.asp?wpid=h3&amp;sid="&sid&"&amp;saytk="&saytk&"'>出售</a>|<a href='song.asp?wpid=h3&amp;sid="&sid&"&amp;saytk="&saytk&"'>送人</a><br/>大水鱼:(" & rs("h4") &"只)<br/><a href='mai.asp?wpid=h4&amp;sid="&sid&"&amp;saytk="&saytk&"'>出售</a>|<a href='song.asp?wpid=h4&amp;sid="&sid&"&amp;saytk="&saytk&"'>送人</a><br/>"
Response.Write "=========<br/>"
        rs.Close
	Set rs=Nothing
     liao.Close
      Set liao=Nothing
%>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<%call head1()%>