www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > conn.asp

    <%
'--------------------------------------------------------------
 Dbname = "data/data.asp"          '更改数据库文件位置，强烈建议更改为.asp的文件！
 Set Conn = Server.CreateObject("ADODB.Connection")
 Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(Dbname)
 Conn.Open Connstr


'------------------------------------------------------------
 Set List = Conn.Execute("Select * From System")
 WebName = List("WebName")
 WebUrl = List("WebUrl")
 webemail = List("webemail")
 zzname = List("zzname")
 qq = List("webqq")

%>