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

ASPÉú³É¾²Ì¬Ò³Ãæ·½·¨

1¡¢WITH TEMPLETÒâ˼ÊÇ£¬Éú³ÉµÄÒ³Ãæ¼Ü¹¹½«²ÉÓÃij¸öÒÑÉ趨µÄÄ£°å£¬ÔÚ´Ë֮ǰÎÒµÄһƪ½Ì³ÌÖнéÉܹý£¬Ï£Íû¸÷λÔÚ¿´±¾½Ì³Ì֮ǰ¶ÔASP²ÉÓÃÄ£°åÓ¦ÊìϤÏ¡£
¡¡¡¡2¡¢ASPת±äΪHTML¡£²»ÒªÎÒÔÙ˵ASPת±ä³ÉHTMLµÄºÃ´¦ÁË°É£¬ÆäÖÐ×îÖµµÃÖªµÀµÄ¾ÍÊÇ£º¾²Ì¬HTMLÒ³ºÍ¶¯Ì¬Ò³¶Ô·þÎñÆ÷µÄÒªÇó³ÐÊÜÄÜÁ¦Ð¡µÃ¶à£¬Í¬Ñù£¬¾²Ì¬HTMLËÑË÷¼¸ÂÊÔ¶±È¶¯Ì¬Ò³ÃæµÄ¶àµÃ¶à¡£
¡¡¡¡ÄÇô£¬ÎÒÏÖÔÚÐèÒª´¦ÀíµÄ¼¼ÊõÎÊÌâ¾ÍÊÇ£º
¡¡¡¡1¡¢ÈçºÎʵÏÖÄ£°å¼¼Êõ£¿
¡¡¡¡2¡¢ÈçºÎʵÏÖ2HTML¼¼Êõ£¿
¡¡¡¡3¡¢ÈçºÎÈÃÄ£°å¼¼ÊõÓë2HTML¼¼Êõ½áºÏ£¿
¡¡¡¡Ò»¡¢ÏȽøÐм¼ÊõÔ­Àí·ÖÎö
¡¡¡¡1¡¢Ä£°å¼¼Êõ²Î¿´
¡¡¡¡2¡¢ÈçºÎʹµÃASPÒ³Ãæת±äΪHTML£¿Ò»°ã¶¼»áÏëµ½FSO×é¼þ£¬ÒòΪ¸Ã×é¼þÄÜн¨ÈκÎÎļþ¸ñʽ¡£
¡¡¡¡ÄÇôÆäÕû¸öÔËÐйý³ÌÊÇÔõôÑùµÄÄØ£¿
¡¡¡¡a¡¢ÌṩÐÅÏ¢ÊäÈëÒ³Ãæ½øÐÐÐÅÏ¢ÊÕ¼¯£»
¡¡¡¡b¡¢½ÓÊÜÐÅÏ¢ÖµÏȱ£´æÊý¾Ý¿â£¬ÔÙFSOÉú³ÉÎļþ£»
¡¡¡¡c¡¢¼¼ÊõÐÔÍê³ÉÈÎÎñ£¬ÏÔʾ¸Õ±»´´½¨µÄHTMLÎļþµÄ·¾¶µØÖ·¡£ ¸Ã¼¼ÊõµÄʵÏÖ¹ý³ÌÖÐÓÐÈçϼ¸¸öÄѵ㣺
¡¡¡¡i¡¢FSOÉú³ÉµÄÎļþÊÇÖ±½Ó·ÅÔÚÒ»¸ö´óÎļþ¼ÐÏ£¬»¹Êǵ¥¶À·ÅÔÚij¸öÿÈÕ¸üеÄ×ÓÎļþ¼ÐÖУ¿¿ÉÄܱíÊö²»×¼È·£¬ÕâÑùÀí½â°É£ºÏàÐÅͨ¹ýFSOÉú³ÉµÄÎļþËæ×Åʱ¼äµÄÍÆÒÆ£¬Îļþ»áÔ½À´Ô½¶à£¬¹ÜÀíÒ²»áÔ½À´Ô½ÂÒ……ͨ³£Äã¿ÉÄÜ¿´µ½Ò»Ð©µØÖ·ÖîÈç www.xxx.com/a/2004-5-20/200405201111.html ¿ÉÒÔ·ÖÎöµÃ³öÓ¦¸ÃÊǽ¨Á¢Á˵±Ç°ÈÕÆÚµÄÎļþ¼Ð¡£ÕâÑù£¬Ò»Ìì¾ÍÊÇÒ»¸öÎļþ¼ÐµÄÒ³ÃæÄÚÈÝ£¬²é¿´¹ÜÀíÒ²¾ÍÏԵñȽϺÏÀí¡£ ×Ö´®9
¡¡¡¡ii¡¢ÎÒÔÚÊÔͼͨ¹ýÒÔÉÏ·½·¨½¨Á¢Îļþ¼ÐµÄʱºò£¬ÓÖ·¢ÏÖÁ˵ڶþ¸öÎÊÌâ¡£µÚÒ»´Îͨ¹ýFSO½¨Á¢ÒÔµ±Ç°ÈÕÆÚÃüÃûµÄÎļþ¼Ð£¬Ã»ÓÐÎÊÌâ¡£µ±ÎÒÓÐеÄÎļþÐèÒªÉú³Éʱ£¬ÒòΪÊÇͬһ¸ö³ÌÐò£¬ËùÒÔ£¬ÆäÓÖ½«»áÖ´Ðн¨Á¢Í¬ÑùµÄÎļþ¼Ð¡£´Ëʱ£¬FSO×é¼þ»á·¢Ïָ÷¾¶ÒÑ´æÔÚ……¿¨¿Ç-_-! ¼ÌÐø´¦Àí£¬ÔÚÊ×ÐÐÌí¼Ó´úÂ룺On Error Resume Next£¬´ïµ½×ÔÆÛÆÛÈË¡¢ÑÚ¶úµÁÁåµÄЧ¹û¡£
¡¡¡¡µ±È»¹æ¾ØµÄÓ÷¨ÊÇÅжÏÎļþ¼ÐµÄÓÐÎÞ£º
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(Server.MapPath(folder))) then
'ÅжÏÈç¹û´æÔھͲ»×ö´¦Àí
else
'ÅжÏÈç¹û²»´æÔÚÔò½¨Á¢ÐÂÎļþ¼Ð
fso.CreateFolder(Server.MapPath(folder))
end if
%>
¡¡¡¡iii¡¢Îļþ¼ÐÊǽ¨Á¢ÁË£¬Îļþ¸ÃÈçºÎ½¨Á¢ÄØ£¿Ö÷ÒªÒ²¾ÍÊÇÎļþÃûµÄÉú³É¡£µ±È»Õâ¸ö¾ÍÐèÒª×Ô¼ºÀ´Ð´¸öº¯Êý£¬¹¦ÄܾÍÊÇÈçºÎÉú³ÉÎļþÃû£º
<%
function makefilename(fname)
fname = fname 'Ç°fnameΪ±äÁ¿£¬ºófnameΪº¯Êý²


