建站资讯

asp 实现数据导入方法

作者:admin 发布时间:2020-07-31
建设网站之前您需要了解什么? 一个好域名怎么挑选?使用权如何维.. 服务器空间可以先试用再付款吗? 建设网站选个人还是团队或者选公司? 网站产品资料添加技巧方法 为何申请好的邮箱会只能发不能收.. 企业网站建设前:简洁明了的准备方法
asp 实现数据导入方法 所属分类:网站开发资讯 发布人:布衣网络 发布时间:2017年十月27日 已被浏览 次 % 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 Rs2 = Server.CreateObject("ADODB.Recordset")
 Sql2 = "Select * From  products"
 Rs2.Open SQL2,Conn2,1,3,1
 Rs2.Addnew
  Rs2("bookname") = rs1("Title")
  Rs2("bookcontent") = rs1("Content")
  Rs2("bookpic") = rs1("picpath")
  Rs2("liulancount") = rs1("ArticleID")'文章ID=浏览数
  Rs2("kucun") = rs1("ArticleID")+1600'文章ID=产品库存
  Rs2("isbn") = rs1("CopyFrom")'颜色
  Rs2("nclassid") = rs1("ClassID")'小栏目ID,但是前台显示的大类id值   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
%

收缩