admin_user.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

	rs("author")=author
	rs("tel")=tel
	if password<>"" then
	rs("password")=password
	end if
	rs("lock")=userlock
	rs("passed")=passed
	rs("user_type")=usertype
	rs("user_exper")=userexper
	rs("user_money")=usermoney
	rs("content")=content
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
userid=checksql("会员ID",request.Querystring("id"),0,8)
page=checksql("会员分页",request.Querystring("page"),0,8)
sql="select * from wapls_user where user_id="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">编辑会员<%=rs("name")%> [登录<%=rs("login_num")%>次]</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">会员名称</td>
		<td width="87%"><input type=text name="username" value="<%=rs("name")%>" size="20" maxlength="10"> [注册时间：<%=rs("reg_date")%>]</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center" class="tableBorder1">会员性别</td>
		<td width="87%" class="tableBorder1">
		<input type="radio" name="sex" value="1" <%if rs("sex")=1 then%>checked<%end if%>> 男
		<input type="radio" name="sex" value="0" <%if rs("sex")=0 then%>checked<%end if%>> 女
		</td>
	</tr>
	<tr class="tablebody">
		<td align="center" class="tableBorder1">会员邮箱</td>
		<td class="tableBorder1"><input type="text" name="email" size="50" maxlength="50" value="<%=rs("email")%>"> *</td>
	</tr>
	
	<tr class="tablebody">
		<td align="center" class="tableBorder1">真实名称</td>
		<td class="tableBorder1"><input type="text" name="author" size="20" maxlength="100" value="<%=rs("author")%>"></td>
	</tr>
		<tr class="tablebody">
		<td align="center" class="tableBorder1">手机号码</td>
		<td class="tableBorder1"><input type="text" name="tel" size="20" maxlength="50" value="<%=rs("tel")%>">*</td>
	</tr>
		<tr class="tablebody">
		<td align="center" class="tableBorder1">QQ号码</td>
		<td class="tableBorder1"><input type="text" name="qq" size="20" maxlength="50" value="<%=rs("qq")%>"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">登录密码</td>
		<td><input type="text" name="password" size="20" maxlength="10"> <span class="disable_font">不修改则留空</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">会员状态</td>
		<td><input type="radio" name="lock" value="0" <%if rs("lock")=0 then%>checked<%end if%>>正常状态&nbsp;<input type="radio" name="lock" value="1" <%if rs("lock")=1 then%>checked<%end if%>>锁定状态</td>
	</tr>
	<tr class="tablebody">
		<td align="center">审核情况</td>
		<td><input type="radio" name="passed" value="1" <%if rs("passed")=1 then%>checked<%end if%>>通过审核&nbsp;<input type="radio" name="passed" value="0" <%if rs("passed")=0 then%>checked<%end if%>>正在审核</td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员类型</td>
		<td><input type="radio" name="usertype" value="1" <%if rs("user_type")=1 then%>checked<%end if%>>普通会员&nbsp;<input type="radio" name="usertype" value="2" <%if rs("user_type")=2 then%>checked<%end if%>>VIP会员</td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员属性</td>
		<td>经验：<input type="text" name="userexper" value="<%=rs("user_exper")%>" size="10" maxlength="10">&nbsp;金币：<input type="text" name="usermoney" value="<%=rs("user_money")%>" size="10" maxlength="10"></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">最后登录</td>
		<td>登录时间：<%=rs("last_time")%> || 登录IP：<%=rs("last_ip")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">管理记录<br><br><span class="disable_font">[管理员填写，用于记录该会员发生的事件]</span></td>
		<td><textarea name="content" style="width:98%;" rows="8"><%=rs("content")%></textarea></td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定修改">
		<input type="hidden" name="id" value="<%=rs("user_id")%>">
		<input type="hidden" name="edituser" value="true">
	</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：del()
'=功    能：删除会员
'==================================
sub del()
if request.form("deluser")="true" then
	if request.querystring("page")<>"" then
		curpage=cint(request.querystring("page"))
	else
		curpage=1
	end if
	userid=checksql("会员ID",request.form("id"),0,8)
	sql="select * from wapls_user where user_id="&userid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.delete
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list&page="&curpage&""
end if
userid=checksql("会员ID",request.Querystring("id"),0,8)
page=checksql("会员分页",request.Querystring("page"),0,8)
sql="select * from wapls_user where user_id="&userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">删除会员</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">会员名称</td>
		<td width="87%"><input type=text name="username" value="<%=rs("name")%>" size="20" maxlength="10"> [注册时间：<%=rs("reg_date")%>]</td>
	</tr>
	<tr class="tablebody">
		<td align="center">会员状态</td>
		<td> <%if rs("lock")=0 then%>正常状态<%else%>锁定状态<%end if%></td>
	</tr>
	<tr class="tablebody">
		<td align="center">审核情况</td>
		<td><%if rs("passed")=1 then%>通过审核<%else%>正在审核<%end if%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员类型</td>
		<td><%if rs("user_type")=1 then%>普通会员<%elseif rs("user_type")=2 then%>VIP会员<%else%>未知<%end if%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员属性</td>
		<td>经验值：<%=rs("user_exper")%>&nbsp;金币值：<%=rs("user_money")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">最后登录</td>
		<td>登录时间：<%=rs("last_time")%> || 登录IP：<%=rs("last_ip")%></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">管理记录</td>
		<td><%=rs("content")%></td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定删除" onclick="{if(confirm('您再次确定要删除『<%=rs("name")%>』这个会员吗?\n\n注意：删除后不可恢复！')){return true;}return false;}">
		<input type="hidden" name="id" value="<%=rs("user_id")%>">
		<input type="hidden" name="deluser" value="true">
	</td>
	</tr>
	</form>
