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
