shop.asp

一个超市管理系统

<!-- #include file="setup.asp" -->
<%
if Request.Cookies("username")="" then
error("<li>您还还未<a href=login.asp>登陆</a>社区")
end if


sql="select * from user where username='"&HTMLEncode(Request.Cookies("username"))&"'"
rs.Open sql,Conn,1,3

if Request.Cookies("userpass")<>rs("userpass") then
error2("密码错误！")
end if


select case Request("menu")

case "experience"

if Request("how")<1 then
message=message&"<li>数量不能 < 1"
error(message)
end if

if rs("money")<300*Request("how") then
message=message&"<li>您的钱不够！"
error(message)
end if
Randomize
d1=fix(rnd*300)+1
rs("experience")=rs("experience")+d1*Request("how")
rs("money")=rs("money")-300*Request("how")
rs.update
rs.close
error2("已经增加了 "&d1*Request("how")&" 点经验值！")

case "lookip"
if rs("money")<800 then
error("<li>您的钱不够！")
end if
rs("money")=rs("money")-800
rs.update
rs.close
Response.Cookies("lookip")=1
response.redirect "online.asp"


case "colony"
if Request("content")="" then
error2("请填写群发内容!")
end if
if rs("money")<2000 then
error("<li>您的钱不够！")
end if
rs("money")=rs("money")-2000
rs.update
rs.close
sql="select * from online where username<>''"
rs1.Open sql,Conn
do while not rs1.eof
Count=Count+1
rs.Open "message",conn,1,3
rs.addnew
rs("author")=""&Request.Cookies("username")&""
rs("incept")=""&rs1("username")&""
rs("content")="【会员广播】："&Request("content")&""
rs("time")=now
rs.update
rs.close
conn.execute("update [user] set newmessage=newmessage+1 where username='"&rs1("username")&"'")
rs1.movenext
loop
rs1.close
error2("发送成功！\n\n共发送给 "&Count&" 位在线会员")



case "thew"
if rs("money")<100 then
message=message&"<li>您的钱不够！"
error(message)
end if
if rs("userlife")=100 then
message=message&"<li>体力已满，无需增加！"
error(message)
end if
rs("money")=rs("money")-100
rs("userlife")=100
rs.update
rs.close
error2("您的体力已经全满！")

end select
top
%>



<title>社区商场</title>

<SCRIPT>
function colony(){
var id=prompt("请输入你要群发的讯息！","");if(id){document.location='?menu=colony&content='+id+'';}
}
</SCRIPT>
<center>
<table width=97% align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href=Default.asp?menu=listtitle><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　社区商场</td>
</tr>
</table>
<TABLE WIDTH=743 BORDER=0 CELLPADDING=0 CELLSPACING=0 height="357">
<TR>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=19 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=25 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=196 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=367 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=99 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=10 HEIGHT=1></TD>
<TD height="1">
<IMG SRC="images/plus/Spacer.gif" WIDTH=27 HEIGHT=1></TD>
</TR><TR>
<TD ROWSPAN=4 height="357">
</TD>
<TD COLSPAN=2 ROWSPAN=2 height="81">
<IMG SRC="images/plus/001_02.gif"></TD>
<TD COLSPAN=2 height="54">
</TD>
<TD ROWSPAN=4 height="357">
　</TD>
<TD ROWSPAN=4 height="357">
</TD>
</TR>
<TR>
<TD COLSPAN=2 height="27">
<IMG SRC="images/plus/001_06.gif"></TD>
</TR>
<TR>
<TD ROWSPAN=2 height="357">
<IMG SRC="images/plus/001_07.gif"></TD>
<TD COLSPAN=2 height="357">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%">
<tr>
<td width="100%" height="97" bgcolor="#FFFFFF">
<div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="1" width="90%" height="97" class=a2>
<tr class=a1>
<td width="50%" height="5" align="center" colspan="2"><font color="#FFFFFF"><b>
体力药丸</b></font></td>
<td width="50%" height="5" align="center" colspan="2"><font color="#FFFFFF"><b>
经验药丸</b></font></td>
</tr>
<tr>
<td width="15%" height="4" align="center" bgcolor="#FFFFFF" rowspan="2"><FONT color=#cccccc>
<IMG src="images/plus/9.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="#FFFFFF">名称：体力药丸<br>
价格：100$<br>
功能：快速补充体力</td>
<td width="15%" height="4" align="center" bgcolor="#FFFFFF" rowspan="2"><FONT color=#cccccc>
<IMG src="images/plus/7.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="#FFFFFF">
  名称：经验药丸<br>
  价格：300$<br>
  功能：提升经验</td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="#FFFFFF"><form method=POST action=?menu=thew>
<input type="submit" value="我要购买" name="Submit"></td></form>
<td width="25%" height="2" bgcolor="#FFFFFF"><form method=POST action=?menu=experience>
数量：<input maxLength="2" size="2" name="how" value="1">
<input type="submit" value="我要购买" name="Submit"></td></form>
</tr>
</table>
</center>
</div>
</td>
</tr>


<tr>
<td width="100%" height="97" bgcolor="#FFFFFF">　<div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="1" width="90%" class=a2>
<tr class=a1>
<td width="50%" height="5" align="center" colspan="2"><font color="#FFFFFF"><b>
ＩＰ查看器</b></font></td>
<td width="50%" height="5" align="center" colspan="2"><font color="#FFFFFF"><b>
讯息群发器</b></font></td>
</tr>
<tr>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="#FFFFFF"><FONT color=#cccccc>
<IMG src="images/plus/lookip.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="#FFFFFF">名称：ＩＰ查看器<br>
价格：800$<br>
功能：查看在线会员的IP</td>
<td width="15%" height="4" align="center" rowspan="2" bgcolor="#FFFFFF"><FONT color=#cccccc>
<IMG src="images/plus/colony.gif" border=1></FONT></td>
<td width="25%" height="2" bgcolor="#FFFFFF">名称：讯息群发器<br>
价格：2000$<br>
功能：群发讯息给在线会员</td>
</tr>
<tr>
<td width="25%" height="2" bgcolor="#FFFFFF"><form method=POST action=?menu=lookip>
<input type="submit" value="我要购买" name="Submit"></td></form>
<td width="25%" height="2" bgcolor="#FFFFFF">
<input type="submit" value="我要购买" name="Submit"  onclick="colony()"></td>
</tr>





</table>
</center>
</div>
</td>
</tr><tr>
<td width="100%" height="98" valign="bottom" bgcolor="#FFFFFF">
<p align="right">　<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="16%" bgcolor="#FFFFFF">
<p align="right"><img border="0" src="images/plus/doctor.gif"></td>
<td width="57%" bgcolor="#FFFFFF">┏ 您现在共有 ━━━━━┓<br>┃金钱值:<%=rs("money")%><br>┃经验值:<%=rs("experience")%><br>
┃体力值:<img border="0" src="images/red.gif" width="<%=rs("userlife")/2%>" height="9" alt="<%=rs("userlife")%>">&nbsp;[<%=rs("userlife")%>]<br>┗━━━━━━━━━━━┛</td>
<td width="27%" bgcolor="#FFFFFF">
<a href=Default.asp?menu=listtitle>
<img src="images/plus/exit.gif" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</TD>
<TD ROWSPAN=2 height="357">
<IMG SRC="images/plus/001_09.gif"></TD>
</TR>
<TR>
<TD COLSPAN=2 height="1">
<IMG SRC="images/plus/001_10.gif"></TD>
</TR>
</TABLE>
<%
rs.close
htmlend%>