<% Session.CodePage=65001 %> <% '生成对象 dim downasp set downasp = new const_cls %> <% response.Charset = 65001 session.CodePage = 65001 Response.Buffer=true Response.Expires=0 %> <% sqlusername = "admin" sqlpassword = "www.wxweb.cn" db="../gl/data_@#$%db/databs.mdb" set conn=server.createobject("adodb.connection") connstr="provider=microsoft.jet.oledb.4.0; user id = " & sqlusername & "; jet oledb:database password = " & sqlpassword & "; data source=" & server.mappath(db) '如果服务器是老的access,请用下面的连接 'connstr= "driver={microsoft access driver(*.mdb)};dbq=" & server.mappath(db) conn.open connstr %> <% '特别说明 'gb=ch 为英文版 'gb=en 为中文版 keys_sql = "select * from keys where k_id=2" set keys_rs = conn.execute(keys_sql) logo=keys_rs("logo") website_name=keys_rs("webname") k_home_copyright = keys_rs("k_home_copyright") k_home_author = keys_rs("k_home_author") k_address = keys_rs("k_address") k_footer = keys_rs("k_footer") k_home_title = keys_rs("k_home_title") k_home_keys = keys_rs("k_home_keys") k_home_content = keys_rs("k_home_content") k_news_title = keys_rs("k_news_title") k_news_keys = keys_rs("k_news_keys") k_news_content = keys_rs("k_news_content") k_pro_title = keys_rs("k_pro_title") k_pro_keys = keys_rs("k_pro_keys") k_pro_content = keys_rs("k_pro_content") k_case_title = keys_rs("k_case_title") k_case_keys = keys_rs("k_case_keys") k_case_content = keys_rs("k_case_content") k_down_title = keys_rs("k_down_title") k_down_keys = keys_rs("k_down_keys") k_down_content = keys_rs("k_down_content") %>