default.asp
<

<标题>磁盘序列号加密代码访问管理星河阴影>标题>
<头/ >
<%昏暗的Conn，FS，F
设置conn = server.createobject（数据连接）
conn.open司机= {微软Access Driver（* .mdb）}；UID =；密码= 3302；DBQ =server.mappath（id.mdb ）
设置FS = server.createobject（脚本。FileSystemObject ）
测试= server.mappath（ / DriveInfo。ASP ）
通过MapPath获取当前磁盘驱动器。
测试=左（双门轿跑车，3）
集F = fs.getdrive（测试）
叫getdrive方法给一个变量驱动。
MySQL =SELECT * FROM DriveInfo id是1
集rscheck = server.createobject（ADODB。记录集）
RsCheck.open Mysql，Conn，1
FSER =装饰（f.serialnumber）
获取当前磁盘序列号。
strserno =装饰（rscheck.fields（该））
的strmark = rscheck.fields（wrimark ））wrimark值是0，这意味着安装不合法用户。值为1，表示系统已安装。当值为1时，序列号与当前磁盘不匹配，则判断为非法用户。
如果StrSerno <> FSER，strmark = 0
如果安装了第一个安装，写入磁盘标志设置为1。
会话（）=真
定义用户会话并将其设置为全局asp文档标识变量。
集rsmain = server.createobject（ADODB。记录集）
mysql1 =更新DriveInfo设置该=FSER
rsmain.open mysql1，Conn 1,2
response.write（href = ''成功。ASP>安装成功！欢迎来到风之舞网站！< >
集rsmain =没有
其他的
如果strserno = FSER然后
合法用户可以再次进入。
会话（）=真
response.write（href = ''成功。ASP>欢迎再次光临！您已被授权跳舞与风，允许访问…< >
其他的
非法复制用户。
会话（）= false
response.write（< a href = 'fail .htm>它复制网站的ASP文件是非法的）===
最后如果
最后如果
设置f =无
设置FS =无
%。
< >