adlink.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 53 行

<%
sql="select * from adver where id=1"
set rs=conn.execute (sql)
ad=rs("ad")
ad1=rs("ad1")
ad2=rs("ad2")
url=rs("url")
url1=rs("url1")
url2=rs("url2")
rs.close
set rs=nothing

sql="select * from weblink where id=1"
set rs=conn.execute (sql)
yqjlink1=rs("yqjlink1")
yqjlink2=rs("yqjlink2")
yqjlink3=rs("yqjlink3")
yqjlink4=rs("yqjlink4")
yqjlink5=rs("yqjlink5")
yqjlinku1=rs("yqjlinku1")
yqjlinku2=rs("yqjlinku2")
yqjlinku3=rs("yqjlinku3")
yqjlinku4=rs("yqjlinku4")
yqjlinku5=rs("yqjlinku5")
yqjlinkw1=rs("yqjlinkw1")
yqjlinkw2=rs("yqjlinkw2")
yqjlinkw3=rs("yqjlinkw3")
yqjlinkw4=rs("yqjlinkw4")
yqjlinkw5=rs("yqjlinkw5")
yqjlinkwu1=rs("yqjlinkwu1")
yqjlinkwu2=rs("yqjlinkwu2")
yqjlinkwu3=rs("yqjlinkwu3")
yqjlinkwu4=rs("yqjlinkwu4")
yqjlinkwu5=rs("yqjlinkwu5")
rs.close
set rs=nothing

sql="select web_name,web_url from system_setup where id=1"
set rs=conn.execute (sql)
web_name1=rs("web_name")
web_url1=rs("web_url")
rs.close
set rs=nothing

sql="select phone,fax,email from system_setup where id=1"
set rs=conn.execute (sql)
company_name1=rs("company_name")
phone1=rs("phone")
fax1=rs("fax")
email1=rs("email")
rs.close
set rs=nothing
%>