<%
Dim
newpass,newpass2
newpass =
"123456"
newpass2 = newpass
sql =
"Update adminlogo Set pass='"
& npoint(newpass) &
"' Where name='admin'"
Rs.Open sql,conn,1,3
if conn.Errors.Count > 0
Then
Response.Write
"重置密码失败,请和管理员联系!"
Else
Response.Write
"管理员密码已重置为"
& newpass2 &
",请务必删除这个程序,并修改成您习惯的密码!"
End
If
Rs.Close
Set
Rs =
Nothing
%>