dataconn.asp

来自「mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。」· ASP 代码 · 共 24 行

<%
	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"-->