buysheep.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="connsheep.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="sheepconfig.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<%
'=====================================================
'转换日期型或字符日期型为全格式如：2000-01-01
'调用：ccdate(日期变量或日期格式字符串)

function ccdate(sdate)
temp=cdate(sdate)
if len(month(temp))=1 then
m="0"&month(temp)
else
m=month(temp)
end if

if len(day(temp))=1 then
d="0"&day(temp)
else
d=day(temp)
end if
ccdate=year(temp)&"-"&m&"-"&d
end function
'=====================================================

'=====================================================
'转换时间字符串为全格式,如：01:01:01
'调用：cctime(字符串)

function cctime (stime)
if len(hour(stime))=1 then
h="0"&hour(stime)
else
h=hour(stime)
end if
if len(minute(stime))=1 then
m="0"&minute(stime)
else
m=minute(stime)
end if
if len(second(stime))=1 then
s="0"&second(stime)
else
s=second(stime)
end if
cctime=h&":"&m&":"&s
end function
'=====================================================
call buy()
sub buy()
Response.Buffer=True 
Dvbbs.stats="购买动物"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"",""
dim username
username=Dvbbs.membername
if username=""  then
	Dvbbs.AddErrmsg "<li>错误的版面参数！请确认您是从有效的连接进入。"
	ChkAllErr()
exit sub
end if
dim sheepname
sheepname=request.form("sheepname")
dim cleaninit,sheephappyinit,sheephealthinit,milkinit,lifeinit,hungryinit,sheepdate,feeddate,workload
dim sheeptype,buyprice,sumcount'added by bobcow
sheeptype=request.form("sheeptype")
set rs=nothing
set rs=server.createobject("adodb.recordset")
dim sql
sql="select * from [sheep] where sheepname='"&sheepname&"' and username='"&username&"'"
rs.open sql,conn1,1,1
if not rs.bof then
  	errmsg=errmsg+ "<li>对不起，你已经有一个宠物取这个名字，不能再取这个名字了，换个名字吧。"
   	dvbbs.FoundIsChallenge=true
    Dvbbs_error()
exit sub
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from [rules] where type='"&sheeptype&"'"
rs.open sql,conn1,1,1
if rs.bof and rs.eof then
  	errmsg=errmsg+ "<li>对不起，本农场还没有这一种动物供您领养。"
   	dvbbs.FoundIsChallenge=true
	ChkAllErr()
exit sub
end if
cleaninit=rs("cleaninit")
sheephappyinit=rs("happyinit")
sheephealthinit=rs("healthinit")
milkinit=rs("milkinit")
lifeinit=rs("lifeinit")
hungryinit=rs("hungryinit")
buyprice=rs("buyprice")
sumcount=rs("sumcount")
sheepdate=date
feeddate=DATEADD("d",-1,DATE)
workload=0
rs.close

if sheepname="" or len(sheepname)>16 then
	errmsg=errmsg+ "<li>"&sheeptype&"名称不能为空或大于16个字符。"
	dvbbs.FoundIsChallenge=true
	ChkAllErr()
exit sub
end if
set rs=server.createobject("adodb.recordset")
rs.open"select userWealth from [dv_user] where username='"&username&"'",conn,1,1
tempuserWealth=rs("userWealth")-buyprice
if tempuserWealth<0 then
	errmsg=errmsg+ "<li>买一只"&sheeptype&"需要"&buyprice&"元，您没有足够的钱！先去工作赚点钱吧"
	dvbbs.FoundIsChallenge=true
	ChkAllErr()
exit sub
end if
rs.close
set rs=server.createobject("adodb.recordset")
rs.open"select * from sheep where username='"&session("username")&"' and type='"&sheeptype&"'",conn1,1,1
if not rs.bof and rs.eof then
	errmsg=errmsg+ "<li>一个人只能领养一只"&sheeptype
	dvbbs.FoundIsChallenge=true
	ChkAllErr()
