¹ØÓÚ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Õâ¸ö±äÁ¿¸üÐÂ×ֶξͺÃÁË£¬Ò²Ðí»¹ÓбÈÕâ¸üºÃµÄËã·¨£¬Íû´ó¼Ò´Í½Ì£¡
¶¥Ò»Ï£¬Ôø¾Ò²Óöµ½¹ýÕâ¸öÎÊÌâ¡£
Ïà¹ØÎÊ´ð£º
conn.asp
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.MapPath("Connt ......
<%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д¸öÒ³ÃæÒÔǰûÓнӴ¥¹ý£¬ÎÒ¿´ÍøÉÏ˵aspµÄÔËÐл·¾³Ö»ÄÜÊÇwindows£¬»¹±ØÐëҪװIIS¡£
Çë½Ì¸÷λ¸ßÊÖ£¬asp»¹ÓÐÆäËûµÄÔËÐл·¾³Âð?
²î²»¶à¾ÍÕâЩÁË£¬¾ÍÊÇIISÒ»¶¨Òª×°ºÃ
»¹ÓÐÒªÊÇÓÃVS2005µÄ»°ºÃÏñ¿ÉÒÔÖ±½ÓÔ ......