Ïà¹ØÎĵµ£º

aspͼƬ¹ö¶¯

<%
Const New_img=10     
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='o ......

asp´ÓÊý¾Ý¿âÖÐÊä³öµÄ¶«Î÷»»ÐÐ

 <%  
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from 0791idc_News where BigClassName='¼Ò×°¿ÎÌÃ' order by ID desc"
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
  response.Write("ÔÝʱûÓмǼ")
else
%>
         ......

ASPÖÐÈçºÎ±íµ¥ÔªËصĴ«µÝ

¡¡¡¡Ñ§Ï°Ä¿µÄ£ºÑ§»áÓÃ±íµ¥ÔªËØÏò·þÎñÆ÷´«ËͱäÁ¿£¬È»ºóÏÔʾ±äÁ¿ÔÚ¿Í»§¶ËµÄä¯ÀÀÆ÷¡£
¡¡¡¡Ê×ÏÈ£¬ÈÃÎÒÃÇÀ´¿´Ò»ÏÂDREAMWEAVERµÄ±íµ¥ÔªËØëˢ¡£
¡¡¡¡ÏÂÃæÎÒÃÇÀ´Ò»¸öÒ»¸ö¿´±íµ¥ÔªËØ¡£1¡¢Îı¾Óò£¬Õâ¸öÊÇ×î»ù±¾µÄ£¬´«Ë͵ÄÊÇÎı¾ÐÅÏ¢£¬Ò»°ãÓû§Ãû£¬ÃÜÂ붼ҪÓÃÕâ¸ö´«ËÍ£¬²»¹ýÒªÊÇÃÜÂëµÄ»°ÒªÔÚÀàÐÍÀïÃæÑ¡ÔñÃÜÂ룬ÕâÑù¾Í»áÒÔ*´úÌæÏÔʾ³ ......

aspÁ¬½ÓaccessÊý¾ÝÀý×Ó

<%Dim connstrconnstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Stu.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.Open connstr%>
<html>
<head>
<meta http-equiv="content-Language" content="zh-cn" />
<meta http-equiv="Content-Type ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