Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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Ñ­»·Êä³ö±í¸ñÐÐtrµÄ·½·¨

  <%
for i=1 to rs.recordCount '±äÁ¿i´Ó1Ñ­»·µ½Êý¾Ý¿âÖеÄÈ«²¿¼Ç¼Êý
if (i mod 1 =1) then 'ÿ¸ötr¼´Ã¿ÐÐÏÔʾ1¸ö¼Ç¼,¿É¸ù¾ÝÐèÒª×ÔÐÐÐÞ¸Ä, ½«×ó±ßµÄ1ÐÞ¸ÄΪ2¼´ÏÔʾÁ½ÐС£
response.write "<tr align='center'>"
end if
%>
´Ë´¦ÎªÒªÑ­»·µÄÄÚÈÝ
  <%if (i mod 1 = 0) then ......

asp¶ÁÈ¡word ÎĵµÄÚÈÝת»»Îª¶þ½øÖÆÊý¾ÝÁ÷

Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadfromFile FilePath&"\"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite  ......

asp ÉãÏñÍ·±à³Ì¼¼ÊõÓ¦ÓÃ

´úÂ룺
<%@ LANGUAGE=VBScript CodePage=65001%>
<%
private function decodeBase64(base64) 
   dim DM, EL 
   Set DM = CreateObject("Microsoft.XMLDOM") 
   Set EL = DM.createElement("tmp") 
   EL.DataType = "bin.base64"
& ......

[ASP.net]ѧϰasp.netµÄÍêÕûÁ÷³Ì

±¾ÌùÀ´×ÔZDNetChinaÖÐÎÄÉçÇø http://bbs.zdnet.com.cn/
±¾ÌùµØÖ·£ºhttp://bbs.zdnet.com.cn/viewthread.php?tid=108315
 
Èç¹ûÄãÒѾ­Óн϶àµÄÃæÏò¶ÔÏ󿪷¢¾­Ñé£¬Ìø¹ýÒÔÏÂÕâÁ½²½£º
¡¡¡¡µÚÒ»²½¡¡ÕÆÎÕÒ»ÃÅ.NETÃæÏò¶ÔÏóÓïÑÔ£¬C#»òVB.NET ÎÒÇ¿ÁÒ·´¶ÔÔÚûϵͳѧ¹ýÒ»ÃÅÃæÏò¶ÔÏó(OO)ÓïÑÔµÄǰÌáÏÂȥѧASP.NET¡£ ASP.NETÊÇ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