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

<!--#INCLUDE file="conn1.asp"-->
<%call head()

wap=request("wap")
aaa=request("aaa")
ids=session("id")
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from "&aaa&" where cstr(ids)="&myid
rs1.open strSQL,liao,1,2
if rs1.recordcount<1 then
rs1.addnew
rs1("ids")=myid
rs1.update
end if
rs1.close
set rs1=Nothing
liao.close
set liao=nothing

call cardz("好彩花园","index.asp?wap="&wap&"")
Response.Write("<card title='好彩花园' ontimer='index.asp?wap="&wap&"'>")
Response.Write("<timer value='3'/><p>")
Response.Write("系统已成功为您开垦了新花园！并送你10颗种子,赶快去种花吧!<br/>--------------<br/>正在返回您的花园...")
Response.Write("<br/>--------------<br/>")
Response.Write("<a href='/bbs/index.asp?wap=" & wap & "'>社区首页</a>")
%>
<%call head1()%>