shop.asp

ASP整套的建站源代码

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

if instr(Request.Cookies("username")," ")>0 then:error("<li>非法操作"):end if

sql="select * from user where username='"&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="750" 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="index.asp"><%=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" width="221" height="81"></TD>
<TD COLSPAN=2 height="54" bgcolor="#A5B6D6">
</TD>
<TD ROWSPAN=4 height="357">
<IMG SRC="images/plus/001_04.gif" width="10" height="453"></TD>
<TD ROWSPAN=4 height="357">
</TD>
</TR>
<TR>
<TD COLSPAN=2 height="27">
<IMG SRC="images/plus/001_06.gif" width="466" height="27"></TD>
</TR>
<TR>
<TD ROWSPAN=2 height="357">
<IMG SRC="images/plus/001_07.gif" width="25" height="372"></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">
<div align="center">
<center>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width="90%" height="97">
<tr>
<td width="50%" height="9" bgcolor="#A4B6D7" align="center"><font color="#FFFFFF"><b>
体力药丸</b></font></td>
<td width="50%" height="9" bgcolor="#A4B6D7" align="center"><font color="#FFFFFF"><b>
经验药丸</b></font></td>
</tr>
<tr>
<td width="100%" height="88" colspan="2">
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="494">
<tr>
<td width="15%"><form method=POST action=?menu=thew><FONT color=#cccccc>
<IMG src="images/plus/9.gif" border=1></FONT></td>
<td valign="top" width="35%"><br>
名称：体力药丸<br>
价格：100$<br>
功能：快速补充体力<br>
<input type="submit" value="我要购买" name="Submit"></td></form>
<td width="15%"><FONT color=#cccccc>
<IMG src="images/plus/7.gif" border=1></FONT></td>
<td valign="top" width="35%"><form method=POST action=?menu=experience><br>
名称：经验药丸<br>
价格：300$<br>
功能：提升经验<br>
数量：<input maxLength="2" size="2" name="how" value="1">
<input type="submit" value="我要购买" name="Submit"></td></form>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>


<tr>
<td width="100%" height="97">　<div align="center">
<center>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width="90%">
<tr>
<td width="50%" height="9" bgcolor="#A4B6D7" align="center"><font color="#FFFFFF"><b>
ＩＰ查看器</b></font></td>
<td width="50%" height="9" bgcolor="#A4B6D7" align="center"><font color="#FFFFFF"><b>
讯息群发器</b></font></td>
</tr>
<tr>
<td width="100%" height="88" colspan="2">
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="494">
<tr>
<td width="15%"><FONT color=#cccccc>
<IMG src="images/plus/lookip.gif" border=1></FONT></td>
<td valign="top" width="35%"><form method=POST action=?menu=lookip><br>
名称：ＩＰ查看器<br>
价格：800$<br>
功能：查看在线会员的IP<br>
<span style="FONT-SIZE: 14px; LINE-HEIGHT: 17pt">
<input type="submit" value="我要购买" name="Submit"></span></td></form>
<td width="15%"><FONT color=#cccccc>
<IMG src="images/plus/colony.gif" border=1></FONT></td>
<td valign="top" width="35%"><br>
名称：讯息群发器<br>
价格：2000$<br>
功能：群发讯息给在线会员<br>
<input type="submit" value="我要购买" name="Submit"  onclick="colony()"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>





</table>
</center>
</div>
</td>
</tr><tr>
<td width="100%" height="98" valign="bottom">
<p align="right">　<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="16%">
<p align="right"><img border="0" src="images/plus/doctor.gif"></td>
<td width="57%">┏ 您现在共有 ━━━━━┓<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%">
<a href="index.asp">
<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" width="99" height="372"></TD>
</TR>
<TR>
<TD COLSPAN=2 height="1">
<IMG SRC="images/plus/001_10.gif" width="563" height="12"></TD>
</TR>
</TABLE>
<%
rs.close
htmlend%>