📄 edit2.asp
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set rs=server.CreateObject("ADODB.recordset")
user_id=request("user_id")
sql="update "&TBL_USER&" set NICKNAME='"&request("user_nickname")&"', PASSWORD='"&request("user_password")&"', SEX="&request("user_sex")&", MAILADD='"&request("user_mailadd")&"' where ID="&user_id&""
'response.write sql
'response.end
cn.execute sql
rs.Open "Select * from "&TBL_USER&" where ID="&user_id&"", cn
set acman=server.CreateObject("ACManCOM.ACMan")
acman.AddUser "123456", "123456", IA_Server_IP(cn), IA_Server_PORT(cn), 1, ""&user_id&"|"&rs("USERNAME")&"|"&rs("NICKNAME")&"|"&rs("PASSWORD")&"|"&rs("MAILADD")&"|"&rs("TYPE")&"|"&rs("SEX")&";", 0
set acman=nothing
rs.close
cn.close
%>
<HTML>
<BODY bgcolor="#CFC9CD" leftmargin="0" topmargin="10" >
<!--#include file="Header.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" bgcolor="#EFEFEF" height="20" valign="bottom"> 你现在的位置：修改注册信息</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" align="center" valign="top">
<p> </p>
<p>注册信息修改成功！</p>
<p><a href=# onclick="vbscript:history.back()">返回</a></p>
</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" valign="top">
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
<td width="764" bgcolor="EFEFEF" height="21">
<div align="center"><%=COMPANY%></div>
</td>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
<tr>
<td height="4"></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -