www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/user_info.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<!--#include file="../common/md5.asp" -->
<%
'Call CheckUserLogin(username)
Call CheckAdmin()
'Call CnkAdminRight(30)
Dim thisuserid,action
thisuserid=Request("userid")
action=Request("action")
Dim RegUserID,RegUserName,RegPassword,question,answer,truename,sex,UserFace,idcard,birthday
Dim UserIM,address,tel,fax,mobile,email,UserInfo,Sign,userweblevel
Dim Jifen,Jinbi,PubNum,RepNum,regTime,LastLoginTime,LastLoginIP,VipStartDate,VipEndDate,isLocked
if action="save" then
Call DisableOutSite()
RegUserName=trim(request("RegUserName"))
RegPassword=trim(request("RegPassword"))
question=trim(request("question"))
answer=trim(request("answer"))
truename=trim(request("truename"))
sex=request("sex")
idcard=trim(request("idcard"))
birthday=trim(request("birthday"))
UserIM=trim(request("UserIM"))
address=trim(request("address"))
tel=trim(request("tel"))
fax=trim(request("fax"))
mobile=trim(request("mobile"))
email=trim(request("email"))
UserInfo=trim(request("UserInfo"))
Sign=trim(request("Sign"))
'userface=trim(request("userface"))
'Jifen=trim(request("Jifen"))
'Jinbi=trim(request("Jinbi"))
'PubNum=trim(request("PubNum"))
'RepNum=trim(request("RepNum"))
regTime=trim(request("regTime"))
LastLoginTime=trim(request("LastLoginTime"))
LastLoginIP=trim(request("LastLoginIP"))
VipStartDate=trim(request("VipStartDate"))
VipEndDate=trim(request("VipEndDate"))
isLocked=trim(request("isLocked"))
userweblevel=trim(request("userweblevel"))
If thisuserid="" Then
Dim chkun
set chkun=conn.execute("select count(*) from cnk_users where username='"&RegUserName&"'")
if chkun(0)>0 then Call alertmsg("这个用户名已经存在，请另选择一个吧!")
if not isdate(birthday) then Call alertmsg("出生日期错误!")
sql="insert into cnk_users (username,userpassword,question,answer,truename,sex,idcard,birthday,UserIM,address,tel,fax,mobile,email,UserInfo,Sign,isLocked,weblevel) values ('"&RegUserName&"','"&md5(RegPassword)&"','"&question&"','"&md5(answer)&"','"&truename&"',"&sex&",'"&idcard&"','"&birthday&"','"&UserIM&"','"&address&"','"&tel&"','"&fax&"','"&mobile&"','"&email&"','"&UserInfo&"','"&Sign&"',0,"&userweblevel&")"
Else
sql="update cnk_users set question='"&question&"',truename='"&truename&"',sex="&sex&",idcard='"&idcard&"',birthday='"&birthday&"',UserIM='"&UserIM&"',address='"&address&"',tel='"&tel&"',fax='"&fax&"',mobile='"&mobile&"',email='"&email&"',UserInfo='"&UserInfo&"',Sign='"&Sign&"',regTime='"®Time&"',isLocked="&isLocked&",weblevel="&userweblevel&""
if VipStartDate<>"" then sql=sql&",VipStartDate='"&VipStartDate&"'"
if VipEndDate<>"" then sql=sql&",VipEndDate='"&VipEndDate&"'"
if RegPassword<>"" then sql=sql&",userpassword='"&md5(RegPassword)&"'"
if answer<>"" then sql=sql&",answer='"&md5(answer)&"'"
sql=sql&" where UserID="&thisuserid
End If
'Response.Write(sql)
conn.execute(sql)
Call alertmsg("成功!")
end if
If thisuserid<>"" Then
rs.open "select * from cnk_users where userid="&thisuserid,conn,1,1
RegUserName=rs("username")
RegPassword=rs("userpassword")
question=rs("question")
answer=rs("answer")
truename=rs("truename")
sex=rs("sex")
idcard=rs("idcard")
birthday=rs("birthday")
UserIM=rs("UserIM")
address=rs("address")
tel=rs("tel")
fax=rs("fax")
mobile=rs("mobile")
email=rs("email")
UserInfo=rs("UserInfo")
Sign=rs("Sign")
userface=rs("userface")
Jifen=rs("Jifen")
Jinbi=rs("Jinbi")
PubNum=rs("PubNum")
RepNum=rs("RepNum")
regTime=rs("regTime")
LastLoginTime=rs("LastLoginTime")
LastLoginIP=rs("LastLoginIP")
VipStartDate=rs("VipStartDate")
VipEndDate=rs("VipEndDate")
isLocked=rs("isLocked")
userweblevel=rs("weblevel")
End If
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="CNKBBS Powered by websys.cn - Leung">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="">
<div class="cnkbox">
<div class="title"><% If thisuserid="" Then Response.Write("添加")%>用户资料</div>
<div class="content" align="center">
<div id="list">
<ul>
<li class="t1">用户组：</li>
<li class="t2">
<select name="userweblevel" class="input" id="userweblevel">
<option >选择组</option>
<option value="0" <% If userweblevel=0 Then Response.Write("selected")%>>普通会员</option>
<option value="1" <% If userweblevel=1 Then Response.Write("selected")%>>VIP会员</option>
<!--option value="2" <%' If userweblevel=2 Then Response.Write("selected")%>>版主组</option>
<option value="3" <% 'If userweblevel=3 Then Response.Write("selected")%>>超级版主组</option>
<option value="4" <% 'If userweblevel=4 Then Response.Write("selected")%>>管理员组</option-->
</select>
</li>
</ul>
<ul>
<li class="t1">用户名：</li>
<li class="t2">
<input name="RegUserName" type="text" class="input" id="RegUserName" value="<%= RegUserName %>" size="30" maxlength="20"<% If thisuserid<>"" Then Response.Write(" readonly=""yes""")%>>
</li>
</ul>
<ul>
<li class="t1">密码：</li>
<li class="t2">
<input name="RegPassword" type="text" class="input" id="RegPassword" size="30" maxlength="50">
<% If thisuserid<>"" Then Response.Write("如不修改密码请留空")%>
</li>
</ul>
<ul>
<li class="t1">密码问题：</li>
<li class="t2">
<input name="question" type="text" class="input" id="question" value="<%= question %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">密码答案：</li>
<li class="t2">
<input name="answer" type="text" class="input" id="answer" size="30" maxlength="50">
<% If thisuserid<>"" Then Response.Write("如不修改密码答案请留空")%>
</li>
</ul>
<ul>
<li class="t1">真实姓名：</li>
<li class="t2">
<input name="truename" type="text" class="input" id="truename" value="<%= truename %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">性别：</li>
<li class="t2">
<input name="sex" type="radio" value="1" <% If sex=1 Then Response.Write("checked")%>>男
<input name="sex" type="radio" value="0" <% If sex=0 Then Response.Write("checked")%>>女
</li>
</ul>
<ul>
<li class="t1">出生日期：</li>
<li class="t2">
<input name="birthday" type="text" class="input" id="birthday" value="<%If birthday="" Then Response.Write("1985-8-18") Else Response.Write(birthday)%>" size="30" maxlength="50"> 格式如：1985-8-18
</li>
</ul>
<ul>
<li class="t1">身份证号码：</li>
<li class="t2">
<input name="idcard" type="text" class="input" id="idcard" value="<%= idcard %>" size="30" maxlength="18">
</li>
</ul>
<ul>
<li class="t1">电话：</li>
<li class="t2">
<input name="tel" type="text" class="input" id="tel" value="<%= tel %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">E-mail：</li>
<li class="t2">
<input name="email" type="text" class="input" id="email" value="<%= email %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">即时通讯：</li>
<li class="t2">
<input name="UserIM" type="text" class="input" id="UserIM" value="<%= UserIM %>" size="30" maxlength="50">如：QQ：12345678 或 MSN 等
</li>
</ul>
<ul>
<li class="t1">地址：</li>
<li class="t2">
<input name="address" type="text" class="input" id="address" value="<%= address %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">个人介绍：</li>
<li class="t2">
<textarea name="UserInfo" cols="50" rows="5" class="input" id="UserInfo"><%= UserInfo %></textarea>
</li>
</ul>
<ul>
<li class="t1">签名档：</li>
<li class="t2">
<textarea name="Sign" cols="50" rows="5" class="input" id="Sign"><%= Sign %></textarea>
</li>
</ul>
</div>
</div>
</div>
</div>
<!--div class="cnkbox">
<div class="title"> 用 户 头 像 </div>
<div class="content" align="center">
<div id="list">
<ul>
<li class="t1">头像：</li>
<li class="t2">
<input name="userface" type="text" class="input" id="userface" value="<%= userface %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1"></li>
<li class="t2"><img src="../userface/<%'= userface %>" width="110" height="110"></li>
</ul>
</div>
</div>
</div-->
<% If thisuserid<>"" Then %>
<div class="cnkbox">
<div class="title"> 其他资料 </div>
<div class="content" align="center">
<div id="list">
<!--ul>
<li class="t1">发表帖子数：</li>
<li class="t2">
<input name="PubNum" type="text" class="input" id="PubNum" value="<%'= PubNum %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">回复数：</li>
<li class="t2">
<input name="RepNum" type="text" class="input" id="RepNum" value="<%'= RepNum %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">积分：</li>
<li class="t2">
<input name="Jifen" type="text" class="input" id="Jifen" value="<%'= Jifen %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">金币：</li>
<li class="t2">
<input name="Jinbi" type="text" class="input" id="Jinbi" value="<%'= Jinbi %>" size="30" maxlength="50">
</li>
</ul-->
<ul>
<li class="t1">注册时间：</li>
<li class="t2">
<input name="regTime" type="text" class="input" id="regTime" value="<%= regTime %>" size="30" maxlength="50">
</li>
</ul>
<ul>
<li class="t1">最后登录时间：</li>
<li class="t2"><%= LastLoginTime %>
</li>
</ul>
<ul>
<li class="t1">最后登录IP：</li>
<li class="t2"><%= LastLoginIP %>
</li>
</ul>
<ul>
<li class="t1">用户状态：</li>
<li class="t2">
<input name="isLocked" type="radio" value="0" <% If isLocked=0 Then Response.Write("checked")%>>
正常
<input name="isLocked" type="radio" value="1" <% If isLocked=1 Then Response.Write("checked")%>>
被封ID
</li>
</ul>
<ul>
<li class="t1">VIP开始时间：</li>
<li class="t2">
<input name="VipStartDate" type="text" class="input" id="VipStartDate" value="<%= VipStartDate %>" size="30" maxlength="50">
格式如 2007-8-28
</li>
</ul>
<ul>
<li class="t1">VIP到期时间：</li>
<li class="t2">
<input name="VipEndDate" type="text" class="input" id="VipEndDate" value="<%= VipEndDate %>" size="30" maxlength="50">
格式如 2008-8-28</label>
</li>
</ul>
</div>
</div>
</div>
<% End If %>
<br>
<div align="center">
<input name="Submit" type="submit" class="input" value="提交">
<input name="userid" type="hidden" id="userid" value="<%= thisuserid %>">
<input name="action" type="hidden" id="action" value="save">
<input name="Submit2" type="button" class="input" value="返回" onClick="window.location.href('users.asp');">
</div>
<br>
</form>
<%set rs=nothing
Call foot()
Call closedb()%>
</body>
</html>