en_pass.asp

来自「不错的ASP整站源代码。在IIS环境下运行都没有问题」· ASP 代码 · 共 21 行

<!--#include file=../inc/encrypt.asp -->
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/xlist.asp")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

set rs=server.createobject("adodb.recordset")
sql="select * from user_reg"
rs.open sql,conn,3,2

DO While Not Rs.EOF
  Rs("password")=Encode(Rs("password"))
  Rs.MoveNext
Loop
  
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "../info.asp?msg=密码加密成功！！！"
%>