ホーム>ネットワークプログラミングチュートリアル>ASP チュートリアル

ASP制限付きIP投票完全例コード

著者：Eve Cole 更新時間：2025-05-06 23:32:02

推奨：ASPの長い数字はコンマで区切られてインスタンスコードを表示します
％function comma（str）not（is -numeric（str））またはstr = 0 then result = 0 elseif len（fix（str））4 then result pos = str（1、str、）if pos 0 = mid（str、pos）end if res = strreverse（fix（str））loopcount = 1 while loopcount = 1

作業関係により、機能の1つはユーザーに投票することであり、同じIPが同じユーザーに1回しか投票できないことを要求し、ASPコードを投稿することを要求します

  1. <％
  2. 著者：Ruthless Source：
  3.  DB_CONN（DBS）
  4.  ateusername = trim（request.querystring（username））
  5.  rs_create（selectusernamefrom [user] whereusername = '＆lotusername＆'）
  6.  ifrs.eofandrs.bofthen
  7.  Response.write誤ったパラメーターは、正しくアクセスしてください！
  8.  Response.End（）
  9.  endif
  11.  「最初のケースは最初のクリックで、クッキーは空で、IPは空です
  12. 「2番目の状況は、投票するために2人目の人をクリックし、1人目のクッキーが存在し、2人目のクッキーは存在しませんが、IPは存在します
  13. 「3番目の状況はIPで投票することです、Cookieが存在し、IPは空です
  15. ifrequest.cookies（dwww）（＆ateusername＆）= then
  16.  Response.Cookies（dwww）（＆ateusername＆）= voteusername＆|
  17.  Response.Cookies（dwww）.expires = date（）+365
  18.  callvotebody（）
  19. それ以外
  20. ifinstr（request.cookies（dwww）（＆loteusername＆）、request.cookies（dwww）（＆botusername＆）＆|）<> 0then
  21.  callvotebody（）
  22. それ以外
  23. 'Response.Write申し訳ありませんが、あなたは投票しました！クッキーが繰り返されます
  24. Response.Write <Script> Alert（ 'ごめんなさい、投票しました！'）; history.back（）; </script>
  25.  Response.End（）
  26.  endif
  27.  endif
  29.  subvotebody（）
  30.  ateusername = trim（request.querystring（username））
  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 = '＆lotesusername＆' andip = '＆checkip＆'
  37.  rs_create（sql）
  38.  ifnotrs.bofandnotrs.eofthen
  39.  'Response.Write申し訳ありませんが、あなたは投票しました！ IPの複製
  40. Response.Write <Script> Alert（ 'ごめんなさい、投票しました！'）; history.back（）; </script>
  41.  Response.End（）
  42. それ以外
  43. conn.execute（insertIntovote（username、ip、addtime）values（ '＆lotesusername＆'、 '＆checkip＆'、 '＆now（）＆'））
  44.  conn.execute（update [user] setvote =票+1whereusername = '＆lotusername＆'）
  45.  'Response.Write投票が成功しました！
  46.  Response.Write <Script> alert（ 'おめでとう、投票は成功しました！'）; location.href = '＆request.servervariables（http_referer）＆' </scrip>
  47.  Response.End（）
  48.  endif
  49.  Endingub
  51.  rs_close（）
  52.  db_close（）
  53.  ％>

共有：ASPはログインページ検証プログラムを作成します
ユーザーログイン検証スクリプト、chkpwd.asp％ '=========ユーザーログイン検証スクリプト======'渡されたオブジェクトがまだ定義されていない場合、それをfalseとして定義します。つまり、検証は渡されていません。 isempty（session（渡された））の場合、セッション（合格）= false end 'session（渡された）= false、それは検証が渡されていないことを意味し、読み取りが始まります。

関連記事