exit sub
end if
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from sheep where type='"&sheeptype&"'",conn1,1,3
if rs.recordcount>=sumcount then
errmsg=errmsg+("<li>城市里面的"&sheeptype&"已经达到了"&sumcount&"只，你不能再领养了,请过些日子等别人领养的死掉了再来")
dvbbs.ChkErr  
exit sub
end if
dim tempuserWealth
tempuserWealth=buyprice
rs.addnew
rs("sheephappy")=sheephappyinit
rs("sheephealth")=sheephealthinit
rs("username")=username
rs("sheepname")=sheepname
rs("sheepdate")=sheepdate
rs("life")=lifeinit
rs("hungry")=hungryinit
rs("workload")=workload
rs("clean")=cleaninit
rs("feeddate")=feeddate
rs("feedsheepday")=feeddate
rs("logintoday")=feeddate
rs("type")=sheeptype
rs.update
conn.execute"update [dv_user] set userWealth=userWealth-'"&tempuserWealth&"' where username='"&session("username")&"'"
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open"select * from sheep",conn1,1,3
rs.movelast
dim  sheepid
sheepid=rs("id") '小"&sheeptype&"编号
'diarydate=year(now)&"/"&month(now)&"/"&day(now)
'diarymessage="恭喜！您已经成功领养到您的小羊了,请好好照顾它。"&sheepname&"，您领养的羊的编号是："&rs("id")
'diaryseason="晴"
'conn1.execute"insert into userdiary(user,diarydate,diarymessage,diaryseason) values('"&session("user")&"','"&diarydate&"','"&diarymessage&"','"&diaryseason&"')"
'================================================================================

'================================================================================
rs("username")=username
dim diarymessage
diarymessage="恭喜！您已经成功领养了"&sheeptype&":"&sheepname

%>

<table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
    <tr> 
    <th align=left colspan=2 height=25>
    <p align="center">社区农场</th>       
  </tr>       
  <tr>  
    <td class=tablebody1 width="100%" class=p8> 
      <table style="BORDER-COLLAPSE: collapse" cellspacing=0 cellpadding=2 border=0 width="100%">
        <tr>
        <td width="40%" valign="top" ><!--#include file="usersheep.asp"-->　</td>
        <td width="60%">
          <table width="100%" align=center>
          <tr>
          <td class="p6" height="25" width="100%"><img src=images/dot1.gif>-您的当前位置 
          → </font>→社区农场</td>
        </tr>
      </table>
  <center> 
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="120" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td class=tablebody1 class=p2 width="100%" >
      <p align="center"><font color="#FF0000">恭喜,您的<%=sheeptype%> :<%=sheepname%> 已经诞生了!</font><p align="center">它的
身份编号是：<%=rs("id")%> (请牢记)</td>
<%
'添加短信功能
dim title,message
title="购买宠物的用户发票"
message="亲爱的客户"&username&"同志："&chr(10)&"    您好!您在我们农场领养的"&rs("type")&":"&sheepname&"诞生了!它的ID号是："&rs("id")&"。请您保留此发票，不得遗失，以备不时之需。"
	sql="insert into dv_message (incept,sender,title,content,sendtime,flag,issend) values ('"&username&"','"&"农场办公室"&"','"&title&"','"&message&"',Now(),0,1)"
	conn.execute(sql)                                       

	content=rs("UserName")&"购买宠物："&rs("type")&":"&rs("sheepname")
	call logs("用户","宠物交易",dvbbs.membername)


%>
  </tr>
</table>
  </center>
</div>

  <center>
<table border="0" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="80">
  <tr>
    <td class=tablebody1 class=p3 width="100%"><p align="center"><a href="feedsheepme.asp">开始照顾您的<%=sheeptype%>:<%=sheepname%>吧！</a></td>
  </tr>
</table>
  </center>
   </td>
   </tr>
   </table>
   </table>
   </table>

<%
end sub
	Dvbbs.Footer

%>