📄 admin_uedit.asp

📁 此文件为一个电子同学录
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="md5.asp"-->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content="Microsoft FrontPage 3.0" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#DDEEFF">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
		call txl_error()
		response.end
	else
		if request("action")="save" then
			call saveuser()
		else
			call main()
		end if
		conn.close
		set conn=nothing
	end if

	sub main()
	if not isnumeric(request("userid")) then
		response.write "<p>错误的用户参数。</p>"
		response.end
	end if
	if not founderr then
		Set rs= Server.CreateObject("ADODB.Recordset")
		sql="select * from [user] where userid="&request("userid")
		rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			response.write "<tr><td colspan=6 class=txlrow>没有找到相关用户。</td></tr>"
			response.end
		elseif rs("usergroupid")=1 then
			response.write "<tr><td colspan=6 class=txlrow>不能修改管理员的资料</td></tr>"
			response.end	
		end if
	end if
%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
<FORM METHOD=POST ACTION="?action=save">
<tr>
<th colspan=6 height=23 align=left>用户资料操作</th>
</tr>
<tr>
<td width=20% class=txlrow>快捷操作选项</td>
<td width=80% class=txlrow>
①<a href="mailto:<%=rs("email")%>">给 <%=rs("realname")%> 发送电子邮件</a><BR>
②<a href="messanger.asp?action=new&touser=<%=rs("realname")%>" target=_blank>给 <%=rs("realname")%> 发送一条短信</a><BR>
③<a href="userinfo.asp?id=<%=rs("userid")%>" target=_blank>预览 <%=rs("realname")%> 的显示资料</a><BR>
④<a href="?action=touser&useraction=1&userid=<%=rs("userid")%>">从用户列表删除 <%=rs("realname")%></a><BR>
</td>
</tr>
<tr>
<th colspan=6 height=23 align=left>用户基本资料修改－－<%=rs("realname")%></th>
</tr>
<input name="userid" type=hidden value="<%=rs("userid")%>">
<tr>
<td width=20% class=txlrow>用户类别</td>
<td width=80% class=txlrow><input size=45 name="usergroup" type=text value="<%=rs("usergroup")%>" disabled></td>
</tr>
<tr>
<td width=20% class=txlrow>登 录 名</td>
<td width=80% class=txlrow><input size=45 name="username" type=text value="<%=rs("username")%>">&nbsp;说明：此项请谨慎修改</td>
</tr>
<tr>
<td width=20% class=txlrow>真实姓名</td>
<td width=80% class=txlrow><input size=45 name="realname" type=text value="<%=rs("realname")%>"></td>
</tr>
<tr>
<td width=20% class=txlrow>密
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -