用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月16日 星期三  您現在位于: 首頁 → 技術文欄 → 積分換水的代碼-游戲相關(紅月:積分換水的代碼)

積分換水的代碼

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
%>

 (本文已被瀏覽 15868 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:有防盜碼的升華排行代碼
下篇文章:添加紅月裝備的詳細教程 (包括裝備 武器 界面 ...
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.000s, 8 queries, 35 Cache,0 Online  
福建11选5遗漏