📄 admin_user.asp
字号:
if value="2" then
usertype="管理员"
elseif value="3" then
usertype="班长"
elseif value="4" then
usertype="副班长"
elseif value="5" then
usertype="团支书"
elseif value="6" then
usertype="委员级别"
else
usertype="普通学生"
end if
%>
<table width="95%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form name="myinfo" action="admin_user.asp?action=useredit" method="post">
<tr><td colspan=2 class=td height=25>查看/编辑学生资料 </td></tr>
<tr><td width='20%' align=right height=25>登陆学号 </td>
<td><%=Name%></td>
</tr>
<tr><td width='20%' align=right height=25>指导老师 </td>
<td><%=rs("tjr")%></td>
</tr>
<tr><td width='20%' align=right height=25>注册时间 </td>
<td><%=rs("SignDate")%></td>
</tr>
<tr><td width='20%' align=right height=25>上次登陆时间 </td>
<td><%=rs("lastlogin")%></td>
</tr>
<tr><td width='20%' align=right height=25>上次登陆IP </td>
<td><%=rs("IP")%></td>
</tr>
<tr><td width='20%' align=right height=25>登陆次数 </td>
<td><%=rs("totallogin")%> 次</td>
</tr>
<tr><td width='20%' align=right height=25>学生职位 </td>
<td><select size="1" name="usertype">
<%
usertype=rs("usertype")
if usertype="2" then
jibie="管理员"
elseif usertype="3" then
jibie="班长"
elseif usertype="4" then
jibie="副班长"
elseif usertype="5" then
jibie="团支书"
elseif usertype="6" then
jibie="委员级别"
else
jibie="普通学生"
end if
%>
<option value="<%=rs("usertype")%>" selected><%=jibie%></option>
<option value="1" >普通学生</option>
<option value="2" >管理员</option>>
<option value="3" >班长</option>
<option value="4" >副班长</option>
<option value="5" >团支书</option>
<option value="6" >委员级别</option>
</select>
</td></tr>
<tr><td align=right height=25>登陆密码 </td>
<td><input type="text" name="Userpassword" value="" maxlength="16">
<img src=images/login/memo.gif alt="若不修改密码，请空出">
</td></TR>
<tr><td width='20%' align=right height=25>真实姓名 </td>
<td><input type="text" name="Username" value="<%=rs("UserName")%>" maxlength="16"></td>
</tr>
<tr><td align=right height=25>电子邮箱 </td>
<td><input type="text" name="UserMail" value="<%=rs("UserMail")%>" maxlength="100"> </td></tr>
<tr><td align=right height=25>所在班级 </td>
<td><input type="text" name="Banji" value="<%=rs("Banji")%>" maxlength="100"></td>
</tr>
<tr><td align=right height=25>所学专业 </td>
<td><input type="text" name="Zhuanye" value="<%=rs("Zhuanye")%>" maxlength="8"></td>
</tr>
<tr><td align=right height=25>联系电话 </td>
<td><input type="text" name="HomePhone" value="<%=rs("HomePhone")%>" maxlength="20"></td>
</tr>
<tr><td align=right height=25>性别 </td>
<td><input name="Sex" type="radio" value="1" <%if rs("Sex")="1" then response.write "checked"%>>帅哥
<input type="radio" name="Sex" value="0" <%if rs("Sex")="0" then response.write "checked"%>>靓妹
</td></tr>
<tr><td align=right height=25>生日 </td>
<td><input type="text" name="Birthday" value="<%=rs("Birthday")%>"></td>
</tr>
<tr><td align=right height=25>移动电话 </td>
<td><input type="text" name="CompPhone" value="<%=rs("CompPhone")%>" maxlength="20"></td>
</tr>
<tr><td align=right height=25>腾讯ＱＱ </td>
<td><input type="text" name="UserQQ" value="<%=rs("UserQQ")%>" maxlength="11">
<%if rs("UserQQ")<>"" then%><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("UserQQ")%>&Site=<%=sitename%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("UserQQ")%>:6 alt="与该会员交谈或留言"></a><%end if%>
</td></tr>
<tr><td align=right height=25>家庭住址 </td>
<td><input type="text" name="Address" value="<%=rs("Address")%>" maxlength="50"></td>
</tr>
<tr><td align=right height=25>邮政编码 </td>
<td><input type="text" name="Zipcode" value="<%=rs("Zipcode")%>" maxlength="6"></td>
</tr>
<tr><td align=right height=25>国家 </td>
<td><input type="text" name="Country" value="<%=rs("Country")%>"></td>
</tr>
<tr><td align=right height=25>省份 </td>
<td><input type="text" name="Province" value="<%=rs("Province")%>"></td>
</tr>
<tr><td align=right height=25>城市 </td>
<td><input type="text" name="City" value="<%=rs("City")%>"></td>
</tr>
<tr><td align=right height=25>个人说明 </td>
<td><TEXTAREA style="overflow:auto;" type="text" name="Memo" ROWS="3" COLS="40"><%=rs("Memo")%></TEXTAREA></td>
</tr>
<tr><td align=right height=25>教师评语 </td>
<td><TEXTAREA style="overflow:auto;background-color: #FFFFCC;" type="text" name="Memo2" ROWS="3" COLS="40"><%=rs("Memo2")%></TEXTAREA><br>
教师此处添加的信息;学生只能查看不能修改;此信息在学生的个人资料页中滚动提示!</td></tr>
<tr><td align=right height=25>学生状态 </td>
<td>
<input name="Status" type="radio" value="1" <%if rs("Status")<>"0" then%>checked<%end if%>>正常/通过审核
<input name="Status" type="radio" value="0" <%if rs("Status")="0" then%>checked<%end if%>>锁定/未审核
</tr>
<tr><td colspan=2>
<input name="id" type="hidden" value="<%=rs("UserId")%>">
<input name="edit" type="hidden" value="ok">
<input type="submit" name="Submit" value="确认修改">
</td></tr>
</form>
</table>
<%
set rs=nothing
end sub
sub save()
'保存会员资料
name=request("id")
sql = "select * from [user] where UserId='"&name&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('出错了，没有此学生。');"
response.write "location.href='admin_user.asp';"
response.write "</script>"
response.end
rs.close
set rs=nothing
end if
rs("Usertype") = request("usertype")
rs("Username") = trim(request("Username"))
rs("Sex") = request("Sex")
if trim(request("totalsum"))<>"" then rs("totalsum")= trim(request("totalsum"))
rs("UserQQ") = trim(request("UserQQ"))
rs("Address") = trim(request("Address"))
rs("Zipcode") = trim(request("Zipcode"))
rs("Birthday") = trim(request("Birthday"))
rs("HomePhone")= trim(request("HomePhone"))
rs("CompPhone") = trim(request("CompPhone"))
rs("UserMail") = trim(request("UserMail"))
rs("Country") = trim(request("Country"))
rs("Province") = trim(request("Province"))
rs("City") = trim(request("City"))
rs("Banji") = trim(request("Banji"))
rs("Zhuanye") = trim(request("Zhuanye"))
rs("Memo") = request("Memo")
rs("Memo2") = request("Memo2")
rs("Status") = request("Status")
if trim(request("Userpassword"))<>"" then rs("Userpassword")=md5(trim(request("Userpassword")))
rs.update
rs.close
set rs = nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，学生资料已保存！');"
response.write "location.href='admin_user.asp';"
'response.write "location.href='admin_user.asp?action=useredit&id="&name&"';"
response.write "</script>"
response.end
end sub
sub userdel()
delnum=request("num")
if delnum="" or isnull(delnum) then
response.write "<script language='javascript'>"
response.write "alert('出错了，您什么也没有选择！');"
response.write "location.href='admin_user.asp';"
response.write "</script>"
response.end
end if
conn.execute("delete from [user] where UserNum in ("&delnum&")")
response.write "<script language='javascript'>"
response.write "alert('操作成功，选定的学生已被删除！');"
response.write "location.href='admin_user.asp';"
response.write "</script>"
response.end
conn.close
set conn=nothing
end sub
%>
<%else response.Write"你不是管理员，还是早点离开吧！这里只有管理员才可以来的呢！小孩去别的地方玩！" end if%>
</TD>
<TR>
<TD width=568 colSpan=2 height=16><IMG height=16 src="images/bjbg_6.jpg" width=568 border=0></TD>
</TR>
</TABLE>
</TABLE></TABLE>
<DIV align=center>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=76
cellSpacing=0 cellPadding=0 width=763 border=0>
<TBODY>
<TR>
<TD width=763 background=images/xiabg_3.jpg height=76>
<DIV align=center>
<TABLE id=table34 cellSpacing=0 cellPadding=0 width="98%" border=0>
<TBODY>
<TR>
<TD align=middle><FONT color=#051547><SPAN
style="FONT-SIZE: 12px">CopyRingt 2006
清水河源工作室</SPAN></FONT></TD>
</TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE></CENTER></DIV>
<DIV></DIV></BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -