admin1.asp

来自「软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,」· ASP 代码 · 共 26 行

<%
Set rsa=Server.CreateObject("ADODB.recordset")
mysqa="select * from admin where aduser='admin'"
set rsa=cn1.execute(mysqa)

aduser="admin" 
adpass=rsa("adpass")
adname=rsa("adname")
admail=rsa("admail")
adoicq=rsa("adoicq")
adpoad=rsa("adpoad")
adbank=rsa("adbank")
adcard_id=rsa("adcard")
url=rsa("url") 
'以上为网管资料
'以下为寄给1至5级和网管激活费数
yan1=rsa("yan1")
yan2=rsa("yan2")
yan3=rsa("yan3")
yan4=rsa("yan4")
yan5=rsa("yan5")

rsa.close
set rsa=nothing

%>