网胜批量添加广告

五 9th, 2009
发表评论 | Trackback

网胜是一个非常强大的b2b 系统，但是添加广告很麻烦，我写了一个批量添加广告的工具。把该工具防止到database目录，用http访问即可。WebsenElecommerce.asp为accsee数据库 名。

< %
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("WebsenElecommerce.asp")
 
'index[1-10]
 
'trade[1-6]
'seller[1-6]
'com[1-6]
'prduct[1-6]
'expr[1-6]
'job[1-6]
'men[1-2]
 
 
sub pagead(pagen,pagename)
	addad pagen&"_1",110,80,"/Uploadfile/AD/58947179.gif",pagename
	addad pagen&"_2",110,80,"/Uploadfile/AD/58501753.gif",pagename
	addad pagen&"_3",110,80,"/Uploadfile/AD/58560214.gif",pagename
	addad pagen&"_4",110,80,"/Uploadfile/AD/58630553.gif",pagename
	addad pagen&"_5",654,90,"/Uploadfile/AD/4422441.gif",pagename
	addad pagen&"_6",285,90,"/Uploadfile/AD/58293163.jpg",pagename
end sub
 
sub addad(adid,adwidth,adheight,imgurl,pagename)
	runsql "insert into Websen_ad(adid,adType,adsrc,adwidth,adheight,adlink,adalt,adstopdate,Which_mod,which_page,addate) values('"&adid&"',1,'"&imgurl&"',"&adwidth&","&adheight&",'http://www.lyjzjx.com','建筑工程机械网','"&date()+365&"',1,'"&pagename&"',365)"
end sub
 
sub runsql(sql)
	conn.execute(sql)
end sub
 
pagead "trade","我要采购"
pagead "seller","我要销售"
pagead "com","公司库"
pagead "prduct","产品库"
pagead "expr","展会服务"
'pagead "job","人才招聘"
'pagead "men","商业资讯"
response.write "批量添加广告成功"
%>
标签:
  1. 入党申请书
    七 9th, 200915:20
    回复 | 引用 | #1

    很实用