Рекомендуется: интерпретировать способы улучшения MSSQL и совместимости доступа Как мы все знаем, в ASP наиболее часто используемыми базами данных являются доступ и MSSQL. Многие программы хотят превратиться в шаблон, который может использоваться обеими базами данных, но из -за противоречивых операторов SQL двух баз данных многие программы разделены на две ненужные версии, а именно доступ к доступу и MSSQL! На самом деле, мы можем судить и распознать кодекс
Я написал код, который я собрал у воров и общался с вами!
Использование:
Сохранить файл отдельно, например (№ ASP);
Просто добавьте его с <!-#Включите файл = № ASP-> в начале соответствующей страницы ASP!
<%
'*******************************************
'* Профилактика веб -страницы и реализации коллекции*
'*******************************************
DIM OnlyUrl, от
*** Укажите источник URL ...
только url =/
from = trim (request.servervariables (http_referer)))
Если от = then
'*** Источник пуст: вы можете войти в URL или вора напрямую ...
response.write <div style = 'display: none'> <p> отклонить воры !!!
response.write <p> из: & из
response.write <p> Пожалуйста, посетите: <a href = '& onlyurl &'> & onlyurl & </a>
response.write <p> <form name = 'blankform' method = get action = ''> </form>
response.write <p> <script language = javascript> blankform.submit () </script> & vbcrlf
response.end
еще
Если instr (from, onlyurl) <> 1 тогда
*** Не указанный источник: ссылка вор ...
response.write <div style = 'display: none'> <p> отклонить воры ссылки !!!
response.write <p> из: & из
response.write <p> Пожалуйста, посетите: <a href = '& onlyurl &'> & onlyurl & </a>
response.write <p> <form name = 'blankform' method = get action = ''> </form>
response.write <p> <script language = javascript> blankform.submit () </script>
response.end
еще
'*** Источник нормальный, доступ к следующему контенту ...
конец, если
конец, если
%>
Источник: CSDN
Поделиться: Parse ASP скрытый адрес загрузки и противоугонный код Ниже приведено цитируемое содержание: