Array()
¡¡¡¡FUNCTION: ·µ»ØÒ»¸öÊý×é
¡¡¡¡SYNTAX: Array(list)
¡¡¡¡ARGUMENTS: ×Ö·û£¬Êý×Ö¾ù¿É
¡¡¡¡EXAMPLE: <%
¡¡¡¡Dim myArray()
¡¡¡¡For i = 1 to 7
¡¡¡¡Redim Preserve myArray(i)
¡¡¡¡myArray(i) = WeekdayName(i)
¡¡¡¡Next
¡¡¡¡%[/IMG]
¡¡¡¡RESULT: ½¨Á¢ÁËÒ»¸ö°üº¬7¸öÔªËصÄÊý×émyArray
¡¡¡¡myArray("Sunday","Monday", ... ... "Saturday")
CInt()
¡¡¡¡FUNCTION: ½«Ò»¸ö±í´ïʽת»¯ÎªÊý×ÖÀàÐÍ
¡¡¡¡SYNTAX: CInt(expression)
¡¡¡¡ARGUMENTS: ÈκÎÓÐЧµÄ×Ö·û¾ù¿É
¡¡¡¡EXAMPLE: <%
¡¡¡¡f = "234"
¡¡¡¡response.write cINT(f) + 2
¡¡¡¡%[/IMG]
¡¡¡¡RESULT: 236
¡¡¡¡×ª»¯×Ö·û"234"ΪÊý×Ö"234"£¬Èç¹û×Ö·û´®Îª¿Õ£¬Ôò·µ»Ø0Öµ
CreateObject()
¡¡¡¡FUNCTION: ½¨Á¢ºÍ·µ»ØÒ»¸öÒÑ×¢²áµÄACTIVEX×é¼þµÄʵÀý¡£
¡¡¡¡SYNTAX: CreateObject(objName)
¡¡¡¡ARGUMENTS: objName ÊÇÈκÎÒ»¸öÓÐЧ¡¢ÒÑ×¢²áµÄACTIVEX×é¼þµÄÃû×Ö.
¡¡¡¡EXAMPLE: <%
¡¡¡¡Set con = Server.CreateObject("ADODB.Connection")
¡¡¡¡%[/IMG]
¡¡¡¡RESULT:
CStr()
¡¡¡¡FUNCTION: ת»¯Ò»¸ö±í´ïʽΪ×Ö·û´®.
¡¡¡¡SYNTAX: CStr(expression)
¡¡¡¡A ......
ASPÓëJSPµÄ±È½Ï
´Ó΢ÈíÍƳöÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌصã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆ书ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java ServerPages)ʵÏÖÁ˶¯Ì¬Ò³ÃæÓ뾲̬ҳÃæµÄ·ÖÀ룬ÍÑÀëÁËÓ²¼þƽ̨µÄÊø¸¿£¬ÒÔ¼°±àÒëºóÔËÐеȷ½Ê½´ó´óÌá¸ßÁËÆäÖ´ÐÐЧÂʶøÖð½¥³ÉΪÒòÌØÍøÉϵÄÖ÷Á÷¿ª·¢¹¤¾ß¡£ÎªÁËʹÓùã´óÓ¦ÓÃASPµÄ³ÌÐòÔ±ÃÇÄܽü¿ìµÄѧ»áJSP¡£ÏÖ°ÑÆäÒìͬ¶Ô±ÈÈçÏ£º
Ò»¡¢½á¹¹
JSPºÍASPÔڽṹÉÏÀàËÆ£¬¶¼ÊÇÒÔ“”×÷Ϊ±ê¼Æ·û£¬²»Í¬µÄÊÇÔÚ±ê¼Æ·ûÖ®¼äµÄ´úÂëASPΪJavaScript»òVBScript½Å±¾£¬¶øJSPΪJAVA´úÂë¡£JSP½«ÍøÒ³µÄ±íÏÖÐÎʽºÍ·þÎñÆ÷¶ËµÄ´úÂëÂß¼·Ö¿ª¡£×÷Ϊ·þÎñÆ÷½ø³ÌµÄJSPÒ³Ã棬Ê×Ïȱ»×ª»»³Éservlet£¨Ò»ÖÖ·þÎñÆ÷¶ËÔËÐеÄjava³ÌÐò£©¡£ServletÖ§³ÖHTTPÐÒéµÄÇëÇóºÍÏìÓ¦¡£µ±JSP±»×ª»»³É´¿JAVA´úÂë¡£¶à¸öÓû§Í¬Ê±ÇëÇóÒ»¸öjspÒ³Ãæʱ£¬Ó¦ÓÃʵÀý»¯Ïß³ÌÀ´ÏìÓ¦ÇëÇó¡£ÕâЩÏß³ÌÓÉWEB·þÎñÆ÷½ø³ÌÀ´¹ÜÀí£¬ºÍASPµÄÏ̹߳ÜÀíÆ÷¹¦ÄÜÀàËÆ¡£Í¬CGIΪÿ¸öÇëÇó´´½¨Ò»¸ö½ø³ÌµÄģʽ±È½Ï£¬ÕâÖÖ·½Ê½Ð§ÂʸߵĶࡣ
¶þ¡¢ÐÔÄܺ ......
ASPÓëJSPµÄ±È½Ï
´Ó΢ÈíÍƳöÁËASP(ActiveServerPage)ºó£¬ËüÒÔÆäÇ¿´óµÄ¹¦ÄÜ£¬¼òµ¥Ò×ѧµÄÌصã¶øÊܵ½¹ã´óWEB¿ª·¢ÈËÔ±µÄϲ»¶¡£µ«ÊÇËüÈ´ÓÐ΢Èí²úÆ·µÄͨ²¡,Ö»ÄÜÔÚWindowsƽ̨ÏÂʹÓã¬ËäÈ»Ëü¿ÉÒÔͨ¹ýÔö¼Ó¿Ø¼þ¶øÔÚLINUXÏÂʹÓ㬵«ÊÇÆ书ÄÜ×îÇ¿´óµÄDCOM¿Ø¼þÈ´²»ÄÜʹÓ᣶øSUN¹«Ë¾ÔÚJAVAµÄ»ù´¡Ï¿ª·¢³öµÄJSP(Java ServerPages)ʵÏÖÁ˶¯Ì¬Ò³ÃæÓ뾲̬ҳÃæµÄ·ÖÀ룬ÍÑÀëÁËÓ²¼þƽ̨µÄÊø¸¿£¬ÒÔ¼°±àÒëºóÔËÐеȷ½Ê½´ó´óÌá¸ßÁËÆäÖ´ÐÐЧÂʶøÖð½¥³ÉΪÒòÌØÍøÉϵÄÖ÷Á÷¿ª·¢¹¤¾ß¡£ÎªÁËʹÓùã´óÓ¦ÓÃASPµÄ³ÌÐòÔ±ÃÇÄܽü¿ìµÄѧ»áJSP¡£ÏÖ°ÑÆäÒìͬ¶Ô±ÈÈçÏ£º
Ò»¡¢½á¹¹
JSPºÍASPÔڽṹÉÏÀàËÆ£¬¶¼ÊÇÒÔ“”×÷Ϊ±ê¼Æ·û£¬²»Í¬µÄÊÇÔÚ±ê¼Æ·ûÖ®¼äµÄ´úÂëASPΪJavaScript»òVBScript½Å±¾£¬¶øJSPΪJAVA´úÂë¡£JSP½«ÍøÒ³µÄ±íÏÖÐÎʽºÍ·þÎñÆ÷¶ËµÄ´úÂëÂß¼·Ö¿ª¡£×÷Ϊ·þÎñÆ÷½ø³ÌµÄJSPÒ³Ã棬Ê×Ïȱ»×ª»»³Éservlet£¨Ò»ÖÖ·þÎñÆ÷¶ËÔËÐеÄjava³ÌÐò£©¡£ServletÖ§³ÖHTTPÐÒéµÄÇëÇóºÍÏìÓ¦¡£µ±JSP±»×ª»»³É´¿JAVA´úÂë¡£¶à¸öÓû§Í¬Ê±ÇëÇóÒ»¸öjspÒ³Ãæʱ£¬Ó¦ÓÃʵÀý»¯Ïß³ÌÀ´ÏìÓ¦ÇëÇó¡£ÕâЩÏß³ÌÓÉWEB·þÎñÆ÷½ø³ÌÀ´¹ÜÀí£¬ºÍASPµÄÏ̹߳ÜÀíÆ÷¹¦ÄÜÀàËÆ¡£Í¬CGIΪÿ¸öÇëÇó´´½¨Ò»¸ö½ø³ÌµÄģʽ±È½Ï£¬ÕâÖÖ·½Ê½Ð§ÂʸߵĶࡣ
¶þ¡¢ÐÔÄܺ ......
1¡¢ÔÚÍøվĿ¼ÏÂн¨Ò»¸öÎı¾£ºtxtcounter.txt ÔÚÎı¾Ìîд1»òÆäËûʶ×Ö
2¡¢Ð½¨Ò»aspÎļþ£ºcount.asp£¬¼ÓÈëÒÔÏ´úÂ룺
<%
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close
SET FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter= counter + 1
Out.WriteLine(counter)
Application.unlock
Response.Write"document.write("&counter&")"
'ΪÁËÔÚÒ³ÃæÕýÈ·ÏÔʾ¼ÆÊýÆ÷µÄÖµ£¬µ÷ÓÃVBScriptº¯ÊýDocument.write
Out.Close
%>
3¡¢ÔÚÐèÒª¼ÆÊýµÄÍøÒ³¼ÓÈ룺×Ü·ÃÎÊ<script language="JavaScript" src="count.asp">´Î
ÏÖÔÚ¿´ÍøÒ³¾ÍÊÇ¿ÉÒÔ¼ÆÊýÁË£¡
ÓëÒ³Ãæ·ÖÀëµÄͼÏó¼ÆÊýÆ÷
¡¡¡¡ÈËÃǵÄ×·ÇóÊÇÓÀÎÞÖ¹¾³µÄ£¬Ò²ÐíÄãÐèÒªÒ»¸ö¸üÓиöÐÔµÄͼÐÎÊý×Ö¼ÆÊý ......
<%'¿ªÊ¼·ÖÒ³
Const MaxPerPage=25
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "*",conn,1,1
if rs.eof And rs.bof then
Response.Write "<p align='center' class='in'> Äú»¹Ã»ÓÐÌí¼Ó»î¶¯£¡</p>"
&n ......
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "¸¸Îļþ¼ÐÃû×ÖÊÇ£º" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "¸ÃÎļþ¼ÐÊÇÒ»¸ùÎļþ¼Ð" & "<br>"
Else
Response.Write "¸ÃÎļþ¼Ð²»ÊǸùÎļþ¼Ð" & "<br>"
End If
Response.Write "Çý¶¯Æ÷Ãû×ÖÊÇ£º" & fldr.Drive & "<br>"
%>
¡¡¡¡Ê×ÏȽ¨Á¢FSO×é¼þµÄÁ¬½ÓÊDZز»¿ÉÉÙµÄÀ²£¬È»ºóSet fldr = fso.GetFolder("c:\Program Files")É趨fldr¶ÔÏ󱻸³Öµ£¬ÒÔ×÷ÏÂÃæ³ÌÐòµÄÒýÓá£
¡¡¡¡fldr.IsRootFolder¼´ÎªÅжϸÃÎļþ¼ÐÊÇ·ñΪһ¸ùÎļþ¼Ð£¬ÖµÎª²¼¶ûÖµ£¨true or false£©£»fldr.DriveÔòÏÔʾ¸ÃÎļþ¼ÐËùÔÚµÄÇý¶¯Æ÷ºÅÁË¡£
¡¡¡¡¶þ¡¢fso.CreateFolder
¡¡¡¡ÏÂÃæ±È½ÏÈÃÈ˼¤¶¯µÄÊÇͨ¹ýASP½¨Á¢Îļþ¼ÐÁË£¬Äã¿ÉÒÔÔÚÄãµÄȨÁ¦·¶Î§ÄÚÈÎÒâλÖý¨Á¢ÈÎÒâÎļþ¼Ð¡£
¡¡¡¡2£¬creatfldr.asp
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
Response.Write "Îļþ¼ÐÃûΪ" & fso.GetBaseName("c:\cnbruce")
%& ......
ASP±à³ÌÖÐ20¸ö·Ç³£ÓÐÓõÄÀý×Ó
1.ÈçºÎÓÃAspÅжÏÄãµÄÍøÕ¾µÄÐéÄâÎïÀí·¾¶
´ð£ºÊ¹ÓÃMappath·½·¨
<%= Server.MapPath("\")%>
2.ÎÒÈçºÎÖªµÀʹÓÃÕßËùÓõÄä¯ÀÀÆ÷£¿
´ð£ºÊ¹ÓÃthe Request object·½·¨
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
¡¡¡¡Response.redirect("ForMSIEOnly.htm")
Else
¡¡¡¡Response.redirect("ForAll.htm")
End If
3.ÈçºÎ¼ÆËãÿÌìµÄƽ¾ù·´¸´·ÃÎÊÈËÊý
´ð£º½â¾ö·½·¨
<% startdate=DateDiff("d",Now,"01/01/1990")
if strdate<0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) %>
ÏÔʾ½á¹û
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998
4.ÈçºÎÏÔʾËæ»úͼÏó
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
%>
ÏÔʾ
<img src="<%=dpic%>">
5.ÈçºÎ»Øµ½ÏÈÇ°µÄÒ³Ãæ
´ð£º<a href="<%=request.serverVariables("Http_REFERER")%>">preivous page</a>
»òÓÃͼƬ ......