¹ØÓÚASPÌá½»¼ì²âÊý¾ÝÎÊÌâ
ÏÖÔÚÎÊÌâÊÇÕâÑùµÄ
ÔÚÎı¾ÓòÀïÓÐÕâÑùÒ»ÌõÄÚÈÝ
°ÂÔË2009
µ±½øÐÐÌá½»²¢Ð´ÈëÊý¾Ý¿âʱ Ôõô°ÑÊý×Öɾ³ý Ö»ÌáÈ¡ÎÄ×ÖÄÚÈÝ£¿
Íû¸÷λ´óϺָ¶¨Ò»µã~~±¾È˲ËÄñ
¶¥ÉÏÏÈ
VBScript code:
s = "°ÂÔË2009"
Set re = New RegExp
With re
.Global = True
.Pattern = "\d"
s = .Replace(s, "")
End With
Response.Write s
ÕâÑùŪ²»¶Ô°¡
ÕâÑùÖ»ÊÇÒ»ÌõÊý¾Ý
¶øÕâÀïÊǽá¹ûÊä³öµÄµØ·½
²½ÖèÊÇÕâÑùµÄ£º
²éÑ¯Ò³Ãæ------½á¹ûÊä³öÒ³Ãæ------Ìá½»Õâ¸ö½á¹û
ÔÚ½á¹ûÊä³öÒ³ÃæÀï ¾ÍÓÐÊý×Ö ¶øÎÒÏëÌύʱ Ö±½Ó°ÑÊý×Ö¹ýÂ˵ô
2Â¥ÒѾ¸ø³öÁË˼·£¬¾ßÌåÔõôʵÏÖÂ¥Ö÷¿ÉÒÔ×Ô¼º¸Ä¸Ä×öÁË
¶¥ÉÏ¡£¡£¡£Íû¸ßÈËÖ¸µã¡£¡£
dim i
dim getChar
getChar=""
for i=0 to len(×Ö¶Î)-1
if not isNum(mid(×Ö¶Î,i,1)) then
getChar=getChar&isNum(mid(×Ö¶Î,i,1))
end if
next
¼òµ¥½éÉÜÒ»ÏÂËã·¨£º
ÏȶÁÈ¡×Ö¶ÎÖеÄ×Ö·û´®£¬È»ºó°Ñ×Ö·û´®·Ö¸î³É×Ö·ûÀ´±È½Ï£¬Èç¹ûÊÇÊý×ֵľͲ»¹Ü£¬²»ÊÇÊý×ֵľÍÖØÐ¸³Öµ¸øgetCharÕâ¸ö±äÁ¿£¬È»ºóÓÃgetCharÕâ¸ö±äÁ¿¸üÐÂ×ֶξͺÃÁË£¬Ò²Ðí»¹ÓбÈÕâ¸üºÃµÄËã·¨£¬Íû´ó¼Ò´Í½Ì£¡
¶¥Ò»Ï£¬Ôø¾Ò²Óöµ½¹ýÕâ¸öÎÊÌâ¡£
Ïà¹ØÎÊ´ð£º
<%On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.begintrans
conn.Open ("Driver={SQL Server};server=(local);uid=sa;database=student;pwd=")
......
ÎÒÓÐÒ»¸öaspÔ´Â룬µ«ÊdzöÏÖÒ»¸öÎļþ£¬ÎÒÓÃasp½âÃܶ¼ÊÇÂÒÂë
Çë½Ì
VBScript code:
??
%# , #&')*)-0-(0%()(?
(((((((((((((((((((((((((( ......
ÎÒÏëÓÃaspд¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......
Ò»¶Îʱ¼äºó ¾Í²»ÄÜÓõÄÄÇÖÖ
¿ÉÒÔÓÃ×é¼þдÂð?
×é¼þ ÊDz»ÊDZØÐëÏÈÔÚ·þÎñÆ÷°²×° ²ÅÄÜʹÓÃ?
ÄÇÓÃÐéÄâÖ÷»úµÄ ²»¾ÍûϷÁË....
ewebeditor¾ÍÊÇҪע²á²ÅÄÜÓõÄ
Ã²ËÆÊÇûɶÓõ ......
ÏÖÔÚÕâÉç»á»ù±¾Éϲ»ÐèÒªASP³ÌÐòÔ±ÁË,Ò»ÃæÊÔ,¶¼Òª.NET»òÕßPHP,JSPµÄ,°¥,,,,ASPÕâô²»ÖµÇ®Âð,ѧϰASPÊǸö´íÎóÂð
ûɶ´íÎó Ò»¾ä»°£º¼¼¶à²»Ñ¹Éí
¿¿ASP¶¼»ì²»µ½·¹³ÔÁË ÔÎ ÔÎ
ÎÒµÄÒâ˼ÊǶàѧһÃż¼Êõûɶ´íÎó ......