<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->
<%call head()
txt=request("txt")
pic=request("pic")
'name=request("myni")
lid=request("myid")
yc=request("yc")
sid=request("sid")
saytk=request("saytk")
agent=request.serverVariables("HTTP_USER_AGENT")


set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from [l] order by ID desc"
rs.open rsstr,liao,1,2

dim errr
errr=0
if rs.recordcount>0 then
	if rs("txt")=txt then errr=1
end if

if errr=1 then eer="请不要重复发布，<br/>正在返回江湖发布！<br/>"
if errr<>1 then

rs.addnew

if txt<>"" then rs("txt")=txt

rs("pic")=pic
rs("lid")=myid
rs("name")=myni
'rs("yc")=yc
rs.update

end if


if rs.recordcount=0 then
rs.addnew

if txt<>"" then rs("txt")=txt

rs("pic")=pic
rs("lid")=myid
rs("name")=myni
'rs("yc")=yc
rs.update
end if

rs.close
set rs=Nothing
liao.close
set liao=nothing
%>
<%call cardz3("江湖消息","index.asp?sid="&sid&"&amp;saytk="&saytk&"")%>

<%if eer="" then%>
信息发布成功，<br/>
<%sql="update wupin set yz=yz-10 where cstr(ids)="&lid
'  liao.Execute(sql)
%>
发布成功<br/>
正在返回........<br/>
<%else%>
<img src="pic/05.gif" alt="" />
<%=eer%>
<%end if%>
----------<br/>
<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()%>