📄 usermodify.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Md5.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.5
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P040402") then Call ReturnError1()
Dim UserIDP,UserModifyObj,TempUserName
UserIDP = Request("ID")
Set UserModifyObj = UserConn.Execute("Select * from FS_Members where ID="&Clng(UserIDP)&"")
If UserModifyObj.eof then
Response.Write("<script>alert(""参数传递错误"");window.close();</script>")
Response.End
End If
TempUserName = UserModifyObj("MemName")
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet" type="text/css">
<script src="../../SysJS/PublicJS.js" language="JavaScript"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改会员信息</title>
</head>
<body leftmargin="2" topmargin="2">
<form action="" method="post" name="UserAddSForm">
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#999999">
<tr bgcolor="#EEEEEE">
<td height="26" colspan="5" valign="middle">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width=35 align="center" alt="保存" onClick="document.UserAddSForm.submit();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">保存</td>
<td width=2 class="Gray">|</td>
<td width=35 align="center" alt="后退" onClick="top.GetEkMainObject().history.back();" onMouseMove="BtnMouseOver(this);" onMouseOut="BtnMouseOver(this);" class="BtnMouseOut">后退</td>
<td> <input name="action" type="hidden" id="action" value="mod"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#DDDDDD">
<tr>
<td width="9%" bgcolor="#EAEAEA">
<div align="right">会 员 名</div></td>
<td width="37%" bgcolor="#FFFFFF">
<input name="MemName" readonly type="text" id="MemName" style="width:90%" value="<%=UserModifyObj("MemName")%>"></td>
<td width="12%" bgcolor="#EAEAEA">
<div align="right">会 员 组</div></td>
<td width="39%" bgcolor="#FFFFFF">
<select name="GroupID" id="GroupID" style="width:90%">
<option value="0" <%If UserModifyObj("GroupID") = "" or UserModifyObj("GroupID") = "0" Or IsNull(UserModifyObj("GroupID")) then Response.Write("selected") end if%>> </option>
<%
Dim SelGroupObj
Set SelGroupObj = UserConn.Execute("Select GroupID,Name from FS_MemGroup order by PopLevel desc")
do while not SelGroupObj.eof
If UserModifyObj("GroupID") <> "" And UserModifyObj("GroupID") <> "0" And (Not IsNull(UserModifyObj("GroupID"))) Then
%>
<option value="<%=SelGroupObj("GroupID")%>" <%If Cstr(UserModifyObj("GroupID"))=Cstr(SelGroupObj("GroupID")) then Response.Write("selected") end if%>><%=SelGroupObj("Name")%></option>
<%
Else
%>
<option value="<%=SelGroupObj("GroupID")%>"><%=SelGroupObj("Name")%></option>
<%
End If
SelGroupObj.MoveNext
Loop
SelGroupObj.Close
Set SelGroupObj = Nothing
%>
</select></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">密 码</div></td>
<td bgcolor="#FFFFFF">
<input name="Password" type="password" id="Password" style="width:90%"></td>
<td bgcolor="#EAEAEA">
<div align="right">确认密码</div></td>
<td bgcolor="#FFFFFF">
<input name="PasswordTF" type="password" id="PasswordTF2" style="width:90%"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">真实姓名</div></td>
<td bgcolor="#FFFFFF">
<input name="Name" type="text" id="Name2" style="width:90%" value="<%=UserModifyObj("Name")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">电话号码</div></td>
<td bgcolor="#FFFFFF">
<input name="Telephone" type="text" id="Telephone2" style="width:90%" value="<%=UserModifyObj("Telephone")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">E_Mail</div></td>
<td bgcolor="#FFFFFF">
<input name="Email" type="text" id="Email2" style="width:90%" value="<%=UserModifyObj("Email")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">OICQ</div></td>
<td bgcolor="#FFFFFF">
<input name="Oicq" type="text" id="Oicq2" style="width:90%" value="<%=UserModifyObj("Oicq")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">MSN</div></td>
<td bgcolor="#FFFFFF">
<input name="MSN" type="text" id="MSN2" style="width:90%" value="<%=UserModifyObj("MSN")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">个人主页</div></td>
<td bgcolor="#FFFFFF">
<input name="HomePage" type="text" id="HomePage2" style="width:90%" value="<%=UserModifyObj("HomePage")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">地 址</div></td>
<td bgcolor="#FFFFFF">
<input name="Address" type="text" id="Address2" style="width:90%" value="<%=UserModifyObj("Address")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">区域国家</div></td>
<td bgcolor="#FFFFFF">
<input name="Corner" type="text" id="Corner2" style="width:90%" value="<%=UserModifyObj("Corner")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">省 份</div></td>
<td bgcolor="#FFFFFF">
<input name="Province" type="text" id="Province2" style="width:90%" value="<%=UserModifyObj("Province")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">城 市</div></td>
<td bgcolor="#FFFFFF">
<input name="City" type="text" id="City2" style="width:90%" value="<%=UserModifyObj("City")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">职 业</div></td>
<td bgcolor="#FFFFFF">
<input name="Vocation" type="text" id="Vocation2" style="width:90%" value="<%=UserModifyObj("Vocation")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">学 历</div></td>
<td bgcolor="#FFFFFF">
<input name="EduLevel" type="text" id="EduLevel2" style="width:90%" value="<%=UserModifyObj("EduLevel")%>"></td>
</tr>
<tr>
<td bgcolor="#EAEAEA">
<div align="right">登录次数</div></td>
<td bgcolor="#FFFFFF">
<input name="LoginNum" type="text" id="LoginNum2" style="width:90%" value="<%=UserModifyObj("LoginNum")%>"></td>
<td bgcolor="#EAEAEA">
<div align="right">积 分</div></td>
<td bgcolor="#FFFFFF">
<input name="Point" type="text" id="Point2" style="width:90%" value="<%=UserModifyObj("Point")%>"></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -