⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_mod_user.asp

📁 这是一个ASP+VBScript+Access开发的网上家园源程序
💻 ASP
字号:
<!--#include file="connect.asp" -->
<!--#include file="..\include\nosqlin.asp" -->
<!--#include file="..\include\md5.asp" -->
<!--#include file="../include/makepass.asp" -->
<!--#include file="../include/functions.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>
<%
user = request.Cookies("user")
password = request.Cookies("password")
strSQL = "select * from information where user = '"&user&"'"
set rs = objCnn.Execute(strSQL)
%>
</head>

<BODY bgcolor="#E1EBF4" style="font-size: 9pt">
<!--#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="80%" height="100%" style="font-size: 9pt">
          <tr>
            <td width="28%" valign="top">
              <table border="0" width="100%" style="font-size: 9pt" cellspacing="0">
                <tr>
            <td width="100%" valign="middle"><b>&nbsp;</b></td>
                </tr>
                <tr>
                  <td width="100%">欢迎<font color='red'><b><%=rs("username")%></b></font>登录</td>
                </tr>
                <tr>
                  <td width="100%">您可以在此修改您的<br><font color="#008080">网站信息</font>和<font color="#008080">登录密码</font></td>
                </tr>
                <tr>
                  <td width="100%"></td>
                </tr>
                <tr>
                  <td width="100%"><a href="admin_mod_user.asp?info">修改网站信息</a></td>
                </tr>
                <tr>
                  <td width="100%"><a href="admin_mod_user.asp?pass">修改登录密码和呢称</a></td>
                </tr>
                <tr>
                  <td width="100%"><a href="ftp://<%=rs("user")%>@<%=servername%>:<%=serverport%>/" target="_blank">FTP登录</a></td>
                </tr>
                <tr>
                  <td width="100%"></td>
                </tr>
                <tr>
                  <td width="100%"><a href="hlp.asp" target="_blank">帮助信息</a></td>
                </tr>
                <tr>
                  <td width="100%"><a href="quit.asp">退出</a></td>
                </tr>
              </table>
            </td>
            <td width="72%" style="border-left: 1 solid #808080" valign="top">
<%if request("mod")<>"" then
if request("action")="pass" then
user=request("userID")
if request("password")<>request("passbak") then
pass=md5(request("password"))
else
pass=request("passbak")
end if
wname=request("wname")

strSQL = "update information set password='"&pass&"', wname='"&Replace_Html(wname)&"' where user = '"&user&"'"
set rs = objCnn.Execute(strSQL)
pass=request("password")
temp=makepassword(2)
pass=temp & md5(temp & pass)
strSQL = "update Useraccounts set user = '" & user & "', password='"&pass&"' where user = '"&user&"'"
objCnn.Execute(strSQL)
end if
if request("action")="info" then
user=request("userID")
wwwname=request("wwwname")
wwwfunction=request("wwwfunction")
pic=request("pic")
strSQL = "update information set wwwname = '" & Replace_Html(wwwname) & "', wwwfunction='"&Replace_Html(wwwfunction)&"', pic='"&pic&"' where user = '"&user&"'"
objCnn.Execute(strSQL)
end if

response.redirect "admin_user.asp"
else
%>
<form name="www" method="POST" action="">
<%if request.querystring="pass" then%>
              <table border="0" width="100%" style="font-size: 9pt">
                <tr>
                  <td width="32%" align="right"></td>
                  <td width="68%">&nbsp;</td>
                </tr>
                <tr>
                  <td width="100%" align="right" colspan="2">
                    <p align="center"><b><font color="#008080">修改密码</font></b></td>
                </tr>
                <tr>
                  <td width="32%" align="right">账号:</td>
                  <td width="68%"><input type="text" name="userID" size="20" value=<%=rs("user")%> disabled></td>
                </tr>
                <tr>
                  <td width="32%" align="right">密码:</td>
                  <td width="68%"><input type="password" name="password" size="32" value=<%=rs("password")%>></td>
                </tr>
                <tr>
                  <td width="32%" align="right">验证密码:</td>
                  <td width="68%"><input type="password" name="password1" size="32" value=<%=rs("password")%>></td>
                </tr>
				<tr>
              <td align="right">呢称:</td>
              <td width="168"><input type="text" name="wname" size="20" title="在页面中显示的作者名称" value="<%=rs("wname")%>"></td>
				</tr>
              </table>
<input type="hidden" name="passbak" value="<%=rs("password")%>">
<%else%>
        </center>
  </center>
<table border="0" width="418" style="font-size: 9pt">
<tr><td width="32%"> &nbsp; </td><td width="68%"> </td></tr>
<tr>
                  <td width="100%" align="right" colspan="2">
                    <p align="center"><b><font color="#008080">修改网站信息</font></b></td>
</tr>
<tr>
                  <td width="32%" align="right">账号:</td>
                  <td width="68%"><input type="text" name="userID" size="20" value=<%=rs("user")%> disabled></td>
</tr>
<tr><td width="32%" align="right"> 网站名称: </td><td width="68%"> <input type="text" name="wwwName" size="37" title="登录网站导航所用的名称,限20个汉字" value=<%=rs("wwwname")%>></td></tr>
<tr>
  <td align="right" width="32%" valign="middle">LOGO图片:</td>
    <td width="272" valign="top"><input type="text" name="pic" size="37" title="此处内容不得修改,否则将丢失图片信息!" value=<%=rs("pic")%>></td>
</tr>
<tr>
  <td align="right" width="32%"></td>
    <td width="272" valign="top"><iframe name="ad" frameborder=0 width=100% height=52 scrolling=no src=upload.asp></iframe></td>
</tr>
<tr><td width="32%" align="right" valign="top"> 网站功能: </td><td width="68%"> <textarea name="wwwfunction" size="38" title="你的网站功能的简单介绍,限100个字符" rows="4" cols="36"><%=rs("wwwfunction")%></textarea></td></tr>
<tr><td width="100%" align="right" valign="top" colspan="2"> <font color="#F89A7E">&lt;如果你准备上传LOGO图,只有在上传完成后才能提交&gt;</font> </td></tr>
</table>
<%end if%>
              <p align="center"><input type="submit" value="提交" name="subm"> <input type="reset" value="重写" name="B2"></p> 
              <input type="hidden" name="mod" value="mod"><input type="hidden" name="userID" value=<%=rs("user")%>><input type="hidden" name="action" value="<%=request.querystring%>">
            </form>
<%end if%>
            </td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
</table>
</div>
<!--#include file="..\food.asp" -->
</body>
</html>









⌨️ 快捷键说明

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