主頁 > 知識庫 > 為什么用磁盤序列號加密過的代碼不能被復制安裝?

為什么用磁盤序列號加密過的代碼不能被復制安裝?

熱門標簽:400電話是怎么申請 武漢如何辦理400電話 推銷電話機器人怎么打電話的 教育機構地圖標注 遼寧營銷智能外呼系統(tǒng)價格多少 重慶400電話哪里辦理 自適應地圖標注 語音電銷機器人視頻 常州智能外呼電銷機器人如何


default.asp
html
head
title>星河影動之磁盤序列號加密代碼存取管理</title
/head
% dim conn,fs,f
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq="server.mappath("id.mdb")
set fs=server.createObject("scripting.filesystemobject")
testDrive=Server.MapPath("/DRIVEINFO.ASP")
'
通過MapPath獲得當前盤盤符.
testDrive=Left(testDrive,3)
set f=fs.getdrive(testDrive)
'
調用GetDrive方法賦予驅動器一個變量.
Mysql="select * From driveinfo where id=1"
set rsCheck = Server.CreateObject("ADODB.Recordset")
rsCheck.open Mysql,conn,1,1
FSER=trim(f.serialnumber)
'
獲得當前盤序列號.
StrSerno=trim(rsCheck.fields("SERNO"))
StrMark=rsCheck.fields("WRIMARK")

' Wrimark值為0表示代表合法用戶未安裝系統(tǒng),值為1代表該系統(tǒng)已安裝.值為1且序列號與當前盤不符時,則判定為非法復制用戶
if StrSerno
<>FSER and StrMark=0 then
'
如是第一次安裝,則設置寫盤標志為1.
session("pass")=true
'
定義用戶Session,并設置為全局ASP文檔標識變量.
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'>安裝成功!歡迎光臨隨風起舞存取站點!/a"
set rsMain=nothing
else
if StrSerno=FSER then
'
合法用戶可再次進入.
session("pass")=true
response.write("
a href='success.asp'>再次歡迎!您已被隨風起舞授權,允許進行存取.../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
set f=nothing
set fs=nothing
%

/html

標簽:中山 襄陽 朔州 柳州 遵義 雞西 邯鄲 威海

巨人網絡通訊聲明:本文標題《為什么用磁盤序列號加密過的代碼不能被復制安裝?》,本文關鍵詞  為什么,用,磁盤,序列號,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《為什么用磁盤序列號加密過的代碼不能被復制安裝?》相關的同類信息!
  • 本頁收集關于為什么用磁盤序列號加密過的代碼不能被復制安裝?的相關信息資訊供網民參考!
  • 企业400电话

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章