С момента появления ASP (Active Server Pages), потому что он может создать сильную систему приложений, которую легко поддерживать и не имеет значения, технология ASP любила все больше и больше сетевых программистов. Тем не менее, ASP -это просто тип не -компиляции, язык сценариев, работающий на стороне сервера.
Заявки SP не незаконно скопированы. Для администраторов высокого органа вы можете легко скопировать программу ASP с сервера на другие несанкционированные веб -сайты. Это вызывает некоторые трудности в коммерциализации приложений ASP. Как эффективно защитить разработанные программы ASP, основанные на случайности, генерируемой серийным номером диска, в сочетании с официальной программой шифрования сценария ASP Screanc.exe, предоставленной Microsoft, официально решила эту проблему.
Серийный номер диска, называемый идентификатором диска, представляет собой информацию о идентификации диска, генерируемой при отформатировании диска. Два формата одной и той же машины для случайного генерирования серийного номера фиксированного формата почти нулевы. Переключите от Windows9.x на MS-DOS и введите команду DIR, чтобы вернуть. Некоторое программное обеспечение, используемое в течение определенного периода времени, потребуется подать заявку на новый авторизованный серийный номер (с использованием разрешения) онлайн после доступного периода использования. В значительной части этого авторизованного номера последовательности используется время привязки номера последовательности статического диска. После установки программа не может быть использована, даже если программа незаконно скопирована в неинациональную среду установки.
Вышеупомянутые мысли легко достичь в языке программирования VC, VB и Deliphi. VBScript, как сильный и безопасный язык пользователей, ограничен клиентской системой. Поэтому в этой статье используется VBScript и объединяет встроенную ASP -в компонентную файловую систему для достижения вышеуказанных идей. Следующие процедуры слегка изменяются в соответствии с конкретной ситуацией, которая может быть применена к фактической системе приложения ASP.
В качестве примера объяснения, в этой статье используется механизм безопасности базы данных доступа. Чтобы облегчить разработку, мы сначала создаем идентификатор базы данных доступа.
ID (автоматический номер);
Серно (текст, 12, серийный номер диска (10 -in));
WRIMARK (номер, 1, написание логотипа).
иллюстрировать
Значение WRIMARK равно 0 означает, что юридический пользователь не установил систему, а значение - 1, представляющее установку системы. Когда значение составляет 1, а серийный номер не соответствует текущему диску, он считается незаконным копированием пользователей.
При инициализации сначала определите новую запись, начальное значение каждого поля составляет 112345678,0 соответственно.
В том же каталоге, например, в соответствии с c:/interpub/wwwroot, поместите домашнюю страницу Default.asp, Legal User Home Page Success.ASP, страница незаконной установки пользователя.
Работа по написанию каждого файла ASP заключается в следующем:
1. Используйте FrontPage (или Блокнот) для создания нового файла ASP default.asp и введите следующий код программы:
<html>
<Голова>
<Title> образец </title>
</Head>
<% Dim conn, fs, f
Установить conn = server.createObject ("adodb.connection")
conn.open "Driver = {Microsoft Access Driver (*.mdb)}; uid =; pwd = kxj; dbq =" & server.mappath ("id.mdb")
Установить fs = server.createObject ("scripting.filesystemobject")
testdrive = server.mappath ("/driveinfo.asp")))
'Получите текущее образование диска с помощью mappath
TestDrive = слева (TestDrive, 3)
Установите f = fs.getDrive (testDrive)
'' Позвоните в метод GetDrive и придайте диску переменную
Mysql = "select * из DriveInfo, где id = 1"
Установить rscheck = server.createObject
rscheck.open mysql, conn, 1,1
FSER = TRIM (F.SerialNumber)
'Получите текущий серийный номер диска
Strserno = trim (rscheck.fields ("serno")))
Strmark = rscheck.fields ("" wrimark ")
Если strserno <> fser и strmark = 0, то
'' Если он установлен в первый раз, логотип письма - 1
Session ("pass") = true
'' Определите сеанс пользователя и разместил его как глобальную переменную идентификацию документа ASP
Установить rsmain = server.createObject ("adodb.recordset")
Mysql1 = "Обновление DriveInfo serno =" & fser & ", wrimark = 1"
rsmain.open mysql1, conn, 1,2
response.write ("<" <"<"
Успешное! Добро пожаловать на сайт!
Установить rsmain = ничего
еще
Если strserno = fser, тогда
'' Если юридический пользователь снова входит
Session ("pass") = true
Response.write ("<" << href = '' 'Success.asp' '> Вы авторизованы менеджером веб -сайта, приветствуют принять! <// a> ")
еще
'' Незаконное копирование пользователя
сеанс ("pass") = false
Response.write ("<" <"<" <"<" <"<", 'fail.htm' '＞ Незаконно копировать веб -сайт ASP Document. Вы не можете использовать программу.
конец, если
конец, если
response.write ("<br>")
Response.write ("Серийный номер тома на дисков" & testdrive)
response.write (F.SerialNumber)