if session("axsn")=empty then
dim sname
sname=ucase(Request.ServerVariables("server_name"))
if left(sname,3)="WWW" then
sname=mid(sname,5,len(sname)-4)
end if
sname=replace(sname,".","")

set rs=conn.execute("select * from Hover_sys")
sname=rs("regcode")&sname
'response.write(sname)
if rs("sitelock")=md5(sname) then
session("axsn")=rs("Sitelock")
else
axerr()
end if
end if

sub axerr()
response.write("****** 获取注册码，点击<a href='./regcode.asp'>注册</a>！")
response.end
end sub

[培训]科锐逆向工程师培训第53期2025年7月8日开班！