<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->

<%call head()
Call saycardd("每日签到")
If saytk>1 Then response.write"<div class=""path"">"
response.write("☆每日︾☆☆︾签到☆<br/>")
If saytk>1 Then response.write"</div>"
dim qianconn
set qianconn=Createobject("ADODB.Connection")
qianconn.ConnectionString="DBQ="& server.mappath("/shujuku/chajianshujuku/qian/saytk_qian")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
qianconn.open
set rs1 = server.createobject("adodb.recordset")
rs1.open"select * from qian order by dates desc",qianconn,1,1
          If rs1.eof Then 
            response.write("还没有任何人签到！<br/>")
                  else
	Dim PageSize,i
	PageSize=listnums
	Dim Count,page,pagecount,gopage			
	gopage="qian.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	
If saytk=100 Then response.write"<div class=""zd""></div>"
			response.write"<a href=""uinfo.asp?id="&rs1("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&rs1("txt")&"</a>:"

response.write"<img src=""/bbs/face/"&clng(rs1("op"))&".gif"" alt="".""/>"
			response.write UBB(rs1("about"))&" ["
			response.write date_gametalk(rs1("dates"))
			response.write "前]<br/>"

			
				rs1.moveNext
  				Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页>></a>共"&PageSize&"页"

	if page>1 then response.write "<a href="""&gopage&"page=1"">第1页>></a> <a href="""&gopage&"page="&page-1&""">上页>></a>"

    End If
    
response.write"<br/>"

rs1.close
set rs1=Nothing

If saytk>1 Then
%><div class="plbox">
<div class="pltit">您有什么想说的</div>
<dl class="plcon"><dt>
<form action="qiansave.asp?id=<%=classdd%>&amp;class=<%=ids%>&amp;p=<%=p%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>" method="POST" name="form1">
<textarea name="about" id="content" class="hy_input"></textarea>
</dt><dd>
<%
response.write "<select title='选择表情' name='logo' 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)
%>
<input type="submit" name="Submit" value="我要签到"></form></dd></dl></div>
<%else%>
<input type="text" name="about" title="输入内容" value="" maxlength="50"/><br/>
<%
response.write "<select title='选择表情' name='logo' 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)
%>

<anchor title="确定">我要签到
<go method="post" href="qiansave.asp?id=<%=classdd%>&amp;class=<%=ids%>&amp;p=<%=p%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>">
<postfield name="about" value="$(about)"/>
<postfield name="logo" value="$(logo)"/>
</go></anchor><br/><%
End If
Response.write "==小提示==<br/>签到成功可得到"&qianjb&getcent&",连续7天签到就可获得额外"&qiansjb&getcent&"金币的奖励！"&chr(13)

'写入动态
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','会员"&mz&"去(url=/bbs/qian.asp?[标识])签到(/url)获得"&abs(qianjb)&"个"&getcent&"')")

'删除过期数据
qianconn.Execute("delete from qian where times<>date()")

qianconn.close
set qianconn=Nothing
conn.close
set conn=Nothing
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>