<!--#include file="db.Asp" -->
<%
'*******************************************************
'易达CMS中小企业快速建站系统
'软件开发 黑龙江省世纪伟成网络科技有限公司
'网址：http://yidacms.com
'软件享有著作权，未经公司或开发者同意禁止更改以下代码。
'*******************************************************
Dim dbok
Dim vipzhnewslist,vipzhproductslist,vipennewslist,vipenproductslist
Dim o,sw_dizhi,dburl
Dim laifang,temp,foor,language
Dim zanwuchanpin,zanwuxinwen,zanwuflash,zanwugeichanpinfenlei,zanwufenlei,fanhuishangyiye,sheweishouye,shoucangbenzhan
Dim newVersionurl,Copyright
Dim Yida_u,Yida_n
Dim admintemplate,adminuser,adminpass,shuaiweb,jishifont,jishi,yilogo
On Error Resume Next
Set rs=Server.CreateObject("Adodb.Connection")
dbok="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(dburl)
rs.open dbok

	If Err Then
		err.Clear
		Set rs = Nothing
		Response.Write "数据库连接出错！请检查inc/db.asp"
		Response.End
	End If

set rs = server.createobject("adodb.recordset")
sql="select * from shuaiweb_system,viplist"
rs.open sql,dbok,1,1

	sw_dizhi = rs("weburl")
	sw_webtitle = rs("webtitle")
	co_name = rs("cotitle")
	sw_gongsidizhi = rs("coaddress")
	sw_dianhua=rs("tel")
	sw_yidongdianhua=rs("wait_yi")
	sw_chuanzhen=rs("fax")
	sw_qq=rs("qq")
	sw_lianxiren=rs("msn")
	sw_beian=rs("beian")
	sw_youxiang=rs("email")
	sw_youbian=rs("zip")

vipnewslist = rs("vipzhnewslist")
vipproductslist = rs("vipzhproductslist")
vipzhphotolist = rs("vipzhphotolist")
rs.Close
set rs=nothing

function nbq(xx,yy)
set reg=new regexp
reg.IgnoreCase = False 
reg.Global = True 
reg.pattern=""&yy&"=([a-zA-Z0-9_]+)"
set matches=reg.execute(xx)
for each match in matches
aa=match.submatches(0)
next
nbq=aa
end Function
%>