dataconn.asp

谢你使用我们的MLM双轨制直销系统,你正在使用的是免费版

<%
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	
	Server.ScriptTimeout=1200
	DBPath = Server.MapPath("mlmdb/#mlm.mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=;dbq=" & DBPath
	
	'conn.open "provider=sqloledb;data source=10.1.9.66;uid=sa;pwd=;database=GuestBook"

	conn.CursorLocation = adUseClient
	
	 mm=month(now)
	  if mm<10 then
	 	mm="0" & mm
	 end if
	 dd=day(now)
	 if dd<10 then
	 	dd="0" & dd
	 end if
	 thistoday = year(now)&"-"& mm &"-"& dd

%><!--#include file="fun.asp"-->