📄 sql_admin.asp
字号:
<!--#include file="Sql_Conn_Open.asp"-->
<!--#include file="Sql_Check.asp"-->
<!--#include file="Sql_Md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>帐号管理</title>
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" background="Images/Sql_top_bg.gif"> </td>
</tr>
</table>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="table">
<%
New_Pass = request("New_Pass")
New_Pass = md5(New_Pass)
Sql_Pass = request("Sql_Pass")
Sql_Pass = md5(Sql_Pass)
sql="select * from Sql_Admin where Sql_Name= 'admin'"
set rs = conn.execute(sql)
if request("Submit") <> "" then
if request("New_Pass") = request("Check_NewPass") and Sql_Pass = rs("Sql_Pass") then
sql="update Sql_Admin set Sql_Pass = '"&New_Pass&"' where Sql_Name= 'admin'"
conn.execute(sql)
response.redirect "Sql_Admin.asp"
else
Response.write "<script language='javascript'>" & VbCRlf
Response.write "alert('系统提示\n信息填写错误，拒绝修改！');" & VbCrlf
Response.write "history.go(-1);" & vbCrlf
Response.write "</script>" & VbCRLF
Response.end
end if
end if
%>
<form name="form" method="post" action="Sql_Admin.asp">
<tr >
<td bgcolor="799AE1"height="26" colspan="4" align="center" class="font">
<div align="right">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td class="font"><b><font color="#FFFFFF">修改密码</font></b></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td width="12%" height="25" align="center" bgcolor="#FFFFFF" class="td">原始密码</td>
<td width="92%" height="25" colspan="3" align="left" valign="middle" bgcolor="#FFFFFF" class="td">
<input name="Sql_Pass" type="PassWord" class="input" size="30"> </td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td">新 密 码</td>
<td height="25" colspan="3" align="left" valign="middle" bgcolor="#FFFFFF" class="td">
<input name="New_Pass" type="PassWord" class="input" size="30"></td>
</tr>
<tr>
<td width="12%" height="23" align="center" bgcolor="#FFFFFF" class="td">确认密码</td>
<td height="23" colspan="3" align="left" valign="middle" bgcolor="#FFFFFF" class="td">
<b><font color="#FFFFFF">
<input name="Check_NewPass" type="PassWord" class="input" size="30">
</font></b></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="td"></td>
<td height="25" colspan="3" valign="middle" bgcolor="#FFFFFF" class="td">
<input type="submit" name="Submit" value="确定修改">
<input type="button" name="Submit" value="返回上页" onClick="history.go(-1)">
</td>
</tr>
</form>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="10">
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="Sql_Conn_Close.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -