Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

×öASPС͵³ÌÐò

 (Ò»)ÈçºÎ½ØÈ¡Ö¸¶¨ÇøÓòµÄHTML´úÂë?
¡¡¡¡(¶Ô·½ÍøÕ¾µÄHTML´úÂëÔÚÄĶù¿´£¿ÔΣºIEä¯ÀÀÆ÷>>²é¿´>>Ô´Îļþ¡£²»Òª¸æËßÎÒÄã²»ÖªµÀIEÊÇʲô£¡)£¬ÀýÈçÎÒÖ»Ïë»ñÈ¡ÒÔÏÂHTML´úÂëÖÐ"<td>"ºÍ"</td>"Ö®¼äµÄµÄÎÄ×Ö²¿·Ö£º
<html>
<title>ÍøÕ¾°®ºÃÕß__http://www.wwwfan.cn</title>
<body>
<table>
<tr><td></td></tr>
<tr><td id="Content">ÍøÕ¾°®ºÃÕß__http://www.wwwfan.cnÊǸöÍøÒ³ÖÆ×÷×ÊÔ´¶à¶àµÄÕ¾µã……</td></tr>
</table>
</body>
</html>
<%
……
Dim StrBK,start,over,RsBK
StrBK=getHTTPPage(ÍøÒ³µÄµØÖ·)
start=Instr(StrBK,"<td id=""Content"">") '´Ë´¦µÄ×÷ÓÃÊÇ»ñÈ¡×Ö·û´®¿ªÊ¼µØ·½µÄ¶¨Î»¡£Instrº¯ÊýÔÚVBScript½Ì³ÌÀï˵¹ýÁËŶ~
'ÕâÀïÒªÓÐÈËÎÊÁË:Ô­À´µÄ´úÂëÊÇ<td id="Content">,ÔõôÄãÕâÀïµ÷ÓõÄÊÇ<td id=""Content"">°¡?´ð°¸:aspÖУ¨×¼È·µÄ˵ÊÇVBscriptÖÐÊÇÓÃÁ½¸öË«ÒýºÅÀ´±íʾһ¸öË«ÒýºÅµÄ£¬ÒòΪ˫ÒýºÅ¶ÔÓÚ³ÌÐòÀ´ËµÊǸöÃô¸Ð×Ö·û¡£
over=Instr(StrBK,"…</td></tr>")'´Ë´¦µÄ×÷ÓÃÊÇ»ñÈ¡×Ö·û´®½áÊøµØ·½µÄ¶¨Î»¡£
'ÕâÀïÓÖÒªÓÐÈËÎÊÁË :³ÌÐòµ÷ÓÃHTML´úÂë¸ÉÂðÇ°Ãæ¶à³öÀ´3¸öµãµã"…"°¡£¿´ð£ºÌáʾ£ºÉÏÃæÒ»ÐÐÒ²ÓÐÒ»¸ö</td></tr>£¬Èç¹ûÕâÀïÓÃ</td></tr>À´¶¨Î»µÄ»°£¬³ÌÐò»á´íÎ󵨰ÑÉÏÃæÒ»ÐеÄ</td></tr>µ±³ÉÓû»ñÈ¡×Ö·û´®µÄ½áÊø²¿·ÖÁË¡£
RsBK=mid(StrBK,start,over-start) '´Ë´¦µÄ×÷ÓÃÊÇÈ¡³öStrBKÖеÚstart¸ö×Ö·ûµ½µÚover¸ö×Ö·ûÖ®¼äµÄ×Ö·û´®¡£midº¯ÊýÔÚVBScript½Ì³ÌÀïÒ²½²¹ýÁË£»over-startÊÇΪÁ˼ÆËã³ö¿ªÊ¼Î»ÖúͽáÊøÎ»ÖÃÖ®¼äµÄ¾àÀ룬Ҳ¾ÍÊÇ×Ö·ûÊý¡£
response.write(RsBK) '×îºóÊä³ö³ÌÐò»ñÈ¡µÄÄÚÈÝ
%>
¡¡¡¡ ²»Òª¸ßÐ˵ÄÌ«Ô磬µ±ÄãÔËÐеÄʱºò£¬Äã»á·¢ÏÖÒ³ÃæµÄhtml´úÂëÓдíÎó£¬ÎªÊ²Ã´ÄØ£¿ÒòΪÄã»ñÈ¡µÄhtml´úÂëÊÇ£º
<td id="Content">ÍøÕ¾°®ºÃÕß__http://www.wwwfan.cnÊǸö×ÊÔ´¶à¶àµÄÕ¾µã…
¡¡¡¡ ¿´µ½Á˰ɣ¿ÓвÐȱµÄHTML´úÂë°¡£¡Ôõô°ìÄØ£¿start=Instr(StrBK,"<td id=""Content"">"Õâ¸öÓï¾ä»ñÈ¡µÄÊÇ"<td id="Content">"ÔÚStrBKÖеÄλÖÃÊý,ÏÖÔÚÎÒÃÇ¿ÉÒÔÔÚ³ÌÐòÓï¾äµÄºóÃæ¼ÓÉÏ17,ÄÇô³ÌÐò¾Í»á½«Î»ÖÃÖ¸Ïò<td id="Content">ºóÃæµÄÄǸö×Ö·û.
ºÃµÄ,³ÌÐò½«¸


Ïà¹ØÎĵµ£º

asp ʵÏÖµÄðÅÝÅÅÐò³ÌÐò

 arr = array(12,52,14,43,24,58,15,64,24,57,17,56,45)
arrLen = ubound(arr)
for i=0 to arrLen-1
for j = 0 to (arrlen -1)-i
if arr(j)>arr(j+1) then
temp = arr(j)
arr(j)= arr(j+1)
arr(j+1) = temp
end if
next
next

for each l in arr
response.Write l&"< ......

ASPÊý¾ÝÁ¬½Ó

1. ÓÃDSNÁ¬½Ó²¢ÇÒûÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName"
%>
ÓÃDSNÁ¬½Ó²¢ÇÒÓÐÓû§ÃûºÍÃÜÂ룺
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "YourDSNName","username","password"
%>
2. ÓÃʵ¼ÊµÄÊý¾Ý¿â¾ø¶Ô·¾¶Á¬½Ó ......

ASPÊÇʲôÓïÑÔ£¬ÓÐʲôÓÅÊÆ

 Ñ§ASPµ½ÏÖÔÚÒÑÓÐÐí¶àÄ꣬ºÃ¶àÈ˶¼ËµËûÕâ¸ö²»ºÃÄǸö²»ºÃ£¬¿ÉÎÒ¾õµÃͦºÃ£¬ÎÒȴ˵²»³öʲôºÃµÄÀíÓÉÈÿͻ§Ñ¡ÔñÓÃASP¿ª·¢£¬ÖÕÓÚ¿´µ½ÁËÕâ¸öÎÄÕ£¬ÐÄÖдóϲ£¬×ª¸ø´ó¼Ò·ÖÏí~~
ASPÊÇÒ»ÖÖÀàËÆHTML(Hypertext Markup Language³¬Îı¾±êʶÓïÑÔ)¡¢ScriptÓëCGI(Common GAteway Interface ͨÓÃÍø¹Ø½Ó¿Ú)µÄ½áºÏÌ壬µ«ÊÇÆäÔËÐÐЧÂÊÈ´±È ......

Aspȫѡ´úÂë


<script language="javascript">
function CheckAll(form)
{ ///¶¨Ò庯Êýcheckall,²ÎÊýΪform
for (var i=0;i<form.elements.length;i++)
///Ñ­»·,form.elements.lengthµÃµ½±íµ¥ÀïµÄ¿Ø¼þ¸öÊý
{
///°Ñ±íµ¥ÀïµÄÄÚÈÝÒÀÒÀ¸¶¸øeÕâ¸ö±äÁ¿
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = for ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