asp È¡"A"±êǩϵĵØÖ·ºÍ±êÌâ
ÈçÍøÒ³Ô´´úÂë:
<a href="http://www.baidu.com">°Ù¶ÈÒ»ÏÂ,Äã¾ÍÖªµÀ </a> <br />
<a href="http://www.youdao.com">ÓеÀ </a> <br />
<a href="http://www.soso.com">ËÑËÑÍøÒ³ </a> <br />
<a href="http://www.webdianping.cn">ÍøÂç·þÎñµãÆÀ </a> <br />
Çó×îºó½á¹û:
ÓÃASPº¯Êý°ÑÍøÖ·ºÍ±êÌâÈ¡³öÀ´·ÅÈëÊý×éÖÐ
A(0)(0) = "http://www.baidu.com"
A(0)(1) = "°Ù¶ÈÒ»ÏÂ,Äã¾ÍÖªµÀ"
A(1)(0) = "http://www.soso.com"
A(1)(1) = "ËÑËÑÍøÒ³"
...
ÔõôûÈ˰¡,ÔÚÏßµÈ
±éÀúaÔªËØµÃµ½µÄ³¤¶È¾ÍÊǵÚһάÊý×éµÄ´óС
È¡µ½aµ±Ç°µÄ½Úµã(a[i])ËüµÄµÚÒ»¸ö×Ó½ÚµãµÄ.nodeValue=Á¬½ÓµÄÎÄ×Ö
ÓÃÕýÔòʽȥ×ö
ÍøÉÏÕÒÁËһϣ¬½â¾öÁËÎÊÌâ.ллÉÏÃæµÄÁ½Î»¡£
VBScript code:
'==================================================
'*º¯ÊýÃû : GetHreffromContent
'*²ÎÊý˵Ã÷ £º html ±»ÌáÈ¡µÄhtmlÖÐA´úÂë
'*¹¦Äܼò½é £º ÌáÈ¡Õⲿ·Öhtml´úÂëÖÐA±êÇ©µÄÁ¬½ÓµØÖ·ºÍÃû³Æ
'==================================================
function GetHreffromContent(html)
Dim Re, match, matchs,strContent,aryNum,aryContent,strUrl
strContent = ""
set Re = new RegExp
re.IgnoreCase =True
re.Global = True
Ïà¹ØÎÊ´ð£º
×î½üÎÒͨ¹ýѧϰ£¬¸Ð¾õ×Ô¼ºÑ§µÄ»¹¿ÉÒÔÁË£¬Ïë×öÒ»ÍøÕ¾£¬µ«ÊÇÒ»Ö±¶¼ÕÒ²»µ½Ìâ²Ä£¬²»ÖªµÀ×öʲô£¬Ï£Íû¸÷λ¸øÎÒµãÒâ¼û£¬Èç¹ûÓÐÐèÇóÎĵµ¾Í¸üºÃÁË£¡Ï£Íû´ó¼Ò¸øÎÒµãÒâ¼û£¬Ð»Ð»£¡
ÏÈ×ö¸öÆóÒµÍøÕ¾°É£¬ÎҸоõÒ»¸öÈË×öÍøÕ¾²»ÊÊÒË ......
ÎÒÔ±¾ÊÇѧjspµÄ¿ÉÕÒÁËÒ»¸öASPµÄ¹«Ë¾£¡ÎÒÒªÖØÐÂѧϰ£¡ ѧϰASP£¡ Ï£Íû´ó¼ÒÍÆ¼öÒ»±¾ºÃÊ鏸ÎÒлл
<ASP3.0¸ß¼¶±à³Ì> ÍøÉÏÓеç×Ó°æµÄ
·¢ÏÖÍøÉÏaspÐÅϢʱ×î¶àµÄ ±ÈÆäËûµÄ¶¼¶àºÃ¶à
yun
ÕÒ±¾ÓÐÓ¦ÓÃÊÂÀýµÄA ......
ÓÐÄÄλ¸ßÊÖÓùýASP FCKÔÚÏß±à¼Æ÷ѽ£¬ËüÄǸöͼƬÉÏ´«¹¦ÄÜÔõôÅäÖÃѽ
ÄܸøÎÒ·¢¸öÄÜÓÃFCKÔÚÏß±à¼Âð£¿Ò»¶¨ÄÜÉÏ´«Í¼Æ¬¹¦ÄܵÄѽ£¬¼±Ñ½
Ö±½Óµ½¹Ù·½ÍøÕ¾È¥Ï¸ö¾Í¿ÉÒÔÁË£¬¹ØÓÚÉèÖÃô£¬Ö±½ÓGOOGLEÒ»ÏÂÄãµÄ°æ±¾ºÅ¾Í¿ÉÒÔÕÒµ ......
<%
Sql="select top 8 * from NewsData where d_classid in (select classid from NewsClass where ParentID=16)"
Rs.Open Sql, conn, 1,1
Do Until Rs.Eof
......