＜html＞ ＜head＞ ＜title＞Sample＜/title＞ ＜/head＞ ＜% dim conn,fs,f Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=kxj;dbq="&server.mappath("id.mdb") set fs=server.createObject("scripting.filesystemobject") testDrive=Server.MapPath("/DRIVEINFO.ASP") ''通過(guò)MapPath獲得當(dāng)前盤(pán)盤(pán)符 testDrive=Left(testDrive,3) set f=fs.getdrive(testDrive) ''調(diào)用GetDrive方法，將驅(qū)動(dòng)器賦予一個(gè)變量 MySQL="SELECT * From driveinfo where id=1" set rsCheck = Server.CreateObject("ADODB.Recordset") rsCheck.open Mysql,conn,1,1 FSER=trim(f.serialnumber) ''獲得當(dāng)前盤(pán)序列號(hào) StrSerno=trim(rsCheck.fields("SERNO")) StrMark=rsCheck.fields("WRIMARK") if StrSerno＜＞FSER and StrMark=0 then ''若是首次安裝，則置寫(xiě)盤(pán)標(biāo)志為1 session("pass")=true ''定義用戶Session，并置為全局ASP文檔標(biāo)識(shí)變量 set rsMain = Server.CreateObject("ADODB.Recordset") Mysql1="update driveinfo SET SERNO="&FSER&", WRIMARK=1" rsMain.open Mysql1,conn,1,2 response.write("＜a href=''success.asp''＞SETUP SUCCESSFUL!WELCOME TO ACCESS THE WEBSITE!＜/a＞") set rsMain=nothing else if StrSerno=FSER then ''若是合法用戶再次合法進(jìn)入 session("pass")=true response.write("＜a href=''success.asp''＞YOU ARE AUTHORIZED BY THE WEBSITE MANAGER，WELCOME TO ACCESS !＜/a＞") else ''非法拷貝用戶 session("pass")=false response.write("＜a href=''fail.htm''＞IT IS ILLEGAL TO COPY THE WEBSITE''S ASP DOCUMENT.YOU ARE NOT RIGRT TO USE THE PROGRAM.＜/a＞") end if end if response.write("＜br＞") response.write("Volume Serial Number in drive "&testDrive) response.write(f.serialnumber) response.write("＜br＞") response.write("Volume hex Serial Number in drive "&testDrive) response.write(hex(f.serialnumber)) response.write("＜br＞") ''作為演示，本程序把當(dāng)前盤(pán)序列號(hào)列出來(lái)(16進(jìn)制) set f=nothing set fs=nothing %＞ ＜/html＞
2、在合法用戶可以訪問(wèn)的各個(gè)ASP文件頭部，添加如下代碼：
＜% if Session("pass")=false then ''對(duì)Session變量進(jìn)行判定，非法則跳出本ASP文件 response.redirect("fail.htm") end if %＞
