ASP ¶ÁÈ¡txtÎı¾£¬È»ºóÔÚÀÛ¼Ó ÔÙдÈë~¼±Çó¸ßÊÖ°¡£¡£¡
aspÓÃfso¶ÁÈ¡Îı¾ÀïµÄÄÚÈÝ È»ºóÔÚ¼ÓÉÏ ÁíÍâÒ»¸öÖµ ×îºóÔÚдÈëtxtÖÐ ´ò¿ªtxtʱ¿ÉÒÔ¿´µ½Á½´ÎÀÛ¼ÓµÄÖµ
¾ÍÏñlogÈÕÖ¾Ò»Ñù ÖðÌõÀÛ¼ÓËùÓеÄÖµ
´úÂëÈçÏ£º
<%
dim txtfile,fso,MyFile,a,b,txt
a="ÊäÈëtxtÄÚÈÝ"
txtfile=server.mappath("1.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(txtfile,True)
MyFile.WriteLine(a) 'µÚÒ»´ÎдÈë
Set txt = fso.OpenTextFile(txtfile,1)
While Not txt.AtEndOfStream
b =txt.ReadAll '¶ÁÈ¡txtÄÚÈÝ
MyFile.WriteLine(b) 'µÚ¶þ´ÎдÈë
MyFile.Close
Wend
%>
¾ÍÊÇÿÔËÐÐÒ»´Î¾Í»áÀÛ¼ÆÖµµ½TXTÖС£
ÄÄλ¸ßÊÖ°ïÎҸĸİ¡£¬ÎÒ±»ÕÛÄ¥Ò»ÌìÁË¡£¡£ ¹òÇó¸ßÊÖ£¡£¡£¡
ÎÒÔΣ¬ ûһ¸öÈËÀíÎÒ°¡£¿£¿£¿ ÀäÇå°¡
ÔΣ¬ÄãÒª°ÑÔÀ´µÄÖµ¼Ó½øÈ¥°¡£¬Èç¹ûÊÇÄãÕâÑùдµÄ»°£¬ÔÀ´µÄÖµ²»ÊDZ»ÇåÁËÂð£¿
VBScript code:
<%
'ÄãÓ¦¸ÃÏȰٶÈÒ»ÏÂOpenTextFile·½·¨ÔÙÀ´ÎÊÎÊÌ⣬µÚ¶þ¸öÖµ¿ÉÒÔÌîForAppending£¬±íʾ׷¼ÓÎı¾
'˳±ã¸øÄã¸ñʽ»¯Ò»Ï´úÂë
Dim txtFile,FSO,myFile,a,b,txt
a = "ÊäÈëtxtÄÚÈÝ"
txtFile = Server.mapPath("1.txt")
Set FSO = createObject("Scripting.FileSystemObject")
Set myFile = FSO.createTextFile(txtfile,True)
myFile.writeLine(a) 'µÚÒ»´ÎдÈë
myFile.close '×¢ÒâÕâÀïÒª¹Ø±Õ
set myFile = Nothing
Ïà¹ØÎÊ´ð£º
Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.Design
Imports System.Web.UI.WebControls
Namespace CBDAspNet.WebControls.HTML
''' <summary>
'' ......
ÎÒÏë´òÓ¡Êý¾Ý¿âÀïÃæ¶ÁÈ¡³öÀ´µÄ¶àÌõÊý¾ÝÄÚÈÝ£¬ÊµÏÖÅúÁ¿´òÓ¡
Ïȵ¼Èëexcel»òÕßword£¬È»ºóÔÚ´òÓ¡
»òÕß¹ºÂòweb´òÓ¡¿Ø¼þ
ʹÓÃacitvex´òÓ¡¡£Èç¹û²»ÐèҪѡÔñÊôÐÔ£¬ÉèÖÃÊôÐÔ£¬¾Í²»ÐèÒªÉÌÒµµÄÁË¡£
<style media= ......
¸÷λ´óϺ£º
AspÈçºÎÄÜ×öµ½³¬´óÎļþµÄÉÏ´«¹ÜÀíÄØ£¿ÕâÀﳬ´óÎļþÖ¸µÄÊÇ£º100M ÖÁ 2G Ö®¼äµÄÒ»¸öÎļþ£¬Æ©È磺¼à¿ØÂ¼Ïñ Îļþ
ÎÒÏÖÔÚÓõÄÊÇFtpÉÏ´«£¬ÓÃÁË´ó°ëÄêÁË£¬ÏÖÔÚ·¢ÏÖFTPÀïÃæ·Ç³£»ìÂÒ£¬ºÜ¶àÓû§ÉÏ´«µÄ¶ ......
µ÷ÕûÁËÕâÀÄÇÀï³öÎÊÌâ¡£
ÓÐûÓÐʲôºÃµÄ·½·¨£¬Ïñµ÷Õû¶Ô»°¿òÒ»Ñù£¿£¿£¿£¿
ÕÒ¸öרÃÅ×öÒ³ÃæµÄ
ÔÚdreamweaverÀïµ÷¡£¡£¡£Ò²¿ÉÒÔÖ±½Ó¿ØÖÆHTML´úÂë
ȷʵʹ¿à ¸ÐͬÉíÊÜѽ
¹þ¹þ ¼á¾ö·¹ý¡£
ÓÃDW°É£¬VS¸ãÉè¼Æ ......
ÔÚaspÀïÔõôµ÷ÓÃjavaдµÄwebservice·½·¨£¬Óкܶ෽·¨
- <message name="RtPnrIn">
<part name="bstrPnrNO" type="s:string" />
<part name ......