x196231222

<br /><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><br /><!--#include file="conn.asp" --><br /><% <br />sql="select * from suse" 'sql语句<br />set rs=server.createObject("ADODB.Recordset") '创建ado组件<br />rs.open sql,conn,1,3 '更新数据库要使用1，3<br />Set fso = Server.Creat

<br /><% <br />strHead=strHead& "A<br>"<br />str0=str0& "你好！<br>"<br />ref=ref& "我们！<br>"<br />for j=1 to 2<br />Dim fso,f<br />Dim strTitle,strContent,strOut<br />'创建文件系统对象<br />Set fso=Server.createObject("Scripting.FileSystemObject")<br />Set f=fso.crea

<br /><% <br />strHead=strHead& "A<br>"<br />str0=str0& "你好！<br>"<br />ref=ref& "我们！<br>"<br />for j=1 to 2<br />Dim fso,f<br />Dim strTitle,strContent,strOut<br />'创建文件系统对象<br />Set fso=Server.createObject("Scripting.FileSystemObject")<br />Set f=fso.crea

<br />FSO方法使用说明<br />Set fso = Server.CreateObject("Scripting.FileSystemObject")<br />*****************FSO文件****************<br />----------显示文件列表------------<br />Set f = fso.GetFolder(folderspec)<br />Set fc = f.Files<br />For Each f1 in fc<br />s = s &

<br />实例1；<br /><% <br />Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例 <br />FF = Server.MapPath("/") <br />Set objFSO = Server.CreateObject("Scripting.FileSystemObject") <br />If objFSO.FolderExists(ff) Then <br />Response.write "文件夹 "&ff&" 里所有的文件：<

<br /><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><br /><% '&:数据库名data 表zp 字段zp_zp<br />set conn=server.createobject("adodb.connection")<br />conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb") '数据库连接<br />Dim objFSO,objFolder,o

<br /><!--#include file="conn.asp"--> <br /><% <br />exec="delete * from suse where id="&request.querystring("id") <br />conn.execute exec <br />conn.close <br />set conn=nothing <br />%> <br /><% <br />filename=request("filename") <br />set fso = Server.C