📄 userscoreset.asp

📁 网络棋牌服务端简单的聊天程序界面
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<%
if session("chat_admin")<>"yes" then
  response.redirect "login.asp"
  response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改某个注册用户的游戏等级分</title>
<style type="text/css">
<!--
.p9 {font-size: 10pt; line-height: 14pt }
-->
</style>
</head>
<body topmargin="3" leftmargin="3">
<table border="0" width="100%" bgcolor="#C8C9D2">
  <tr>
    <td width="52%"><a href="index.asp">系统管理首页</a>-><strong>聊天室的其他一些设置</strong></td>
    <td width="48%">
      <p align="right" class="p9"><a href="logout.asp"><font color=red>退出系统</font></a>&nbsp;&nbsp; <a href="http://www.easyfad.com">技术支持</a>&nbsp;&nbsp; <a href="http://www.jchat.com.cn">关于JChat</a></td>
  </tr>
</table>
<table border="0" width="100%" height="85%" bgcolor="#E7E7EB">
  <tr>
    <td width="100%" class="p9" valign="top"><br>
<% 
gameid=trim(request.form("gameid"))
uname=trim(request.form("uname"))
score=-12346
on error resume next
score=cint(trim(request.form("score")))
allgamename=Array("围棋","象棋","五子棋","国际象棋","军棋","四国军旗","拖拉机","麻将","锄大D","跑得快","拱猪","斗地主","梭哈","暗棋","21点","俄罗斯方块")
allgameid=Array("wq","xq","wzq","chess","jq","sgjq","tlj","mj","cdd","pdk","gz","ddz","sh","aq","21d","fk")
gamename=gameid
m=0
do while m< UBound(allgameid)
  if allgameid(m)=gameid then gamename=allgamename(m)
  m=m+1
loop
if isnull(gameid) or gameid="" then  
 response.write "修改失败！请先选择一个游戏！"
elseif isnull(uname) or uname="" then  
 response.write "修改失败！你没有输入要修改等级分的用户名！"
elseif score=-12346 then  
 response.write "修改失败！你输入的等级分不是一个合法的数字！"
else
 Conn = DBCN()
 sql="select userid from [user] where username='" & uname & "'"
 set rs = Server.CreateObject("ADODB.Recordset")
 rs.open sql,conn,3
 if rs.eof then
   response.write "修改失败！没有找到名字为<font color=red>"&uname&"</font>的注册用户！"
   response.end
 else
  userid=rs(0)
  rs.close  
  sql="select * from "&gameid&"_score where userid=" & userid
  rs.open sql,conn,3,3
  if rs.eof then
    rs.addnew
    rs("userid")=userid
    rs("score")=score
    rs("ying")=0
    rs("shu")=0
    rs("he")=0
    rs("gamecount")=0
    rs("diaoxian")=0
    rs("taopao")=0
  else
    rs("score")=score
  end if
  rs.update 
  rs.close
  response.write "修改<font color=red>" &uname & "</font> 在 <font color=red>"&gamename & "</font>游戏中的等级分为：<font color=red>"& score &"</font>成功！"
 end if
end if
%>
 <a href="#" onclick="history.back(0);return false;">返 回</a>
　</td>
  </tr>
</table>
<table border="0" width="100%" bgcolor="#C8C9D2">
  <tr>
    <td width="100%" class="p9">
      <p align="right">版本：<font color="#FF0000">JGame V2.0.3</font>&nbsp;&nbsp;</p> 
    </td> 
  </tr> 
</table> 
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -