<!--#include file =../conn.asp-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="../inc/md5.asp" -->
<!-- #include file="../inc/myadmin.asp" -->
<%
Rem 验证用途
Rem 加密算法加密
Rem 查询前台管理员用户名
Rem 猜得前台管理员帐户
Rem 获取无用的IP不可解密加密信息
Dim UserName
UserName = Request("Name")
If UserName = "" Then
Response.Write "非法的参数！"
Response.End
End If
UserName = Replace(UserName,"'","")
Set Rs = Dvbbs.Execute("Select LastLoginIP From "&AdminTable&" Where AddUser = '"&UserName&"'")
If Rs.Eof And Rs.Bof Then
Response.Write "Null"
Else
Response.Write Md5(Md5(Rs(0),32),32)
End If
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
