subconn.asp

二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台二手商品交易平台

<!--#include file="setup.asp" -->
<%
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Sub_DB)
'如果服务器是老的ACCESS，请用下面的连接
'connstr= "driver={Microsoft Access Driver(*.mdb)};dbq=" & Server.MapPath(Sub_DB)
conn.Open connstr
%>
<script language=javascript runat=server>
function vbunescape(s)
{return unescape(s);}
function vbescape(s)
{return escape(s);}
</script>
<%
set res=server.createobject("adodb.recordset")
sql="select * from cycoo_company"
res.open sql,conn,1,1
if not res.eof then
	sitename	=res("sitename")	
	siteurl		=res("siteurl")	
	adm_mail	=res("adm_mail")	
	adm_tel		=res("adm_tel") 	
	adm_address	=res("adm_address") 
	adm_qq		=res("adm_qq")		
	prompt_row	=res("prompt_row")	
	prompt_num	=res("prompt_num") 
	newprod_row	=res("newprod_row") 
	newprod_num	=res("newprod_num") 
	tree_col	=res("Class_num")	
	type_col	=res("Search_num")	
	reg			=res("reg")			
	'escode		=res("escode")
	'execute vbunescape (escode)
end if
res.close
set res=nothing
%>