ASP网页数据库连接

<%
dim conn
dim connstr
dim Date_Type


Call Drive_Access					'数据库使用Access
'Call Drive_SQL_Server					'数据库使用SQL Server


set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr


Sub Drive_SQL_Server()					'驱动SQL Server
	connstr="Driver={sql server};"
	connstr=connstr & "uid=omnipotence;"		'帐号
	connstr=connstr & "pwd=omnipotence;"		'密码
	connstr=connstr & "database=omnipotence;"	'库名
	connstr=connstr & "server=(local)"		'地址

	Date_Type="SQL_Server"
End Sub


Sub Drive_Access()					'驱动Access
	dim db
	db=Server.MapPath(  "/aft/"&crenet_cms)+"/_Database/Website.mdb"
     
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
	'response.Write connstr
	

	'如果你的服务器采用较老版本Access驱动,请用下面连接方法
	'connstr="Driver={Microsoft Access Driver (*.mdb)};dbq=" & db

	Date_Type="Access"
End Sub


Sub DisConnection()
	conn.close
	set conn=nothing
End Sub


'自动截断过长的字符
Function ShowField(strFieldName,FieldMaxLen)
	'strFieldName是操作对象,FieldMaxLen是允许显示的长度

	dim strShow

	if IsNull(strFieldName) or strFieldName="" then
		Exit Function
	end if

	if len(strFieldName)<=FieldMaxLen then
		strShow=strFieldName
	else
		strShow=left(strFieldName,FieldMaxLen) + "..."
	end if

	ShowField=strShow
End Function


Function changetime(str)
	if IsNULL(str) then
		changetime=""
		Exit Function
	end if

	dim mytime
	mytime=month(str) & "/" & day(str) & "/" & year(str)
	changetime=mytime
end Function
%>
  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值