<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<%
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;[标识]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"正在和网友(url=/bbs/words/?[标识])吹牛皮(/url)')")


call head()
Call saycardd("吹牛大厅")
%><!--#include file="../sy1.asp"--><%
response.write"<br/><img src=""/images/cnhd.jpg"" alt='吹牛互动'/><br/>"&chr(13)



response.write"娱乐乐翻天！<br/>赶快来<a href=""pkdh.asp?saytk="&saytk&"&amp;sid="&sid&""">吹牛</a>玩个痛快!<br/>"
response.write"【最新吹牛】<a href=""index.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;num="&int(timer())&""">刷新</a><br/>"

 set rs1=Server.CreateObject("ADODB.Recordset")
  rs1.open"select * from YD_jd where op=0 and reuseid=0 order by id desc",ydzqconn,1,1
if rs1.eof then       
response.write"请耐心等待,友友们正在创建吹牛中...<br/>"
end if 
 If not rs1.eof Then 
 Dim PageSize,i
	PageSize=10
	Dim Count,page,pagecount,gopage			
	gopage="index.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;"
	Count=rs1.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs1.move(pagesize*(page-1))
	For i=1 To PageSize     						
	If rs1.eof Then Exit For	
response.write"<a href=""pkview.asp?id="&rs1("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&Left(rs1("about"),6)&"</a>("&rs1("paycent")&getcent&" "
response.write"<a href=""../uinfo.asp?id="&rs1("useid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&unames(rs1("useid"))&"</a>"
response.Write")<br/>"
rs1.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下一页</a>"&chr(13)
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上一页</a>"&chr(13)
if pagecount>1 then response.write"<br/>"
	end if

rs1.close
set rs1=nothing

Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================
dim cont_file,path_File
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&sid=@@sid@@]"&myni&"[/url]和网友[url=/bbs/words/index.asp?sid=@@sid@@]在吹牛皮[/url]哦!!"
Call CreatedTextFiles(path_File,cont_file)

response.write"<a href=""mypklist.asp?saytk="&saytk&"&amp;sid="&sid&""">吹牛记录</a>|"
response.write"<a href=""mypklist2.asp?saytk="&saytk&"&amp;sid="&sid&""">抢话记录</a><br/>"
response.write"【玩家排行】<br/>"
response.write"<a href=""pk_top.asp?saytk="&saytk&"&amp;sid="&sid&""">赢家排行</a>|"
response.write"<a href=""pk_cent.asp?saytk="&saytk&"&amp;sid="&sid&""">赚币排行</a>"
response.write"<br/><a href=""pklist.asp?saytk="&saytk&"&amp;sid="&sid&""">挑战清单</a>|"
response.write"<a href=""pk_h.asp?saytk="&saytk&"&amp;sid="&sid&""">游戏规则</a>"
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
if myid=1 then
response.write"<br/><a href=""adminwords.asp?saytk="&saytk&"&amp;sid="&sid&""">站长高级管理</a>"
end if
Response.write "<br/><a href=""/bbs/game/index.asp?saytk="&saytk&"&amp;sid="&sid&""">返回游戏中心</a>"
Response.write "<br/><a href=""../show.asp?saytk="&saytk&"&amp;sid="&sid&""">空间</a>&gt;&gt;<a href=""/bbs/index.asp?saytk="&saytk&"&amp;sid="&sid&""">社区首页</a>"
'(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]"
response.write"<br/>"&zqfjs&""


call head3()
%>
