📄 admin_user_mod.asp
字号:
<!--#include file="connect.asp" -->
<!--#include file="..\include\nosqlin.asp" -->
<!--#include file="..\include\md5.asp" -->
<!--#include file="../include/makepass.asp" -->
<html>
<head>
<BASE onmouseover=window.status="<%=Unit%>个人主页空间——您理想的网上家园！";return true>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title><%=Unit%>>><%=softname%></title>
<style type="text/css">
<!--
a:link {
color: #333333;text-decoration:none
}
a:visited {
color: #666666;text-decoration:none
}
a:active {
color: #999999;text-decoration:none
}
A:hover {
color: #FF0000;text-decoration:underline
}
-->
</style>
<SCRIPT LANGUAGE=javascript>
<!--
function openurl(url)
{
window.open(url,"公告管理","Menubar=no,directories=no,status=no,scrollbars=yes,resizable=no,Width=600,Height=400");
}
function openurl1(url)
{
window.open(url,"清理图片","Menubar=no,directories=no,status=no,scrollbars=yes,resizable=no,left="+(screen.width/2-40)+",top="+(screen.height/2-60)+",Width=10,Height=10");
}
-->
</Script>
</head>
<BODY bgcolor="#E1EBF4" style="font-size: 9pt">
<%
if request.Cookies("admin") = "" then
user = request.form("username")
'password = md5(request.form("pass"))
password = request.form("pass")
'response.write user &"/"&password
'response.end
strSQL = "select * from information where user = '"&user&"' and password = '"&password&"'"
'response.write "strSQL:"&strSQL
set rs = objCnn.Execute(strSQL)
'response.end
if rs.eof then
msg = "用户名或密码错误!"
%>
<Script language=VBScript>
msgbox "<%=msg%>"
history.back
</Script>
<%
response.end
else
response.Cookies("admin") = rs("admin")
response.Cookies("user") = user
response.Cookies("password") = password
end if
rs.close
set rs=nothing
else
user = request.Cookies("user")
password = request.Cookies("password")
strSQL = "select * from information where user = '"&user&"' and password = '"&password&"'"
set rs = objCnn.Execute(strSQL)
end if
page=request("page")
user = request.Cookies("user")
password = request.Cookies("password")
strSQL = "select * from information where user = '"&user&"'"
set rs = objCnn.Execute(strSQL)
%>
<!--#include file="head.asp" -->
<!--#include file="NavBar.Asp" -->
<div align="center">
<center>
<table border="0" width="750" height="75%" style="border: 1 solid #000000">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" width="90%" height="100%">
<tr>
<td width="23%" valign="top">
<table border="0" width="100%" style="font-size: 9pt" cellspacing="0">
<tr>
<td width="100%" valign="middle"><b> </b></td>
</tr>
<tr>
<td width="100%" valign="middle"><b>管理员</b><b>：<%=rs("username")%></b></td>
</tr>
<tr>
<td width="100%" valign="middle"> ◆ <a href="admin_mod.asp"> 修改信息</a></td>
</tr>
<tr>
<td width="100%" valign="middle"> ◆ <a href="quit.asp">退出</a></td>
</tr>
<tr>
<td width="100%" valign="middle"><b> </b></td>
</tr>
<tr>
<td width="100%" valign="middle"><b>管理功能</b></td>
</tr>
<tr>
<td width="100%" valign="middle"> ◆ <a href="admin_user.asp"> 用户管理</a></td>
</tr>
<tr>
<td width="100%" valign="middle"> ◆ <a href="admin_check.asp"> 用户审核/管理</a></td>
</tr>
<tr>
<td width="100%" valign="middle"> ◆ <a href="shenqing.asp"> 添加用户</a></td>
</tr>
<tr>
<td width="100%"> ◆ <a href="javascript:openurl('affiche_manage.asp');">公告管理</a></td>
</tr>
<tr>
<td width="100%"> ◆ <a href="javascript:openurl1('P_Clear.asp');">清理图片</a></td>
</tr>
<tr>
<td width="100%" valign="middle"> </td>
</tr>
</table>
</td>
<td width="77%" style="border-left: 1 solid #808080" valign="top">
<%
rs.close
if request("mod")="mod" then
if request("password")<>request("passbak") then
pass1=md5(request("password"))
else
pass=request("passbak")
end if
temp=makepassword(2)
pass=temp & md5(temp & pass1)
wname=request("wname")
wwwname = request("wwwname")
wwwfunction = request("wwwfunction")
pic=request("pic")
username=request("username")
userclass=request("userclass")
email=request("email")
tel=request("tel")
tel1=request("tel1")
adress=request("adress")
strSQL="Update information set Password='"&pass1&"', wname='"&wname&"', wwwname='"&wwwname&"', pic='"&pic&"', wwwfunction='"&wwwfunction & _
"', username='"&username&"', userclass='"&userclass&"', email='"&email&"', tel='"&tel&"', tel1='"&tel1& _
"', adress='"&adress&"' where user='"&request("UserID")&"'"
'response.write strSQL & "<br>"
objCnn.Execute(strSQL)
strSQL="Update Useraccounts set Password='"&pass&"' where user='"&request("UserID")&"'"
'response.write strSQL & "<br>"
objCnn.Execute(strSQL)
response.redirect "admin_check.asp?page="&page
end if
strSQL = "select * from information where id = "&request("ID")
set rs = objCnn.Execute(strSQL)
%>
<form name=www method="POST" action="">
<table border="0" width="415" style="font-size: 9pt">
<tr>
<td width="412"><fieldset>
<legend><font color="#F89A7E" style="font-size: 9pt"><b>网站信息</b></font></legend>
<table border="0" width="410" cellspacing="0" style="font-size: 9pt">
<tr>
<td width="78" align="right">用户名:</td>
<td width="150"><input type="text" name="User_ID" size="20" title="这是你登录FTP上传主页内容的账号名" value=<%=rs("user")%> disabled></td>
<td width="132">[英文+数字]</td>
</tr>
<tr>
<td align="right" width="78">密码:</td>
<td width="150"><input type="password" name="password" size="20" title="这是你登录FTP上传主页内容的密码,申请成功后可以修改" value=<%=rs("password")%>></td>
<td width="132">[英文+数字]</td>
</tr>
<tr>
<td align="right" width="78">密码验证:</td>
<td width="150"><input type="password" name="password1" size="20" title="要与[密码]字段中完全一致" value=<%=rs("password")%>></td>
<td width="132">[英文+数字]</td>
</tr>
<tr>
<td align="right" width="78">呢称:</td>
<td width="168"><input type="text" name="wname" size="20" title="在页面中显示的作者名称" value="<%=rs("wname")%>"></td>
<td width="137">[中文+英文+数字]</td>
</tr>
<tr>
<td align="right" width="78">网站名称:</td>
<td width="281" colspan="2"><input type="text" name="wwwName" size="37" title="登录网站导航所用的名称,限20个汉字" value=<%=rs("wwwname")%>></td>
</tr>
<tr>
<td align="right" width="78" valign="middle">LOGO图片:</td>
<td width="281" colspan="2" valign="top"><input type="text" name="pic" size="37" title="此处内容不得修改,否则将丢失图片信息!" value=<%=rs("pic")%>></td>
</tr>
<tr>
<td align="right" width="78" valign="middle"></td>
<td width="281" colspan="2" valign="top"><iframe name="ad" frameborder=0 width=100% height=52 scrolling=no src=upload.asp></iframe></td>
</tr>
<tr>
<td align="right" width="78" valign="top">网站功能:</td>
<td width="281" colspan="2" valign="top"><textarea name="wwwfunction" size="38" title="你的网站功能的简单介绍,限100个字符" rows="4" cols="36"><%=rs("wwwfunction")%></textarea></td>
</tr>
</table>
</fieldset></td>
</tr>
<tr>
<td width="412"> </td>
</tr>
<tr>
<td width="412"><fieldset>
<legend><font color="#F89A7E" style="font-size: 9pt"><b>申请人信息</b></font></legend>
<div align="center">
<center>
<table border="0" width="410" cellspacing="0" style="font-size: 9pt">
<tr>
<td align="right" width="78">真实姓名:</td>
<td width="281"><input type="text" name="username" size="31" title="必需如实填写,否则不予开通" value=<%=rs("username")%>></td>
</tr>
<tr>
<td align="right" width="78">系部/班级:</td>
<td width="281"><input type="text" name="userclass" size="31" title="必需如实填写,否则不予开通" value=<%=rs("userClass")%>></td>
</tr>
<tr>
<td align="right" width="78">电子信箱:</td>
<td width="281"><input type="text" name="email" size="31" title="必需如实填写,否则不予开通" value=<%=rs("email")%>></td>
</tr>
<tr>
<td align="right" width="78">联系电话:</td>
<td width="281"><input type="text" name="Tel" size="31" title="必需如实填写,否则不予开通" value=<%=rs("tel")%>></td>
</tr>
<tr>
<td align="right" width="78">移动电话:</td>
<td width="281"><input type="text" name="Tel1" size="31" title="必需如实填写,否则不予开通" value=<%=rs("tel1")%>></td>
</tr>
<tr>
<td align="right" width="78">住址:</td>
<td width="281"><input type="text" name="adress" size="31" title="必需如实填写,否则不予开通" value=<%=rs("adress")%>></td>
</tr>
</table>
</center>
</div>
</fieldset></td>
</tr>
<tr>
<td width="412">
<p align="center"> <font color="#F89A7E"><br>
<如果你准备上传LOGO图,只有在上传完成后才能提交></font></p>
</td>
</tr>
<tr>
<td width="412">
<p align="center">
<input type="submit" value="提交" name="subm">
<input type="reset" value="重写" name="B2">
<input type="button" value="取消" name="B3" onclick="VBscript:window.close">
</p></td>
</tr>
</table>
<input type="hidden" name="passbak" value="<%=rs("password")%>">
<input type="hidden" name="mod" value="mod"><input type="hidden" name="UserID" value="<%=rs("user")%>"><input type="hidden" name="page" value="<%=page%>">
</form>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<!--#include file="..\food.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -