Web±à³Ì Readers Blog
create the blog for Web±à³Ì scholars
Asp±àÂëÓÅ»¯
Submitted by ×÷Õß: admin
2008-05-06 15:21:58
ASP(Active Server Page)ÊÇMicrosoft¹«Ë¾ÍƳöµÄ»ùÓÚPWS(Personal Web Server)&IIS(InternetInformation Server)ƽ̨µÄ¡¢»ùÓÚISAPI(InternetServiceAPI)ÔÀíµÄ¶¯Ì¬ÍøÒ³¿ª·¢¼¼Êõ£¬Ä¿Ç°ÈÕÇ÷³ÉÊìÍêÉÆ¡£ÔÚÕâÀï½ö¾Í´úÂëÓÅ»¯½øÐÐһЩ¼òµ¥ÌÖÂÛ¡£
1¡¢¡¡¡¡ÉùÃ÷VBScript±äÁ¿
ÔÚASPÖУ¬¶ÔvbscriptÌṩÁËÇ¿¾¢µÄÖ§³Ö£¬Äܹ»Î޷켯³ÉvbscriptµÄº¯Êý¡¢·½·¨£¬ÕâÑù¸øÀ©Õ¹ASPµÄÏÖÓй¦ÄÜÌṩÁ˺ܴó±ãÀû¡£ÓÉÓÚASPÖÐÒѾģºýÁ˱äÁ¿ÀàÐ͵ĸÅÄËùÒÔ£¬ÔÚ½øÐÐASPÓëvbscript½»»¥µÄ¹ý³ÌÖУ¬ºÜ¶à³ÌÐòÔ±Ò²¹ßÓÚ²»ÉùÃ÷vbscriptµÄ±äÁ¿£¬ÕâÑù¼ÓÖØÁË·þÎñÆ÷µÄ½âÎö¸ºµ££¬½ø¶øÓ°Ïì·þÎñÆ÷µÄÏìÓ¦ÇëÇóËÙ¶È¡£
¼øÓÚ´Ë£¬ÎÒÃÇ¿ÉÒÔÏóÔÚVBÖÐÇ¿ÖÆÓû§½øÐбäÁ¿ÉùÃ÷Ò»ÑùÔÚvbscriptÖÐÇ¿ÖÆÓû§½øÐбäÁ¿ÉùÃ÷¡£ÊµÏÖ·½·¨ÊÇÔÚASP³ÌÐòÐÐÊ×·ÅÖÃ<% optionexplicit%>¡£
2¡¢¡¡¡¡¶ÔURLµØÖ·½øÐбàÂë
ÔÚÎÒÃÇʹÓÃasp¶¯Ì¬Éú³ÉÒ»¸ö´ø²ÎÊýURLµØÖ·²¢½øÐÐÌø×ªÊ±£¬ÔÚIEÖнâÎöºÜÕý³££¬µ«ÔÚNetScrapeä¯ÀÀʱȴÓдíÎóÈçÏ£º
HTTP Error 400
400 Bad Request
Due to malformed syntax, the request could not be understood by the server.
The client should not repeat the request without modifications.
½â¾ö·½·¨ÊǶÔÉú³ÉµÄURL²ÎÊýʹÓÃASPÄÚÖÃserver¶ÔÏóµÄURLencode·½·¨½øÐÐURL±àÂ룬Àý×ÓÈçÏ£º
<%
URL="xur.asp"
var1="username=" & server.URLencode("xur")
var2="&company=" & server.URLencode("xurstudio")
var3="&phone=" & server.URLencode("021-53854336-186")
response.redirect URL & "?" & var1 & var2 & var3
%>
3¡¢¡¡¡¡Çå¿Õ¶ÔÏó
µ±Ê¹ÓÃÍê¶ÔÏóºó£¬Ê×ÏÈʹÓÃClose·½·¨À´ÊͷŶÔÏóËùÕ¼ÓõÄϵͳ×ÊÔ´£»È»ºóÉèÖöÔÏóֵΪ“nothing”ÊͷŶÔÏóÕ¼ÓÃÄÚ´æ¡£µ±Ä꣬ÎÒ¾ÍÊÇÔÚÒ»ÕÅÒ³ÃæÉÏ´´½¨Á˰ÙÓà¸öûÓÐÇå¿Õ¶ÔÏóµÄ¼Ç¼¼¯¶ø±ÀÀ£ÁËÎÒµÄIIS¡£ÏÂÃæµÄ´úÂëʹÓÃÊý¾Ý¿âÄÚÈݽ¨Á¢Ò»¸öÏÂÀÁÐ±í¡£´úÂëʾÀýÈçÏ£º
<% myDSN="DSN=xur;uid=xur;pwd=xur"
mySQL="select * from authors where AU_ID<100"
set conntemp=server.createobject("adodb.connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
if rstemp.eof then
response.write "Êý¾Ý¿âΪ¿Õ"
response.write mySQL
conntemp.close
set conntemp=nothing
response.end
¡¡end if%>
<%do until rstemp.eof %>
<%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing
%>
4¡¢Ê¹ÓÃ×Ö·û´®½¨Á¢SQL²éѯ
ʹÓÃ×Ö·û´®À´½¨Á¢²éѯ²¢²»Äܼӿì·þÎñÆ÷µÄ½âÎöËÙ¶È£¬Ïà·´£¬Ëü»¹»áÔö¼Ó·þÎñÆ÷µÄ½âÎöʱ¼ä¡£µ«ÔÚÕâÀïÈÔÈ»ÍÆ¼öʹÓÃ×Ö·û´®´úÌæ¼òµ¥µÄ²éѯÓï¾äÀ´½øÐвéѯ¡£ÕâÑù×öµÄºÃ´¦ÊÇ£¬¿ÉÒÔѸËÙ·¢ÏÖ³ÌÐòÎÊÌâËùÔÚ£¬´Ó¶ø±ãÀû¸ßЧµØÉú³É³ÌÐò¡£Ê¾ÀýÈçÏ£º
<%mySQL= ""select * "
mySQL= mySQL & "from publishers"
mySQL= mySQL & "where state='NY'"
response.write mySQL
set rstemp=conntemp.execute(mySQL)
rstemp.close
set rstemp=nothing
%>
5¡¢¡¡¡¡Ê¹ÓÃcase½øÐÐÌõ¼þÑ¡Ôñ
ÔÚ½øÐÐÌõ¼þÑ¡ÔñµÄʱºò£¬¾¡Á¿Ê¹ÓÃcaseÓï¾ä£¬±ÜÃâʹÓÃifÓï¾ä¡£Ê¹ÓÃcaseÓï¾ä£¬¿ÉÒÔʹ³ÌÐòÁ÷³Ì»¯£¬Ö´ÐÐÆðÀ´Ò²±ÈifÓï¾äÀ´µÄ¿ì¡£Ê¾ÀýÈçÏ£º
<%
¡¡¡¡FOR i = 1 TO 1000
¡¡¡¡ n = i
¡¡¡¡ Response.Write AddSuffix(n) & "
"
¡¡¡¡NEXT
¡¡¡¡%>
¡¡¡¡<%
¡¡¡¡Function AddSuffix(num)
numpart = RIGHT(num,1)
SELECT CASE numpart
CASE "1"
IF InStr(num,"11") THEN
num = num & "th"
ELSE
num = num & "st"
END IF
CASE "2"
IF InStr(num,"12") THEN
num = num & "th"
ELSE
num = num & "nd"
END IF
CASE "3"
IF InStr(num,"13") THEN
num = num & "th"
ELSE
num = num & "rd"
END IF
CASE "4"
num = num & "th"
CASE ELSE
num = num & "th"
END SELECT
AddSuffix = num
¡¡¡¡END FUNCTION
%>
6¡¢¡¡¡¡Ê¹ÓÃadovbs.incÎļþÖж¨ÒåµÄ³£Á¿´ò¿ª¼Ç¼¼¯
´ò¿ª¼Ç¼¼¯Ê±£¬¿ÉÒÔ¶¨Òå¼Ç¼¼¯´ò¿ªµÄÓαêÀàÐͺÍËø¶¨ÀàÐÍ¡£ÔÚadovbs.incÎļþÖж¨ÒåÁËһЩ³£Á¿À´¶¨ÒåÕâЩÀàÐÍ¡£adovbs.incÎļþ±£´æÔÚ\inetpub\iissamples\IISamplesĿ¼ÏÂÃæ¡£ÏÂÃæÁоټ¸¸ö³£ÓõÄÓαêÀàÐͺÍËø¶¨ÀàÐÍ¡£
ÓαêÀàÐÍ£ºadOpenFowardOnlyÓαêÖ»ÄÜÏòǰ£»adOpenKeysetÓαê¿ÉÏòǰ»òÕßÏòºó£¬ÈçÒ»Óû§Ìí¼Ó¼Ç¼£¬Ð¼Ç¼²»»á³öÏÖÔڼǼ¼¯ÖУ»adOpenDynamicÓÎ±ê¶¯Ì¬ËæÒ⣻adOpenStatic¼Ç¼¼¯²»¶ÔÆäËûÓû§Ôì³ÉµÄ¼Ç¼ÐÞ¸ÄÓÐËù·´Ó³¡£
Ëø¶¨ÀàÐÍ£ºadLockReadOney²»ÄÜÐ޸ļǼ¼¯ÖеļǼ£»adLockPessimisticÔÚ±à¼Ò»Ìõ¼ÇÂ¼Ê±Ëø¶¨Ëü£»adLockOptimsticµ÷ÓüǼ¼¯Update·½·¨Ê±²ÅËø¶¨¼Ç¼£»adLockBatchOpeimstic¼Ç¼ֻÄܳÉÅú¸üС£
<!--#INCLUDE VIRTUAL="/ADOVBS.INC" -->
<%
connectme="DSN=xur;uid=xur;pwd=xur"
sqltemp="select * from publishers where name='xur'"
set rstemp=Server.CreateObject("adodb.Recordset")
rstemp.open sqltemp, connectme, adOpenStatic£¬adLockOptimstic
response.write rstemp.recordcount & " records in
" & sqltemp
rstemp.close
set rstemp=nothing
%>
7¡¢¡¡¡¡±ÜÃâÔÚʹÓÃglobal.asaÎļþÖнøÐжÔÏó¶¨Òå
ÓÉÓÚglobal.asaÎļþÖеÄÄÚÈÝ¿ÉÒÔΪվµãÄÚËùÓÐÎļþÒýÓã¬ÎÞÒÉ£¬ÔÚglobal.asaÎļþÖнøÐжÔÏó¶¨Òå¿ÉÒÔʡȥºÜ¶àÖØ¸´¹¤×÷¡£±ÈÈçÔÚglobal.asaÖеÄapplication_onstartº¯ÊýÖнøÐÐÈç϶¨Ò壺
<%SUB application_onstart
set application("theCONN")=server.createobject("adodb.connection")
END SUB %>;
ÕâÑù¾Í¿ÉÒÔÔÚÕ¾µãÈκδúÂëÖÐ×öÀàËÆÒýÓãº
<%
mySQL="select * from publishers where state='xur'
set rstemp=application("theconn").execute(mySQL)
%>
ͬÑùµØ£¬¿ÉÒÔÔÚsession_onstartº¯ÊýÖд´½¨¼Ç¼¼¯¶ÔÏó
<%SUB session_onstart
set session("rstemp")=server.createobject("adodb.recordset")
END SUB %>
È»ºóÔÚÕ¾µãÒ²ÃæÖнøÐÐÈçÏÂÒýÓãº
<%
mySQL="select * from publishers where state='xur'
set session("rstemp")=conntemp.execute(mySQL)
%>
µ«ÕâÑù×öµÄͬʱҲÓкܴóµÄ¸ºÃæÓ°Ï죬ÓÉÓÚApplicationºÍsession±äÁ¿¶¼Ö»ÓÐÔڹرÕÍøÕ¾µÄʱºò²ÅÊÍ·ÅÕ¼ÓõÄ×ÊÔ´£¬ËùÒÔsession²ÎÊý»áÀË·Ñ´óÁ¿²»±ØÒªÄڴ棬¶øÇÒ´Ëʱapplication±äÁ¿³ÉΪ·þÎñÆ÷ÐÔÄܵį¿¾±¡£
½â¾ö·½·¨£º½¨Á¢¶¨Òå¶ÔÏóaspÒ³Ãæ£¬ÔÚÐèÒª½øÐе÷ÓÃÕâЩ¶ÔÏóµÄÒ³ÃæÉÏ£¬ÒýÈëÕâÕÅaspÒ³Ãæ¡£¼ÙÉ趨Òå¶ÔÏóµÄaspÒ³ÃæÃû³ÆÎªdefine.asp£¬ÔòÖ»ÒªÔÚ¶ÔÓ¦aspÒ³ÃæÖмÓÈëÒÔÏÂÓï¾ä¾ÍÄÜÒýÈë¸ÃÒ³Ãæ¡£
<!--#INCLUDE VIRTUAL="/define.asp" -->
ÔÚ½øÐÐÒ³ÃæÒý½øÊ±£¬×îºÃÔÚ´ýÒý½øµÄaspÎļþÖв»Òª°üº¬<%@LANGUAGE="VBSCRIPT"%>Óï¾ä¡£ÒòΪÔÚaspÎļþÖУ¬Ö»ÄÜÓÐÒ»¾äÓÉ@À´¶¨ÒåµÄ½Å±¾½âÎöÓïÑÔ¡£
8¡¢¡¡¡¡°²È«·À»¤
aspÌṩÁ˺ܺõĴúÂë±£»¤»úÖÆ£¬ËùÓеÄasp´úÂë¶¼ÔÚ·þÎñÆ÷¶ËÖ´ÐжøÖ»·µ»Ø¸ø¿Í»§¶Ë´úÂëÖ´Ðнá¹û¡£¼´±ãÕâÑù£¬ÔÚÀϰ汾µÄIISÖл¹¿ÉÒÔÔÚÎļþÃûºóÃæ¼Ò::$DATAÀ´²é¿´aspµÄÔ´´úÂ룬ÕâÒѾÊôÓÚWebServer°²È«·¶³ë²»ÔÚ±¾ÎÄÌÖÂÛ·¶Î§ÄÚ¡£ÏÂÃæÌá³öÁ½µã¼òµ¥µÄ°²È«×¢ÒâÊÂÏî¡£
¡¡¡¡ËäÈ»ÔÚaspÖн¨ÒéÒýÈëÎļþÒÔinc×÷ΪÀ©Õ¹Ãû£¬ÔÚÕâÀïÈÔ½¨ÒéÒÔasp×÷ΪÒýÎļþµÄÀ©Õ¹Ãû¡£µ±ÕâЩ´úÂëÔÚ°²È«»úÖÆ²»ºÃµÄWebServerÉÏÔËÐÐʱ£¬Ö»ÐèÔÚµØÖ·À¸ÉÏÊäÈëÒýÈëÎļþµÄµØÖ·(incΪÀ©Õ¹Ãû)£¬¾Í¿ÉÒÔä¯ÀÀ¸ÃÒýÈëÎļþµÄÄÚÈÝ£¬ÕâÊÇÓÉÓÚÔÚWebServerÉÏ£¬Èç¹ûûÓж¨ÒåºÃ½âÎöijÀàÐÍ£¨±ÈÈçinc£©µÄ¶¯Ì¬Á¬½Ó¿âʱ£¬¸ÃÎļþÒÔÔ´Â뷽ʽÏÔʾ¡£
¡¡¡¡²»Òª°ÑÊý¾Ý¿âÎļþ·ÅÔÚÍøÕ¾½á¹¹ÄÚ²¿£¬ÕâÑù£¬µ±¶ñÒâÈËÊ¿»ñÈ¡Êý¾Ý¿â·¾¶ºó£¬¾Í¿ÉÒÔÇáÒ×»ñÈ¡¸ÃÊý¾Ý¿â£¬½ø¶øËÁÒâ¸ü¸ÄÊý¾Ý¿âÄÚÈÝ¡£±È½ÏºÃµÄ×ö·¨ÊÇ£¬ÎªÊý¾Ý¿â½¨Á¢DSN£¨DateSource Name£©£¬¶øÔÚ½øÐÐÊý¾Ý¿â·ÃÎÊʱֱ½Ó·ÃÎʸÃDSN¡£
¸ÃÎÄÕÂ×ªÔØ×ÔÍøÂç´ó±¾Óª£ºhttp://www.xrss.cn/Dev/Asp/200651031.Html
·ÖÀà:ÍøÕ¾|ASP±¸Íü |
Read more
ÔĶÁ (279)
ÆÀÂÛ (0)
·Ã¿Í ÆÀÂÛ
·¢±íÆÀÂÛ
Óû§µÇ¼
ÈÕÖ¾·ÖÀà©®Category
- ÍøÕ¾|PHPѧϰ [66]
- ÍøÕ¾|ASP±¸Íü [6]
- ÍøÕ¾|JSP½ø½× [3]
- ÍøÕ¾|Êý¾Ý¿âÀà [11]
- С̸|ддÐÄÇé [13]
- ÍøÕ¾|xmlѧϰ [0]
- ÍøÕ¾|Javascriptѧϰ [5]
- ÍøÕ¾|ÃæÏò¶ÔÏó [1]
- ÍøÕ¾|AJAXѧϰ [2]
- ÍøÕ¾|ÔÓÆßÔÓ°Ë [11]
- ÍøÕ¾|½¨Õ¾ÖªÊ¶Í¨µÀ [6]
- ÖÐÇï½Ú|´óÔÓ»° [11]
ÈȵãÎÄÕ©®Articles
- ÔÚTomcatÏÂJSP¡¢Se...
- ²ÉÓÃutf8±àÂë³¹µ×½...
- ÎҵĴóѧͬѧ»ØÒäÂ...
- ¸Ðл×î½üÔÚѧϰÉϰ...
- mysqlÊý¾Ý¿âµÄµ¼Èë...