feedsheepme.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="connsheep.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="sheepconfig.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<%
Response.Buffer=True 
Dvbbs.stats="喂养动物"
Dvbbs.nav()
Dvbbs.Head_var 2,0,"",""
session("username")=request.cookies("aspsky")("username")
%>
          <table cellpadding=3  width="100%" cellspacing=1 align=center  border="0"> 
                  <tr><td width="100%" align="center" valign="middle">

<%
call sheephead()
if request("action")="send" then
call send()
else
call feed()
end if
%>
</td></tr></table>
<%sub feed()
dim username
username=dvbbs.membername
if username=""  then
response.redirect"login.asp"
end if
%>
						 <table class=tableborder1 cellspacing=1 cellpadding=3 align=center>
                  <tr> <td class="tablebody1" height="25" width="40%">
<!--#include file="usersheep.asp"-->				</td>
		  
<td class="tablebody1" height="25" width="60%" valign="top">
	  <%
              set rs=server.createobject("adodb.recordset")
              rs.open"select * from sheep where username='"&username&"'",conn1,1,3
              dim find
              if rs.bof then
                 find=false
                 rs.close
                 response.write "您还没有领养小宠物呢！快去<a href=indexsheep.asp>领养一只</a>吧"
               else
                  find=true%>
                   <img border="0" src="images/dot2.gif">-请填选择你的小宠物：
                 <%end if%>
				 <%if find then call writetable() %>
				 <p align="center">
<table   cellspacing="1" align="center">
 <tr>
            <td  width=20% height="30" valign="bottom"> 
    <form name="form2" method="post" action="feedsheepme.asp?action=send">
	将我的宠物&nbsp;&nbsp;<INPUT name=mydoy>&nbsp;&nbsp;送给我的朋友&nbsp;&nbsp;<INPUT name=myfriend>
                  <INPUT type=submit value=送出 name=submit></form>
		</td> 
</tr>
</table>
</p>
            </tr>
		 </table>
<%end sub

sub writetable()
%>
<p align="center">
<table class=tableborder1 cellspacing="1" align="center" style="width:98%">
<% 
dim iii,col,row,jrow,jcol
row=int(rs.recordcount/5+0.99)
iii=1
for jrow=1 to row
%>
      <tr> 
<%
if jrow<row then'每行5列
for jcol=1 to 5
  %>
           <td class=tablebody1 width=20% height="30">
		   <a href=checksheep.asp?id=<%=rs("id")%>>
          <%=rs("type")%>:<%=rs("sheepname")%></a>
            </td> 
<%
	rs.movenext
next
%>
</tr>
<%
else'每行小于或等于5列
%>
<tr>
<%
     for jcol=1 to rs.recordcount-(jrow-1)*5
      %>
           <td class=tablebody1  width=20% height="30" > 
          <a href=checksheep.asp?id=<%=rs("id")%>>
          <%=rs("type")%>:<%=rs("sheepname")%></a>
        </td> 

    <%
	rs.movenext
    next
for jcol=rs.recordcount-(jrow-1)*5+1 to 5'补足尾行
      %>
           <td class=tablebody1 width=20% height="30" > 
            </td> 
    <%
next
   %>
</tr>
   <%
  end if
next
 %>
</table>
</p>
<%
end sub
sub send()
dim mydoy,myfriend,doytype
dim title,message,sucmsg
     mydoy=request("mydoy")
     myfriend=request("myfriend")
	 if isnull(mydoy) or isnull(myfriend) then
	 				Errmsg=Errmsg+"<br>"+"<li>请阁下不要试图翻越围墙进入农场，否则我们的狼狗会对你的人身安全不利。"
					dvbbs.FoundIsChallenge=true
	 end if
	 if mydoy="" then
	 			Errmsg=Errmsg+"<br>"+"<li>请输入你要赠送的宠物名。"
					dvbbs.FoundIsChallenge=true
	 end if
	 
	 if myfriend="" then
	 			Errmsg=Errmsg+"<br>"+"<li>请输入你要赠送宠物的对象。"
					dvbbs.FoundIsChallenge=true
	 end if
	 if   dvbbs.FoundIsChallenge then
	 				call bank_err("")
					exit sub
	end if

	 set rs=nothing
	   	set rs=server.createobject("adodb.recordset")
	   	set rs=conn.execute("select * from [dv_user] where username='"&myfriend&"'")
	   	if rs.bof and rs.eof then
			Errmsg=Errmsg+"<br>"+"<li>论坛上没有["&myfriend&"]这个用户"
    		call bank_err("")
			rs.close
			exit sub
       end if
		if  rs("usersex") then
	    sucmsg="他"
		else
	    sucmsg="她"
		end if
		rs.close
	   	set rs=conn.execute("select * from [dv_user] where username='"&dvbbs.membername&"'")
        if  rs("usersex") then
	    message="先生"
		else
	    message="女士"
		end if
         if  rs("usersex") then
	    content="他的"
		else
	    content="她的"
		end if
        rs.close	
	   	sql="select * from sheep where username='"&dvbbs.membername&"' and sheepname='"&mydoy&"' "
	   	rs.open sql,conn1,1,3
        if rs.eof and rs.bof then
			Errmsg=Errmsg+"<br>"+"<li>您没有["&mydoy&"]这个宠物!!!"
			call bank_err("")
			exit sub
 		else 
				rs("username")=myfriend
				doytype=rs("type")
				rs.update
				rs.close
		end if
title="赠送宠物的用户通知书"
message="亲爱的客户"&myfriend&"同志："&chr(10)&"    您好!您的朋友"&dvbbs.membername&message&"将:"&content&"宠物："&doytype&" "&mydoy&"送给您了，请注意查收。"
	sql="insert into dv_message (incept,sender,title,content,sendtime,flag,issend) values ('"&myfriend&"','"&"农场办公室"&"','"&title&"','"&message&"',Now(),0,1)"
	conn.execute(sql)                                       
	content=dvbbs.membername&"将宠物："&doytype&"["&mydoy&"]赠送给["&myfriend&"]"
	call logs("用户","宠物赠送",dvbbs.membername)
				sucmsg="<br>"+"<li>您的"&doytype&":"&mydoy&"已经被转送给了你的朋友："&myfriend&"，我们会以短消息的方式通知"&sucmsg
				call bank_suc("feedsheepme.asp")
end sub
dvbbs.activeonline()
dvbbs.footer()
%>