ASP °ÑÊý¾Ý¿âÄÚÈÝÉú³ÉWordÎĵµ±£´æµ½Ä¿Â¼ÏÂ

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * from dbo.LabIntroduce ORDER BY ID DESC"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
 Dim fso, MyFile      
    Set fso = CreateObject("Scripting.FileSystemObject")     'Óõ½fso        
    sFileName = ".doc"      
    Set MyFile = fso.CreateTextFile(Server.MapPath(""&rs1("AdminName")&"") &sFileName,   True)   'Îļþ·ÅÔÚµ±Ç°Ä¿Â¼µÄword/Ï  
    myString=""&rs1("AdminText")&""  
    MyFile.WriteLine(myString)  
    MyFile.Close
 
rs1.Close()
Set rs1 = Nothing