</table>
<%
rs.close
set rs=nothing
end sub
'==================================
'=过 程 名：add()
'=功    能：添加会员
'==================================
sub add()
if request.form("adduser")="true" then
	username=checksql("会员名称",request.form("username"),1,10)
	password=md5(checksql("会员密码",request.form("password"),1,10))
	userlock=checksql("会员状态",request.form("lock"),0,1)
	passed=checksql("审核情况",request.form("passed"),0,1)
	usertype=checksql("会员类型",request.form("usertype"),0,1)
	userexper=checksql("会员经验值",request.form("userexper"),0,10)
	usermoney=checksql("会员金币值",request.form("usermoney"),0,10)
	if request.form("content")<>"" then
		content=checksql("管理记录",request.form("content"),1,0)
	else
		content=""
	end if
	sql="select * from wapls_user"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("name")=username
	rs("password")=password
	rs("question")="wapls"
	rs("answer")="e28a8e43008708e42fb3132db26610fa"
	rs("email")="[e-mail]"
	rs("sex")=1
	rs("lock")=userlock
	rs("passed")=passed
	rs("user_type")=usertype
	rs("user_exper")=userexper
	rs("user_money")=usermoney
	rs("content")=content
	rs("reg_date")=now()
	rs.update
	rs.close
	set rs=nothing
	response.redirect "?action=list"
end if
%>
<table cellspacing="1" cellpadding="4" class="tableborder" align="center">
	<form name="form1" method="post" action="">
	<tr class="tablebody">
		<td class="td_title" colspan="2">添加会员</td>
	</tr>
	<tr class="tablebody">
		<td width="13%" align="center">会员名称</td>
		<td width="87%"><input type=text name="username" value="" size="20" maxlength="10"></td>
	</tr>
	<tr class="tablebody">
		<td align="center">登录密码</td>
		<td><input type="text" name="password" size="20" maxlength="8" value="123456"> <span class="disable_font">系统默认</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">密码问题</td>
		<td><span class="disable_font">系统默认：wapls/wapls</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">电子邮箱</td>
		<td><span class="disable_font">系统默认：[e-mail]</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center">会员状态</td>
		<td><input type="radio" name="lock" value="0" checked>正常状态&nbsp;<input type="radio" name="lock" value="1">锁定状态</td>
	</tr>
	<tr class="tablebody">
		<td align="center">审核情况</td>
		<td><input type="radio" name="passed" value="1" checked>通过审核&nbsp;<input type="radio" name="passed" value="0" >正在审核</td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员类型</td>
		<td><input type="radio" name="usertype" value="1" checked>普通会员&nbsp;<input type="radio" name="usertype" value="2" >VIP会员</td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">会员属性</td>
		<td>经验：<input type="text" name="userexper" value="<%=user_startexper%>" size="10" maxlength="10">&nbsp;金币：<input type="text" name="usermoney" value="<%=user_startmoney%>" size="10" maxlength="10"> <span class="disable_font">系统默认</span></td>
	</tr>
	<tr class="tablebody">
		<td align="center" valign="top">管理记录<br><br><span class="disable_font">[管理员填写，用于记录该会员发生的事件]</span></td>
		<td><textarea name="content" style="width:98%;" rows="8"></textarea></td>
	</tr>
	<tr class="tablebody">
		<td  colspan="2" align="center" height="30">
		<input type="submit" name="submit" value="确定添加">
		<input type="hidden" name="adduser" value="true">
	</td>
	</tr>
	</form>
</table>
<%
end sub
'==================================
'=过 程 名：pass()
'=功    能：审核会员
'==================================
sub pass()
%>
<%end sub
'==================================
'=过 程 名：lock()
'=功    能：锁定会员
'==================================
sub lock()
%>
<%end sub%>
<!--#include file="wapls_admin_bottom.asp"-->