📄 useredit_save.asp

📁 网络棋牌服务端简单的聊天程序界面
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<% 
if session("chat_admin")<>"yes" then
  response.redirect "login.asp"
  response.end
end if
reg_err=""
username=trim(request.form("username"))
password=request.form("password")
userid=request.form("userid")
email=request.form("email")
homepage=request.form("homepage")
oicq=request.form("oicq")
biography=request.form("biography")
experi=request.form("experi")
money=request.form("money")
bmoney=request.form("bmoney")
meili=request.form("meili")
kickcount=request.form("kickcount")
myurl=request.form("myurl")
if username="" or password="" or userid="" or email="" then
  reg_err="修改资料失败，用户名，密码，email不能为空！"
else
 sql="SELECT username FROM [user] WHERE username='" & username & "' and userid<>" & userid
 Conn = DBCN()
 set rs = Server.CreateObject("ADODB.Recordset")
 rs.open sql,conn,3
 if not rs.eof then
   rs.close
   reg_err="用户名重名错误，<font color=#ff0000>"& username & "</font>这个名字已经被其他人使用了。"
 else
  rs.close
  biography=htmlencode(biography)
  if len(biography)>120 then biography=Mid(biography,1,120)
  sql="select * from [user] where userid=" & userid
  rs.open sql,conn,3,3
  if Not rs.eof then
    rs("username")=username
    rs("password")=password
    rs("email")=email
    rs("homepage")=homepage
    rs("oicq")=oicq
    rs("biography")=biography
    rs("experi")=experi
    rs("amoney")=money
    rs("bmoney")=bmoney
    rs("meili")=meili
    rs("kickcount")=kickcount
    rs.update
  end if
  rs.close
  set rs=nothing
  reg_err=""
 end if
end if
%>
<html>
<head>
<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%"><strong>JChat注册用户管理面板</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>
<%
if reg_err="" then
   response.write "<p>修改用户资料成功。<a href=""#"" onclick=""history.back(0);return false;"">返回</a>"
else
   response.write reg_err & "<a href=""#"" onclick=""history.back(0);return false;"">返回</a>"
end if
%>
　</td>
  </tr>
</table>
<table border="0" width="100%" bgcolor="#C8C9D2">
  <tr>
    <td width="100%" class="p9">
      <p align="right">版本：<font color="#FF0000">JChat V3.7.0</font>&nbsp;&nbsp;</p> 
    </td> 
  </tr> 
</table> 
</body>
</html>
⌨️ 快捷键说明

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