全国服务热线:4008-888-888

公司新闻

asp 完成数据信息导进方式

建设网站以前您必须掌握甚么? 一个好网站域名如何选择?全部权怎样维.. 服务器空间能够先使用再支付吗? 建设网站选本人還是精英团队或是选企业? 网站商品材料加上方法方式 为何申请办理好的电子邮箱会只有发不可以收.. 企业网站建设前:简易一目了然的提前准备方式
asp 完成数据信息导进方式 隶属归类:网站开发新闻资讯 公布人:步衣互联网 公布時间:2017年十月2七日 已被访问 次 % Server.ScriptTimeOut=950 %
%
Dim startime,conn1,conn2,connstr1,connstr2,db1,db2
startime=timer()
db1="Data\cj_Data.mdb" '数据信息库1
db2="cnhwwdata\##buyiwangluo@#.mdb" '数据信息库2
on error resume next '试着连数据信息库,一直至请求超时,但能够提升SQL引入过虑
connstr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath(db1)
connstr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath(db2)
set conn1=server.createobject("ADODB.CONNECTION")
set conn2=server.createobject("ADODB.CONNECTION")
conn1.Open connstr1
conn2.open connstr2 Dim rs1,rs2,r3
Set Rs1 = Conn1.Execute("Select * From SK_Article")
Do While Not Rs1.Eof   Set rs3=Conn2.Execute("Select * from ssort where nclassid=" rs1("ClassID"))
  Rs2("anclassid") = rs3("anclassID")'大频道ID=SpecialID,得写个获得
  rs3.Close
  Set rs3=nothing   Rs2("huiyuanjia") = rs1("Author")'创作者=价钱
 Rs2.Update
Rs1.MoveNext
Loop
Response.Write "实际操作取得成功"
Response.End
%


在线客服

关闭

客户服务热线
4008-888-888


点击这里给我发消息 在线客服

点击这里给我发消息 在线客服