{"id":6,"date":"2006-04-01T06:36:11","date_gmt":"2006-04-01T06:36:11","guid":{"rendered":"http:\/\/blog.jason695.idv.tw:81\/wordpress\/?p=6"},"modified":"2008-05-15T17:29:30","modified_gmt":"2008-05-15T09:29:30","slug":"%e8%bd%89%e5%b8%961%e5%b0%8f%e6%99%82asp%e5%85%a5%e9%96%80%ef%bc%8c%e9%9d%9e%e5%b8%b8%e7%b0%a1%e5%96%ae","status":"publish","type":"post","link":"https:\/\/jason695.why3s.tw\/wordpress\/2006\/04\/01\/%e8%bd%89%e5%b8%961%e5%b0%8f%e6%99%82asp%e5%85%a5%e9%96%80%ef%bc%8c%e9%9d%9e%e5%b8%b8%e7%b0%a1%e5%96%ae\/","title":{"rendered":"[\u8f49\u5e16]1\u5c0f\u6642asp\u5165\u9580\uff0c\u975e\u5e38\u7c21\u55ae"},"content":{"rendered":"

1\u5c0f\u6642ASP\u5165\u9580\uff0c\u975e\u5e38\u7c21\u55ae\u3002<\/p>\n

\r\n<%\r\n   \u8a9e\u53e5\r\n   \u2026\u2026\r\n%>\r\n<\/pre>\n
<2>\u5b9a\u7fa9\u8b8a\u91cfdim\u8a9e\u53e5<\/p>\n
\r\n<%\r\n  dim a,b\r\n  a=10\r\n  b=\u300dok!\u300d\r\n%>\r\n<\/pre>\n
\u6ce8\u610f\uff1a\u5b9a\u7fa9\u7684\u8b8a\u91cf\u53ef\u4ee5\u662f\u6578\u503c\u578b\uff0c\u4e5f\u53ef\u4ee5\u662f\u5b57\u7b26\u6216\u8005\u5176\u4ed6\u985e\u578b\u7684
\n<3>\u7c21\u55ae\u7684\u63a7\u5236\u6d41\u7a0b\u8a9e\u53e5
\n  1. <\/p>\n
\r\nIf \u689d\u4ef61 then\r\n     \u8a9e\u53e51\r\nelseif \u689d\u4ef62 then\r\n     \u8a9e\u53e52\r\nelse\r\n     \u8a9e\u53e53\r\nendif\r\n<\/pre>\n
2.<\/p>\n
\r\nwhile \u689d\u4ef6\r\n   \u8a9e\u53e5 \r\n  wend\r\n<\/pre>\n
3.<\/p>\n
\r\nfor count=1 to n step m\r\n  \u8a9e\u53e51\r\n  exit for\r\n  \u8a9e\u53e52\r\nnext \r\n<\/pre>\n
\u4e8c.ASP\u6578\u64da\u5eab\u7c21\u55ae*\u4f5c\u6559\u7a0b
\n<1>.\u6578\u64da\u5eab\u9023\u63a5(\u7528\u4f86\u55ae\u7368\u7de8\u88fd\u9023\u63a5\u6587\u4ef6conn.asp)<\/p>\n
\r\n<%\r\nSet conn = Server.CreateObject(\"ADODB.Connection\")\r\nconn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"\\bbs\\db1\\user.mdb\") \r\n%>\r\n<\/pre>\n
(\u7528\u4f86\u9023\u63a5bbs\\db1\\\u76ee\u9304\u4e0b\u7684user.mdb\u6578\u64da\u5eab)
\n<2>\u986f\u793a\u6578\u64da\u5eab\u8a18\u9304
\n  \u539f\u7406\uff1a\u5c07\u6578\u64da\u5eab\u4e2d\u7684\u8a18\u9304\u4e00\u4e00\u986f\u793a\u5230\u5ba2\u6236\u7aef\u700f\u89bd\u5668\uff0c\u4f9d\u6b21\u8b80\u51fa\u6578\u64da\u5eab\u4e2d\u7684\u6bcf\u4e00\u689d\u8a18\u9304
\n        \u5982\u679c\u662f\u5f9e\u982d\u5230\u5c3e\uff1a\u7528\u5faa\u74b0\u4e26\u5224\u65b7\u6307\u91dd\u662f\u5426\u5230\u672b      \u4f7f\u7528: not rs.eof
\n        \u5982\u679c\u662f\u5f9e\u5c3e\u5230\u982d\uff1a\u7528\u5faa\u74b0\u4e26\u5224\u65b7\u6307\u91dd\u662f\u5426\u5230\u958b\u59cb    \u4f7f\u7528\uff1anot rs.bof<\/p>\n
\r\n            (\u5305\u542bconn.asp\u7528\u4f86\u6253\u958bbbs\\db1\\\u76ee\u9304\u4e0b\u7684user.mdb\u6578\u64da\u5eab)\r\n        < %\r\n         set rs=server.CreateObject(\"adodb.recordset\")  (\u5efa\u7acbrecordset\u5c0d\u50cf)\r\n         sqlstr=\"select * from message\"  ---->(message\u70ba\u6578\u64da\u5eab\u4e2d\u7684\u4e00\u500b\u6578\u64da\u8868\uff0c\u5373\u4f60\u8981\u986f\u793a\u7684\u6578\u64da\u6240\u5b58\u653e\u7684\u6578\u64da\u8868)\r\n         rs.open sqlstr,conn,1,3         ---->(\u8868\u793a\u6253\u958b\u6578\u64da\u5eab\u7684\u65b9\u5f0f)\r\n         rs.movefirst                    ---->(\u5c07\u6307\u91dd\u79fb\u5230\u7b2c\u4e00\u689d\u8a18\u9304)\r\n         while not rs.eof                ---->(\u5224\u65b7\u6307\u91dd\u662f\u5426\u5230\u672b\u5c3e)\r\n         response.write(rs(\"name\"))      ---->(\u986f\u793a\u6578\u64da\u8868message\u4e2d\u7684name\u5b57\u6bb5)\r\n         rs.movenext                     ---->(\u5c07\u6307\u91dd\u79fb\u52d5\u5230\u4e0b\u4e00\u689d\u8a18\u9304)\r\n         wend                            ---->(\u5faa\u74b0\u7d50\u675f)\r\n------------------------------------------------------         \r\n         rs.close\r\n         conn.close                    \u9019\u5e7e\u53e5\u662f\u7528\u4f86\u95dc\u9589\u6578\u64da\u5eab\r\n         set rs=nothing\r\n         set conn=nothing\r\n-------------------------------------------------------\r\n        %>\r\n<\/pre>\n
       \u5176\u4e2dresponse\u5c0d\u8c61\u662f\u670d\u52d9\u5668\u5411\u5ba2\u6236\u7aef\u700f\u89bd\u5668\u767c\u9001\u7684\u4fe1\u606f
\n<3>\u589e\u52a0\u6578\u64da\u5eab\u8a18\u9304
\n\u589e\u52a0\u6578\u64da\u5eab\u8a18\u9304\u7528\u5230rs.addnew,rs.update\u5169\u500b\u51fd\u6578<\/p>\n
  \r\n            (\u5305\u542bconn.asp\u7528\u4f86\u6253\u958bbbs\\db1\\\u76ee\u9304\u4e0b\u7684user.mdb\u6578\u64da\u5eab)\r\n        < %\r\n         set rs=server.CreateObject(\"adodb.recordset\")  (\u5efa\u7acbrecordset\u5c0d\u50cf)\r\n         sqlstr=\"select * from message\"  ---->(message\u70ba\u6578\u64da\u5eab\u4e2d\u7684\u4e00\u500b\u6578\u64da\u8868\uff0c\u5373\u4f60\u8981\u986f\u793a\u7684\u6578\u64da\u6240\u5b58\u653e\u7684\u6578\u64da\u8868)\r\n         rs.open sqlstr,conn,1,3         ---->(\u8868\u793a\u6253\u958b\u6578\u64da\u5eab\u7684\u65b9\u5f0f)\r\n         rs.addnew                      \u65b0\u589e\u52a0\u4e00\u689d\u8a18\u9304\r\n         rs(\"name\")=\"xx\"                \u5c07xx\u7684\u503c\u50b3\u7d66name\u5b57\u6bb5\r\n         rs.update                      \u5237\u65b0\u6578\u64da\u5eab \r\n------------------------------------------------------         \r\n         rs.close\r\n         conn.close                    \u9019\u5e7e\u53e5\u662f\u7528\u4f86\u95dc\u9589\u6578\u64da\u5eab\r\n         set rs=nothing\r\n         set conn=nothing\r\n-------------------------------------------------------          \r\n                    \r\n        %>\r\n<\/pre>\n
<4>\u522a\u9664\u4e00\u689d\u8a18\u9304
\n  \u522a\u9664\u6578\u64da\u5eab\u8a18\u9304\u4e3b\u8981\u7528\u5230rs.delete,rs.update<\/p>\n
\r\n       (\u5305\u542bconn.asp\u7528\u4f86\u6253\u958bbbs\\db1\\\u76ee\u9304\u4e0b\u7684user.mdb\u6578\u64da\u5eab)\r\n        < %\r\n         dim name\r\n         name=\"xx\"\r\n         set rs=server.CreateObject(\"adodb.recordset\")  (\u5efa\u7acbrecordset\u5c0d\u50cf)\r\n         sqlstr=\"select * from message\"  ---->(message\u70ba\u6578\u64da\u5eab\u4e2d\u7684\u4e00\u500b\u6578\u64da\u8868\uff0c\u5373\u4f60\u8981\u986f\u793a\u7684\u6578\u64da\u6240\u5b58\u653e\u7684\u6578\u64da\u8868)\r\n         rs.open sqlstr,conn,1,3         ---->(\u8868\u793a\u6253\u958b\u6578\u64da\u5eab\u7684\u65b9\u5f0f)\r\n-------------------------------------------------------       \r\n         while not rs.eof\r\n          if rs.(\"name\")=name then\r\n           rs.delete\r\n           rs.update             \u67e5\u8a62\u6578\u64da\u8868\u4e2d\u7684name\u5b57\u6bb5\u7684\u503c\u662f\u5426\u7b49\u65bc\u8b8a\u91cfname\u7684\u503c\"xx\"\uff0c\u5982\u679c\u7b26\u5408\u5c31\u57f7\u884c\u522a\u9664\uff0c\r\n          else                   \u5426\u5247\u7e7c\u7e8c\u67e5\u8a62,\u76f4\u5230\u6307\u91dd\u5230\u672b\u5c3e\u70ba\u6b62\r\n           rs.movenext\r\n          emd if\r\n         wend\r\n------------------------------------------------------\r\n------------------------------------------------------         \r\n         rs.close\r\n         conn.close                    \u9019\u5e7e\u53e5\u662f\u7528\u4f86\u95dc\u9589\u6578\u64da\u5eab\r\n         set rs=nothing\r\n         set conn=nothing\r\n------------------------------------------------------- \r\n        %>\r\n<\/pre>\n
<5>\u95dc\u65bc\u6578\u64da\u5eab\u7684\u67e5\u8a62
\n  (a) \u67e5\u8a62\u5b57\u6bb5\u70ba\u5b57\u7b26\u578b<\/p>\n
\r\n      < %\r\n      dim user,pass,qq,mail,message\r\n      user=request.Form(\"user\")\r\n      pass=request.Form(\"pass\")\r\n      qq=request.Form(\"qq\")\r\n      mail=request.Form(\"mail\")\r\n      message=request.Form(\"message\")\r\n      if trim(user)&\"x\"=\"x\" or trim(pass)&\"x\"=\"x\" then     (\u6aa2\u6e2cuser\u503c\u548cpass\u503c\u662f\u5426\u70ba\u7a7a\uff0c\u53ef\u4ee5\u6aa2\u6e2c\u5230\u7a7a\u683c)\r\n        response.write(\"\u8a3b\u518a\u4fe1\u606f\u4e0d\u80fd\u70ba\u7a7a\")\r\n      else\r\n      set rs=server.CreateObject(\"adodb.recordset\")\r\n      sqlstr=\"select * from user where user='\"&user&\"'\"    (\u67e5\u8a62user\u6578\u64da\u8868\u4e2d\u7684user\u5b57\u6bb5\u5176\u4e2duser\u5b57\u6bb5\u70ba\u5b57\u7b26\u578b)\r\n      rs.open sqlstr,conn,1,3\r\n      if  rs.eof then\r\n        rs.addnew\r\n        rs(\"user\")=user\r\n        rs(\"pass\")=pass\r\n        rs(\"qq\")=qq\r\n        rs(\"mail\")=mail\r\n        rs(\"message\")=message\r\n        rs.update\r\n        rs.close\r\n        conn.close\r\n        set rs=nothing\r\n        set conn=nothing\r\n        response.write(\"\u8a3b\u518a\u6210\u529f\")\r\n       end if \r\n      rs.close\r\n      conn.close\r\n      set rs=nothing\r\n      set conn=nothing\r\n      response.write(\"\u8a3b\u518a\u91cd\u540d\")\r\n     %>\r\n<\/pre>\n
  (b)\u67e5\u8a62\u5b57\u6bb5\u70ba\u6578\u5b57\u578b<\/p>\n
\r\n     < %\r\n      dim num\r\n      num=request.Form(\"num\")\r\n      set rs=server.CreateObject(\"adodb.recordset\")\r\n      sqlstr=\"select * from message where id=\"&num   (\u67e5\u8a62message\u6578\u64da\u8868\u4e2did\u5b57\u6bb5\u7684\u503c\u662f\u5426\u8207num\u76f8\u7b49\uff0c\u5176\u4e2did\u70ba\u6578\u5b57\u578b)\r\n      rs.open sqlstr,conn,1,3\r\n      if not rs.eof then\r\n      rs.delete\r\n      rs.update\r\n      rs.close\r\n      conn.close\r\n      set rs=nothing\r\n      set conn=nothing\r\n      response.write(\"\u522a\u9664\u6210\u529f\")\r\n      end if\r\n      rs.close\r\n      conn.close\r\n      set rs=nothing\r\n      set conn=nothing\r\n      response.write(\"\u522a\u9664\u5931\u6557\")\r\n     %>\r\n<\/pre>\n
<6>\u5e7e\u500b\u7c21\u55ae\u7684asp\u5c0d\u8c61\u7684\u8b1b\u89e3
\n   response\u5c0d\u50cf:\u670d\u52d9\u5668\u7aef\u5411\u5ba2\u6236\u7aef\u767c\u9001\u7684\u4fe1\u606f\u5c0d\u50cf,\u5305\u62ec\u76f4\u63a5\u767c\u9001\u4fe1\u606f\u7d66\u700f\u89bd\u5668,\u91cd\u65b0\u5b9a\u5411URL\uff0c\u6216\u8a2d\u7f6ecookie\u503c
\n   request\u5c0d\u50cf:\u5ba2\u6236\u7aef\u5411\u670d\u52d9\u5668\u63d0\u51fa\u7684\u8acb\u6c42
\n   session\u5c0d\u50cf:\u4f5c\u70ba\u4e00\u500b\u5168\u5c40\u8b8a\u91cf\uff0c\u5728\u6574\u500b\u7ad9\u9ede\u90fd\u751f\u6548
\n   server\u5c0d\u50cf\uff1a\u63d0\u4f9b\u5c0d\u670d\u52d9\u5668\u4e0a\u65b9\u6cd5\u548c\u5c6c\u6027\u7684\u8a2a\u554f
\n(a) response\u5c0d\u8c61\u7684\u4e00\u822c\u4f7f\u7528\u65b9\u6cd5
\n    \u6bd4\u5982\uff1a<\/p>\n
\r\n       < %\r\n        resposne.write(\"hello, welcome to asp!\")\r\n       %>\r\n    \u5728\u5ba2\u6236\u7aef\u700f\u89bd\u5668\u5c31\u6703\u770b\u5230  hello, welcome to asp! \u9019\u4e00\u6bb5\u6587\u5b57\r\n      < %\r\nresponse.Redirect(\"www.sohu.com\")\r\n      %>\r\n<\/pre>\n
    \u5982\u679c\u57f7\u884c\u9019\u4e00\u6bb5\uff0c\u5247\u700f\u89bd\u5668\u5c31\u6703\u81ea\u52d5\u9023\u63a5\u5230 \u300c\u641c\u72d0\u300d \u7684\u7db2\u5740
\n  \u95dc\u65bcresponse\u5c0d\u8c61\u7684\u7528\u6cd5\u9084\u6709\u5f88\u591a\uff0c\u5927\u5bb6\u53ef\u4ee5\u7814\u7a76\u7814\u7a76
\n  request\u5c0d\u8c61\u7684\u4e00\u822c\u4f7f\u7528\u65b9\u6cd5
\n\u6bd4\u5982\u5ba2\u6236\u7aef\u5411\u670d\u52d9\u5668\u63d0\u51fa\u7684\u8acb\u6c42\u5c31\u662f\u901a\u904erequest\u5c0d\u50cf\u4f86\u50b3\u905e\u7684
\n\u5217\u5982 \uff1a\u4f60\u5728\u7533\u8acb\u90f5\u7bb1\u7684\u6240\u586b\u5beb\u7684\u500b\u4eba\u4fe1\u606f\u5c31\u662f\u901a\u904e\u8a72\u5c0d\u50cf\u4f86\u5c07
\n      \u4f60\u6240\u586b\u5beb\u7684\u4fe1\u606f\u50b3\u905e\u7d66\u670d\u52d9\u5668\u7684
\n\u6bd4\u5982\uff1a\u9019\u662f\u4e00\u6bb5\u8868\u55ae\u7684\u4ee3\u78bc\uff0c\u9019\u662f\u63d0\u4f9b\u7d66\u5ba2\u6236\u586b\u5beb\u4fe1\u606f\u7684\uff0c\u586b\u5beb\u5b8c\u4e86\u6309
\n     \u300c\u63d0\u4ea4\u300d\u50b3\u905e\u7d66request.asp\u6587\u4ef6\u8655\u7406\u5f8c\u518d\u5b58\u5165\u670d\u52d9\u5668\u6578\u64da\u5eab<\/p>\n
\r\n    
\r\n      
\r\n      \r\n      <\/p>\r\n      
 \r\n      \r\n      <\/p>\r\n      
\r\n      \r\n      <\/p>\r\n<\/form> \r\n<\/pre>\n
\u90a3\u9ebcrequest.asp\u8a72\u5982\u4f55\u5c07\u5176\u4e2d\u7684\u4fe1\u606f\u8b80\u5165\uff0c\u5728\u5beb\u5165\u6578\u64da\u5eab\uff0c\u5728\u9019\u88e1\u5c31\u8981\u7528\u5230
\nrequest\u5c0d\u8c61\u4e86\uff0c\u4e0b\u9762\u6211\u5011\u5c31\u4f86\u5206\u6790request.asp\u7684\u5beb\u6cd5<\/p>\n
\r\n< %\r\ndim name,password    (\u5b9a\u7fa9user\u548cpassword\u5169\u500b\u8b8a\u91cf)\r\nname=request.form(\u300cuser\u300d)  (\u5c07\u8868\u55ae\u4e2d\u7684user\u4fe1\u606f\u50b3\u7d66\u8b8a\u91cfname)\r\npassword=request.form(\u300cpass\u300d) (\u5c07\u8868\u55ae\u4e2d\u7684pass\u4fe1\u606f\u50b3\u7d66\u8b8a\u91cfpassword)\r\n%> \r\n<\/pre>\n
\u901a\u904e\u4ee5\u4e0a\u7684\u5e7e\u53e5\u4ee3\u78bc\u6211\u5011\u5c31\u5c07\u8868\u55ae\u4e2d\u7684\u6578\u64da\u8b80\u9032\u4f86\u4e86\uff0c\u63a5\u4e0b\u4f86\u6211\u5011\u8981\u505a\u7684\u5c31\u662f\u5c07
\n\u4fe1\u606f\u5beb\u5165\u6578\u64da\u5eab\u4e86\uff0c\u5beb\u5165\u6578\u64da\u5eab\u7684\u65b9\u6cd5\u4e0a\u9762\u90fd\u4ecb\u7d39\u4e86\uff0c\u9019\u88e1\u5c31\u4e0d\u4e00\u4e00\u8907\u8ff0\u4e86\u3002
\n\uff08\u901a\u904e\u4e0a\u9762\u7684\u5b78\u7fd2\u5927\u5bb6\u5b8c\u5168\u53ef\u4ee5\u81ea\u5df1\u505a\u4e00\u500b\u7559\u8a00\u7248\u4e86\uff09  <\/p>\n","protected":false},"excerpt":{"rendered":"
1\u5c0f\u6642ASP\u5165\u9580\uff0c\u975e\u5e38\u7c21\u55ae\u3002 <2>\u5b9a\u7fa9\u8b8a\u91cfdim\u8a9e\u53e5 \u6ce8\u610f\uff1a\u5b9a\u7fa9\u7684\u8b8a\u91cf\u53ef\u4ee5\u662f\u6578\u503c\u578b\uff0c\u4e5f\u53ef\u4ee5\u662f\u5b57\u7b26\u6216\u8005\u5176 … \u95b1\u8b80\u5168\u6587 [\u8f49\u5e16]1\u5c0f\u6642asp\u5165\u9580\uff0c\u975e\u5e38\u7c21\u55ae<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[2],"tags":[],"class_list":["post-6","post","type-post","status-publish","format-standard","hentry","category-net","no-featured-image"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts\/6","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/comments?post=6"}],"version-history":[{"count":0,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/posts\/6\/revisions"}],"wp:attachment":[{"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/media?parent=6"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/categories?post=6"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jason695.why3s.tw\/wordpress\/wp-json\/wp\/v2\/tags?post=6"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}