📄 gwzx.asp
字号:
<!--#include file="SHOPLib.asp"-->
<%
bug = Command("102|社区购物")
if Request.QueryString("tag") <> "" then
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
ShowError 4,"对不起，您未注册！"
Response.End
else
select case Request.QueryString("tag")
case "0"
ret = Command("104|"&Request.Cookies("NC"))
if GetPart(ret,1) <> "0" then
ShowError 4,GetPart(ret,2)
Response.End
else
if Int(GetPart(ret,25)) = 100 then
ShowError 4,"您的体力已正常，不需要再恢复！"
Response.End
else
if Int(GetPart(ret,26)) < Int(Request.QueryString("金钱")) then
ShowError 4,"对不起，你的钱不够！"
Response.End
else
rat = Command("125|0|"&Request.QueryString("状况")&"|0|-"&Request.QueryString("金钱"))
if GetPart(rat,1) <> "0" then
ShowMessage 4,"对不起，购买没有成功！"
Response.End
else
if 100 - Int(GetPart(ret,25)) > Int(Request.QueryString("状况")) then
ShowMessage 4, "恭喜，您已经恢复了"&Request.QueryString ("状况")&"点体力！"
else
ShowMessage 4,"恭喜，您已经恢复了全部体力！"
end if
end if
end if
end if
end if
case "1"
ret = Command("104|"&Request.Cookies("NC"))
if GetPart(ret,1) <> "0" then
ShowError 4,GetPart(ret,2)
Response.End
else
if Int(GetPart(ret,26)) < Int(Request.QueryString("金钱")) then
ShowError 4,"对不起，你的钱不够！"
Response.End
else
ret = Command("125|"&Request.QueryString("状况")&"|0|0|-"&Request.QueryString("金钱"))
if GetPart(ret,1) <> "0" then
ShowMessage 4,"对不起，购买没有成功！"
else
ShowMessage 4,"恭喜，您已经增加了"&Request.QueryString("状况")&"点经验！"
end if
end if
end if
case "2"
ret = Command("104|"&Request.Cookies("NC"))
if GetPart(ret,1) <> "0" then
ShowError 4,GetPart(ret,2)
Response.End
else
if Int(GetPart(ret,26)) < Int(Request.QueryString("金钱")) then
ShowError 4,"对不起，你的钱不够！"
Response.End
else
ret = Command("125|0|0|"&Request.QueryString("状况")&"|-"&Request.QueryString("金钱"))
if GetPart(ret,1) <> "0" then
ShowMessage 4,"对不起，购买没有成功！"
else
ShowMessage 4,"恭喜，您已经增加了"&Request.QueryString("状况")&"点魅力！"
end if
end if
end if
end select
end if
Response.End
end if
if Request.QueryString("pic") <> "" then
if Request.Cookies("NC")="" or Request.Cookies("NC")="访客" then
ShowError 4,"对不起，您未注册！"
Response.End
else
if Request.QueryString("pic") <> "" then
ret = Command("104|"&Request.Cookies("NC"))
if GetPart(ret,1) <> "0" then
ShowError 4,GetPart(ret,2)
Response.End
else
if Int(GetPart(ret,26)) < Int(Request.QueryString("金钱")) then
ShowError 4,"对不起，你的钱不够！"
Response.End
else
Response.Write("<SCRIPT LANGUAGE=javascript>"&Chr(13)&Chr(10))
Response.Write("<!--"&Chr(13)&Chr(10))
Response.Write("l = screen.width/2-165;"&Chr(13)&Chr(10))
Response.Write("t = screen.height/2-110;"&Chr(13)&Chr(10))
Response.Write("window.open('lw.asp?msg="&Request.QueryString("pic")&"&mc="&Request.QueryString("名称")&"&ml="&Request.QueryString("魅力")&"&jq="&Request.QueryString("金钱")&"','flw','scrollbars=no,toolbar=no,menubar=no,location=no,status=no,resizable=no,width=330,height=220,left='"&"+l+"&"',top='"&"+t);"&Chr(13)&Chr(10))
Response.Write("//-->"&Chr(13)&Chr(10))
Response.Write("</SCRIPT>"&Chr(13)&Chr(10))
Response.End
end if
end if
end if
end if
Response.End
end if
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>社区购物</title>
<style type="text/css">
<!--
a,body,td { font-family: "宋体"; font-size: 12px}
.p9 { font-family: "宋体"; font-size: 12px}
A:link{font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:visited {font-size:12px;COLOR:black;TEXT-DECORATION: none}
A:hover {font-size:12px;COLOR: red; TEXT-DECORATION: underline}
-->
</style>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
window.resizeTo(screen.availWidth,screen.availHeight);
function ShowEL() {
tab0.style.display = 'none';
tab1.style.display = '';
line.innerText = '商店二楼';
}
function ShowYL() {
tab0.style.display = '';
tab1.style.display = 'none';
line.innerText = '商店一楼';
}
function eat(t,money,number) {
iHIDE.location.replace('gwzx.asp?tag='+t+'&金钱='+money+'&状况='+number);
}
function buy(t,money,ml,lan) {
iHIDE.location.replace('gwzx.asp?pic='+t+'&金钱='+money+'&名称='+lan+'&魅力='+ml);
}
//-->
</SCRIPT>
</head>
<body bgcolor="#CEE7FF">
<table width="80%" border="0" cellpadding="0" cellspacing="0" align="center" bgcolor="#EFF5FA">
<tr>
<td><br>
<div align="center"><span class="p9"><a href="javascript:ShowYL()">商店一楼：只能自己享用的物品</a> <a href="javascript:ShowEL()">商店二楼：送给朋友的精美礼品</a></span>
</div>
</td>
</tr>
<tr>
<td>
<table id=tab0 name=tab0 width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class=p9><br>郑重声明：本商店一切物品和金钱均属虚拟，仅供娱乐。<br><br></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="33%">
<div align="center">
<table width="70%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr bgcolor="#FFFFFF">
<td height="40">
<div align="center"><img src="images/yt.jpg" width="100" height="100" vspace="6"></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="p9" height="18">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="p9" height="20"> 标价：金钱50
</td>
</tr>
<tr>
<td class="p9" height="20"> 功能：体力恢复10</td>
</tr>
<tr>
<td class="p9" height="20">
<div align="center"><a href="javascript:eat(0,50,10)">现在购买</a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
<td width="33%">
<div align="center">
<table width="70%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" >
<tr bgcolor="#FFFFFF">
<td height="40">
<div align="center"><img src="images/drinks.jpg" width="100" height="100" vspace="6"></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td class="p9" height="18">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="p9" height="20"> 标价：金钱120
</td>
</tr>
<tr>
<td class="p9" height="20"> 功能：体力恢复25</td>
</tr>
<tr>
<td class="p9" height="20">
<div align="center"><a href="javascript:eat(0,120,25)">现在购买</a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -