用户名:  密码:  验证码: 验证码  注册  找回
RSS
无双网
 2018年05月27日 星期日  您现在位于: 首页 → 技术文栏 → 积分换水的代码-游戏相关(红月:积分换水的代码)

积分换水的代码

2009年11月18日  无双网  出处:
第一页

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>尼诺网游</TITLE>
<style type="text/css">
<!--
.style1 {color: #000000}
body {
background-color: #E7E7D6;
}
.style2 {font-size: 12px}
.style7 {color: #000000; font-size: 12px; }
-->
</style>
</head>
<body style="background-color: #9C0101">
<table width="413" border="0" align="center">
   <tr>
     <td width="407" valign="top" bgcolor="#9C0101"><form name="form1" method="post" action="item.asp">
         <table width="400" border="0" align="center" class="write3">
           <tr>
             <td colspan="2"><div align="center" class="style1 style2"><span class="lanyubk"> <div align="center">
                 <b>
     <font color=#0000FF>积分兑换石头</font></b></div>
                 </div>
               </span>
           </tr>
           <tr>
             <td width="145">
    <p align="center"><span class="style7">角色帐号<font face="Arial">:</font></span></td>
             <td width="239"><font face="Arial"><input name="ps_loginname" type="text" id="ps_loginname" size="12" maxlength="16"></font></td>
           </tr>
           <tr>
             <td>
    <p align="center"><span class="style7">帐号密码<font face="Arial">:</font></span></td>
             <td><font face="Arial"><input name="ps_mima" type="password" id="ps_mima2" size="12" maxlength="16"></font></td>
           </tr>
           <tr>
             <td>
    <p align="center"><span class="style7">角色名字<font face="Arial">:</font></span></td>
             <td><font face="Arial"><input name="ps_mingzi" type="text" id="ps_mingzi" size="12" maxlength="16"></font></td>
           </tr>
           <tr>
             <td colspan="2"><div align="center" class="style7">
                 <font face="Arial">
                 <input type="submit" name="Submit" value="提交">                
               <input type="reset" name="Submit2" value="重置">            </font>            </div></td>
           </tr>
           <tr>
             <td colspan="2">
               <p align="left" class="style7"><b>
     <font face="Arial" color="#800000"> </font><font color="#FFFFFF">积分兑换使用说明</font><font face="Arial" color="#FFFFFF">:</font></b></p>
               <p align="left" class="style7">
     <font face="Arial" color="#FFFFFF">1.</font><font color="#FFFFFF">积分为每个角色在线时间的累计</font><font face="Arial" color="#FFFFFF">.</font><font color="#FFFFFF">在线一分钟</font><font face="Arial" color="#FFFFFF">.</font><font color="#FFFFFF">等于一个积分</font></p>
               <p align="left" class="style7">
     <font face="Arial" color="#FFFFFF">2.所有用户可以用自己的积分去兑换自己所需要的物品跟服务  
     </font></p>
           </tr>
         </table>
         <p> </p>
     </form></td>
   </tr>
</table>
</body>
</html>

第二页

<!--#include file="conn.asp" -->
<title>尼诺网游</title>
<FONT face="宋体"></FONT>
<%
ps_loginname=request.form("ps_loginname")
ps_mingzi=request.form("ps_mingzi")
check=request.Form("check")

'验证帐号是否在线
set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT COUNT(billid) as count_bill FROM tblOccupiedBillID where billid = '"&ps_loginname&"'" 
rs.open sql,conn,1,1
if rs("count_bill")>0 then
response.write "<script language=javascript>alert('您的帐号在线,请下线以后在进行兑换!');history.back();</script>"
response.end
end if
rs.close

checkdata(ps_loginname)
if instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 or ps_loginname="" then
response.write "<script language=javascript>alert('您输入的用户名不符合要求!');history.back();</script>"
response.end
end if
if instr(ps_mingzi,"'")<>0 or instr(ps_mingzi,"=")<>0 or instr(ps_mingzi,"&")<>0 or instr(ps_mingzi,"%")<>0 or ps_mingzi="" then
response.write "<script language=javascript>alert('您输入角色名不符合要求!');history.back();</script>"
response.end
end if

sql="select * from tblBillID where billid = '"&ps_loginname&"'" 
rs.open sql,conn,1,1
total_jifen=rs("TotalRunTime")
rs.close 

'兑换生命水
if check =1 then 
quantity=request.form("quantity")
jifen=quantity*50
if total_jifen<jifen then
   response.write "<script language=javascript>alert('您的在线时间不足啦,请继续努力!');history.back();</script>"
   response.end
else
   gamebouns=total_jifen-jifen
   sql="update tblBillID set TotalRunTime = '"&gamebouns&"' where billid = '"&ps_loginname&"'" 
   rs.open sql,conn,1,1
   rs.close
   times=now()
   sql="insert tblMail1 (Time, Recipient, Sender, ReadOrNot, Title, Line, Content, Item) values('"×&"''"&ps_mingzi&"''尼诺网游''0''兑换奖品''13''感谢您对我们服务器的支持,祝您玩得开心!''')"
   rs.open sql,conn,1,1
   rs.close
   sql="insert tblSpecialItem1 (ItemKind, ItemIndex, ItemDurability, Position, Map, X, Y, TileKind, GameID, WindowKind, WindowIndex, MiscTime) values ('6''196''4''2''1''100''100''1''"&ps_mingzi&"''100''0''"×&"')"
   for i=1 to cint(quantity)
    rs.open sql,conn,1,1
   next
   rs.close
   sql="insert gamebouns (游戏人物,兑换物品,兑换数量,兑换日期,使用积分,剩余积分) values ('"&ps_mingzi&"''196''"&quantity&"''"×&"''"&jifen&"','"&gamebouns&"')"
   rs.open sql,conn,1,1
   rs.close
   response.write "<script language=javascript>alert('您的奖品已经发放到您的信箱,请查收!');location.href='index.asp';</script>"
   response.end
end if
end if



set rs=nothing
conn.close
set conn=nothing
%>

 (本文已被浏览 10234 次)
 发布人:asp126
 → 推荐给我的好友
上篇文章:有防盗码的升华排行代码
下篇文章:添加红月装备的详细教程 (包括装备 武器 界面 ...
发表评论
  → 评论内容 (点击查看)   共0条评论,每页显示5条评论   浏览所有评论
(没有相关评论)
  → 发表我的评论 (点击发表)
热门文章
 全部DLL下载
 手机解锁大全
 添加红月装备的详细教程 (包括装备 武...
 42个搜索引擎免费登陆入口大全 (国内...
 MSFlexGrid使用技巧一例
 保存webbrowser中的HTML内...
 用vb6的ActiveX控件实现异步下...
 PC经典RPG《仙剑奇侠传Ⅰ》for PP...
 用VB6.0设计简易赛车游戏
 能否判断动态数组有没有被分配过
最新文章
 [ODBC SQL Server Driv...
 评论:115网盘的何去何从
 我科学家实现百公里量级自由空间量子隐形...
 中国智能手机出货量占全球27%居世界之...
 Gartner:2012 第二季度西欧 P...
 [多图]华山论剑:当今在世的智商最高的...
 三星获出租车服务系统专利 可快速查看驾...
 [多图]15项可能延续到2030年的科...
 分析称苹果三星专利大战输赢已成定论
 Google终获云操作系统专利
 网站留言· 友情链接·与我在线·网站地图联系我们·管理·TOP 
 陕ICP备09004157号  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.016s, 8 queries, 34 Cache,0 Online