Главная страница>Учебник по сетевому программированию>Учебное пособие по ASP

ASP ограниченный IP -голосование полным примером кода

Автор：Eve Cole Время обновления：2025-05-06 23:32:02

Рекомендуется: длинные числа ASP разделяются запятыми для отображения кода экземпляра
% Function function (str), если нет (isNumeric (str)) или str = 0, то Result = 0 elseif len (fix (str)) 4 Тогда Result = str Else pos = instr (1, str ,.) Если pos 0, то dec = mid (str, pos) end, если res = strRevers

В связи с рабочими отношениями одна из функций - голосовать за пользователей, требуя, чтобы один и тот же IP мог голосовать только за одного пользователя только один раз, и опубликовать код ASP

  1.  <%
  2.  'Автор: безжалостный источник:
  3.  db_conn (dbs)
  4.  GohateUsername = trim (request.querystring (имя пользователя))
  5.  rs_create (selectusernamefrom [user] whereusername = '& hoalusername &')
  6.  ifrs.eofandrs.bofthen
  7.  Response.write Неверные параметры, пожалуйста, обратитесь к ним правильно!
  8.  response.end ()
  9.  эндиф
  11.  'Первый случай - первый клик, файлы cookie пусты, а IP пуст
  12.  «Вторая ситуация состоит в том, чтобы щелкнуть второго человека, чтобы проголосовать, существуют файлы cookie у первого человека, куки второго человека не существует, но IP существует
  13.  «Третья ситуация состоит в том, чтобы голосовать с помощью IP, существуют файлы cookie, IP пуст
  15.  ifrequest.cookies (dwww) (& hoalusername &) = then
  16.  Response.cookies (dwww) (& hoalusername &) = hoalusername & |
  17.  Response.cookies (dwww) .expires = date ()+365
  18.  Callvotebody ()
  19.  еще
  20.  ifinstr (request.cookies (dwww) (& hoalusername &), request.cookies (dwww) (& hoalusername &) и |) <> 0then
  21.  Callvotebody ()
  22.  еще
  23.  'response.write Извините, вы проголосовали! Куки повторяются
  24.  Response.write <script> alert («Извините, вы проголосовали!
  25.  response.end ()
  26.  эндиф
  27.  эндиф
  29.  Subvotebody ()
  30.  GohateUsername = trim (request.querystring (имя пользователя))
  31.  Checkip = request.servervariables (http_x_forwarded_for) 'обходной прокси IP
  32.  Ifcheckip = thenCheckip = request.servervariables (remote_addr)
  33.  Geturl =
  34.  Geturl = request.servervariables (http_referer)
  36.  sql = selectUsername, ipfromvotewhereUsername = '& hoalusername &' andip = '& checkip &'
  37.  rs_create (sql)
  38.  Ifnotrs.bofandnotrs.eofthen
  39.  'response.write Извините, вы проголосовали! IP дубликат
  40.  Response.write <script> alert («Извините, вы проголосовали!
  41.  response.end ()
  42.  Еще
  43.  conn.execute (insertintovote (username, ip, addtime) values ​​('& hoalusername &', '& checkip &', '& own () &'))
  44.  conn.execute (update [user] setvote = hogle+1hessUsername = '& hoalusername &')
  45.  'response.write голосовать успешно!
  46.  Response.write <script> alert («Поздравляю, голосование было успешным!»); Location.href = '& request.servervariables (http_referer) &' </script>
  47.  response.end ()
  48.  Эндиф
  49.  заканчивая
  51.  rs_close ()
  52.  db_close ()
  53.  %>

Поделиться: ASP создает программу проверки страницы входа в систему
Скрипт проверки входа в систему пользователя, chkpwd.asp % '========= Скрипт проверки входа в систему пользователя ======' Если пройденное объект еще не определен, определите его как false, что означает, что проверка не была передана. Если isempty (session (прошедший)), то Session (Moder) = false End, если 'session (пройден) = false, это означает, что проверка не была передана, а затем начинается чтение.

Связанные статьи