[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 4.aspÖÐʹÓÃÀà
ClassÔÚaspÖгöÏÖÂù¾ÃÁË,²»¹ýºÜÉÙ¿´µ½Ëü±»ÓÃÔÚ´úÂëµ±ÖÐ.¼ÇµÃµ±ÄêÑо¿¶¯ÍøµÄÂÛ̳³ÌÐòµÄʱºò,¿´µ½ÁËһЩÀý×Ó,µ±Ê±»¹¾õµÃ±È½Ï³ç°Ý----¶Ô×Ô¼ºÃ»ÓùýµÄ¼¼Êõ.
µ«ÊÇClassÕâ¸ö¶«Î÷,Èç¹ûÓõñȽÏÉÙ,³äÆäÁ¿Ö»ÊÇÒ»¸ö´óÄ£¿éµÄ°ü×°·½Ê½. Ö»Óдó¹æÄ£µØÓÃËüÀ´¿ª·¢,²ÅÄÜÏÔ³öËü¶ÔÏîÄ¿¹ÜÀíµÄÓÅÔ½ÐÔÀ´. ËùνµÄÒâ´óÀûÃæÌõʽ´úÂë,¾Í»áºÍasp»®ÉϾäºÅÁË.
ÎÒÏëĿǰ´ó²¿·ÖµÄasp³ÌÐòÔ±Öж¼»¹Ã»ÓÐʹÓÃClass,¶ÔÃæÏò¶ÔÏóÕâÖÖÊõÓïÒ²²»Ì«ÊìϤ,ÐèÒªÔö¼ÓÒ»ÕÂÀ´ÃèÊöÒ»ÏÂaspÖеÄÀàËù°çÑݵĽÇÉ«,ÒÔ¼°ºÍÃæÏò¶ÔÏó±à³ÌµÄ¹ØÏµ.
ÎÒ»áÓþ¡Á¿Ìù½ü±à³Ìʵ¼ùµÄ·½Ê½À´½âÊÍClassµÄÔËÓÃ,µ«²»»á¶¯ÓÃÃæÏò¶ÔÏóÖ®ÀàµÄ³éÏóÊõÓï,Èç¹ûÄãÓÐÁËÃæÏò¶ÔÏóµÄÀíÂÛ»ù´¡,¿ÉÒÔ°ÑÕâЩÄÚÈÝÓëÆä½áºÏ,»òÕß»áÓÐÄã¶ÀÌØµÄ·¢ÏÖ. Èç¹ûûÓÐÁ˽â¹ýÃæÏò¶ÔÏó,Ò²²»ÓÃÒ»¶¨ÒªÖªµÀÃæÏò¶ÔÏóÊÇÔõô»ØÊÂ,ֻҪͨ¹ýÔĶÁ±¾ÏµÁеÄÎÄÕÂ,ѧ»áÁËClassµÄÓ÷¨,²¢ÇÒÔÚ±à³ÌÖÐÒÀ¾ÝÁËÆäÖеķ¨Ôò,¾Í¿ÉÒÔ×ã¹»½¡×³µØ¹ÜÀíÄãµÄasp´úÂëÁË.
ClassÏ൱ÓÚÒ»¸ö°ü×°Ïä,Ëü¿ÉÒÔ½«±äÁ¿ºÍº¯Êý°ü×°ÆðÀ´,ÐγÉÒ»¸öÕûÌå,±¾ÏµÁÐÎÄÕÂÒª½²µÄËùÓÐÄÚÈÝ,¿ÉÒÔ˵Êǰü×°µÄѧÎÊ.
ÀýÈç,ÎÒÃÇ¿ÉÒÔ°ü×°Ò»¸öÊýѧ´¦ÀíµÄClass,²¢Ê¹ÓÃËü:
1 Class Con_Math
2 Public A
3 Public B
4 Private intC
5
6 Public Function Sum()
7 intC = cint(A) + cint(B)
8 Sum = intC
9 End Function
10 End Class
11
12 set math = new Con_Math
13 math.A = 19
14 math.B = 80
15
Ïà¹ØÎĵµ£º
¸ÅÊö
¡¡¡¡ASPÊÇActive Server PageµÄËõд£¬ÒâΪ“¶¯Ì¬·þÎñÆ÷Ò³Ãæ”¡£ASPÊÇ΢Èí¹«Ë¾¿ª·¢µÄ´úÌæCGI½Å±¾³ÌÐòµÄÒ»ÖÖÓ¦ÓÃ,Ëü¿ÉÒÔÓëÊý¾Ý¿âºÍÆäËü³ÌÐò½øÐн»»¥£¬ÊÇÒ»ÖÖ¼òµ¥¡¢·½±ãµÄ±à³Ì¹¤¾ß¡£ASPµÄÍøÒ³ÎļþµÄ¸ñʽÊÇ.asp£¬ÏÖÔÚ³£ÓÃÓÚ¸÷ÖÖ¶¯Ì¬ÍøÕ¾ÖС£ ASPÊÇÒ»ÖÖ·þÎñÆ÷¶Ë½Å±¾±àд»·¾³£¬¿ÉÒÔÓÃÀ´´´½¨ºÍÔËÐж¯Ì¬ÍøÒ³»òWebÓ¦ ......
Ò»°ãÀ´Ëµ±àÊý¾Ý¿âÀàµÄ³ÌÐòÖ÷ÒªÒª½â¾öµÄÎÊÌâÎÞ·ÇÊÇÌí¼Ó£¬É¾³ý£¬Ð޸ĺͲéѯ¡£ÕâÀà±à³Ì¶¼·Ç³£µÄ¼òµ¥¡£½ÓÏÂÀ´ÎÒÀûÓÃÒ»µã¿ÕÓàʱ¼ä·¢Ò»¸öº¯ÊýÀïÃæ°üº¬ºÍÌí¼ÓºÍɾ³ý¹¦ÄÜ¡£ÊµÑéµÄ¼Ü¹¹¿ÉÒÔʹÓÃIIS.5WEB·þÎñÆ÷ACCESSÊý¾Ý¿â¡£Õâ¸öÎÒÆäʵ²»ÓÃ˵µÄºÜÏêϸÁË£¬ÒòΪ´ó¼Ò¶¼Ó¦¸ÃÖªµÀµÄ¡£ÎÒ¾ÍÖ±½Ó°Ñº¯ÊýÌù³öÀ´¡£´ó¼ÒÖ»ÒªÉÔÎ ......
¡¡ÔÚASPÖУ¬°Ñ´øÓзµ»ØÖµµÄÕâÑùµÄÒ»¶Î´úÂë½Ð×öº¯Êý¡£ÀýÈçͨ¹ý±àдһ¶Î´úÂë¼ÆËã³öÒ»¸ö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬·µ»Ø¸øµ÷ÓóÌÐò£¬ÓÉÓÚµ÷ÓóÌÐòÐèÒªÖªµÀÄǸö×ÔÈ»ÊýÊÇ·ñÊÇÖÊÊý£¬ËùÒÔ±ØÐëÒª·µ»ØÒ»¸öÖµ¡£
¡¡¡¡1£¬ÈÕÆÚ/ʱ¼äº¯Êý
¡¡¡¡ÕâЩº¯Êý°üÀ¨¶Ô“Äꔡ¢“Ô”¡¢“ÈÕ”¡¢“ʱ”¡¢“·Ö ......
<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","") '´«²Î
strFileName="/files/"&strFileName ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......
¼ÇµÃÔÚ½¨Á¢Ò»¸öÎļþ¼Ð"updata"
saveannounce_upload.asp ÉÏ´«Ò³
------------------------------------
<html>
<head>
<style type="text/css
">
body {font-size:9pt;}
input {font-size:9pt;}
</style>
<title>ÎļþÉÏ´«</title>
</head& ......