<job id ="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"> <script language ="vbscript"> databasename ="access.mdb"''数据库地址 tablename ="blogarticle"''要处理的表名 Set conn = CreateObject("ADODB.Connection") connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename conn.Open connstr Set rs_all = CreateObject("adodb.recordset") sql_all ="select name from MSysObjects where type=1 and flags=0" rs_all.Open sql_all, conn,1,1 DoWhileNot rs_all.EOF     tablename = rs_all(0) Set rs = CreateObject("adodb.recordset")     sql ="select * from "& tablename &" where 1<>1"     rs.Open sql, conn,1,1     j = rs.Fields.Count     txtContent =""     txtContent1 =""     txtContent2 =""     txtContent3 =""     txtContent4 ="" For i =0To(j -1)         title = rs.Fields(i).Name         txtContent = txtContent & title &"|"         txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"<br>"         txtContent2 = txtContent2 & title&"=rs("""&title&""")<br>"         txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))<br>"         txtContent4 = txtContent4 & title&"=rs("""&title&""")<br>" Next     yongfa365 ="<div align=center><a href=""http://www.yongfa365.com"" class=""titlink"" title=""柳永法(yongfa365)'Blog http://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"     CreateFile tablename&".html", yongfa365 & txtContent &"<br><br>"& txtContent1 &"<br><br>"& txtContent2 &"<br><br>"& txtContent3 &"<br><br>"& txtContent4     rs_all.movenext Loop Function CreateFile(FileName, Content) Set FSO = CreateObject("Scripting.FileSystemObject") Set fd = FSO.CreateTextFile(FileName,True)     fd.WriteLine Content EndFunction </script> </job> <job id ="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合"> <script language ="vbscript"> databasename ="access.mdb"''数据库地址 tablename ="blogarticle"''要处理的表名 Set conn = CreateObject("ADODB.Connection") connstr ="provider=microsoft.jet.oledb.4.0;data source="&databasename conn.Open connstr ''Set rs_all = CreateObject("adodb.recordset") ''sql_all = "select name from MSysObjects where type=1 and flags=0" ''rs_all.Open sql_all, conn, 1, 1 ''Do While Not rs_all.EOF ''    tablename = rs_all(0) Set rs = CreateObject("adodb.recordset") sql ="select * from "& tablename &" where 1<>1" rs.Open sql, conn,1,1 j = rs.Fields.Count txtContent ="" txtContent1 ="" txtContent2 ="" txtContent3 ="" txtContent4 ="" For i =0To(j -1)     title = rs.Fields(i).Name     txtContent = txtContent & title &"|"     txtContent1 = txtContent1 & title&"=trim(request("""&title&"""))"&"<br>"     txtContent2 = txtContent2 & title&"=rs("""&title&""")<br>"     txtContent3 = txtContent3 &"rs("""&title&""")=trim(request("""&title&"""))<br>"     txtContent4 = txtContent4 & title&"=rs("""&title&""")<br>" Next yongfa365 ="<div align=center><a href=""http://www.yongfa365.com"" class=""titlink"" title=""柳永法(yongfa365)'Blog http://www.yongfa365.com"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>" CreateFile tablename&".html", yongfa365 & txtContent &"<br><br>"& txtContent1 &"<br><br>"& txtContent2 &"<br><br>"& txtContent3 &"<br><br>"& txtContent4 ''    rs_all.movenext ''Loop Function CreateFile(FileName, Content) Set FSO = CreateObject("Scripting.FileSystemObject") Set fd = FSO.CreateTextFile(FileName,True)     fd.WriteLine Content EndFunction </script> </job>