N点主机管理系统重置密码方法

<!--#include file="../inc/conn.asp" -->
<!--#include file="../inc/npoint.asp" -->
<%
Dim newpass,newpass2
newpass = "www.jb51.net"
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
%>