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
