config.asp

ASP+SQL Server动态网站开发从基础到实践教程

<%

'声明变量
Dim varDB, varMyDomain, varDate, varMessage, varUsername, varUsername2, varUserID, varUser2ID, varLogoff, varStyle, varColour, varSwearStatus, varPMRand, conn, rs, varSQL, varTime, varRooms, varIdleTime, varIdle, varLastPost, i

'采用SQL Server的连接语句
'varDB = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=chat"

'采用ACCESS数据库的连接语句

varDB =server.mappath("../natterchat11.mdb")


'初始化时间变量,记录当前时间
varDate = now()

'错误提示函数
Function TrapError
	response.write "错误产生!"
End Function

'打开数据库函数
Sub openDB
	set conn=Server.CreateObject("ADODB.Connection")
	'
	conn.Provider="Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=natterchat"
	conn.Open varDB
	set rs=Server.CreateObject("ADODB.recordset")
End Sub

'关闭数据库
Sub closeDB
	rs.close
	conn.close
	Set rs = Nothing
End Sub


'执行SQL语句
Sub writeDB(varSQL)
	set conn=Server.CreateObject("ADODB.Connection")
	'accerss数据库加了密码,因此需要输入密码natterchat
	conn.Provider="Microsoft.Jet.OLEDB.4.0; Jet OLEDB:Database Password=natterchat"
	conn.Open varDB
	conn.Execute(varSQL)
	conn.close
	Set conn = Nothing
End Sub

'打开数据库
call openDB
varSQL = "SELECT * FROM SETUP;"
rs.open varSQL, conn
if rs.EOF then
	'打开setup表,如果为空,则提示错误
else
	varIdleTime = rs("IdleTime") '获得未操作自动退出时间
	varKickOutTime = rs("KickoutTime")  '获得被踢后离开的时间
end if
call closeDB
%>