📄 sellmilk.asp
字号:
<!--#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,"",""
call sellsheep()
sub sellsheep()
session("username")=request.cookies("aspsky")("username")
session("username")=Dvbbs.MemberName
%>
<%
dim username,sheepname,id
username=request.cookies("aspsky")("username")
username=Dvbbs.MemberName
if username="" then
response.redirect"login.asp"
end if
sheepname=request.form("sheepname")
id=request.form("id")
if sheepname="" then
response.redirect"login.asp"
end if
%>
<%
dim milk
dim intmilk,sheeptype,milkprice,milkname
sheeptype=request.form("sheeptype")
set rs=server.createobject("adodb.recordset")
rs.open"select * from rules where type='"&sheeptype&"'",conn1,1,1
if rs.eof then
rs.close
Errmsg=Errmsg+"<li>没有找到"&sheeptype&"的规则，请同管理员联系。"
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
milkname=rs("milkname")
milkprice=rs("milkprice")
rs.close
if session("username")="" then
Errmsg=Errmsg+ "<li>您没有参加卖"&milkname&"的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
sheepname=request.form("sheepname")
milk=request.form("milk")
if sheepname="" or not isnumeric(milk) then
Errmsg=Errmsg+"<li>"&milkname&"数填写错误，请重新输入要卖的"&milkname
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
intmilk=milk-int(milk)
if intmilk<>0 or milk<1 then
Errmsg=Errmsg+ "<li>"&milkname&"数填写错误，请重新输入要卖的"&milkname
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
rs.open"select * from sheep where username='"&session("username")&"' and sheepname='"&sheepname&"'",conn1,1,1
if rs.bof then
rs.close
conn1.close
Errmsg=Errmsg+"<li>"&sheepname&"又不是你的，你来卖什么"&milkname&"!欠扁了你？"
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
dim milklast
milklast=rs("milk")-milk
if milklast<0 then
rs.close
conn1.close
Errmsg=Errmsg+ "<li>你的"&milkname&"不够，怎么卖？"
dvbbs.FoundIsChallenge=true
dvbbs_error()
exit sub
end if
conn1.execute"update sheep set milk='"&milklast&"' where username='"&session("username")&"' and sheepname='"&sheepname&"'"
dim tempuserWealth
tempuserWealth=milkprice*milk
conn.execute"update [dv_user] set userWealth=userWealth+'"&tempuserWealth&"' where username='"&session("username")&"'"
conn.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="inc/FORUM_CSS" type="tex/css">
</head>
<body topmargin="0">
<div align="center">
<center>
<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%">
<div align="center">
<center>
<table width="100%" align=center>
<tr>
<td class="p6" height="25" width="100%"><img src=images/dot1.gif>-您的当前位置
→ <a href="index.sap">
<%=dvbbs.Forum_info(0)%></a>
→<a href=indexsheep.asp> 社区农场</a>→卖<%=milkname%></td>
</tr>
</table>
</center>
</div>
<table border="0" width="100%" cellspacing="1" cellpadding="0" height="50">
<tr>
<td class=p2 width="100%">
<%
content="卖"&sheepname&"的"&milkname&",共获金钱："&tempuserWealth&"元"
call logs("用户","产品交易",dvbbs.membername)
sucmsg=sucmsg+"<br>"+"<li>恭喜！ 您已经成功卖出"&milkname&"，共获得金钱："&tempuserWealth&"元"
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
call bank_suc("checksheep.asp?id="&id)
%>
</td>
</tr>
</table>
</td></tr></table></table>
</div>
</body>
</html>
<%
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -