config.asp

来自「使用asp+sql编写的的各种程序案例」· ASP 代码 · 共 55 行

<%


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

'On Error Resume Next



varDB = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=chat"

'System wide date variable
varDate = now()
'Declare the subroutines for opening, closing and writing database, this minimises code in pages
Function TrapError
	response.write "There has been an error!"
End Function

Sub openDB
	set conn=Server.CreateObject("ADODB.Connection")


	conn.Open varDB
	set rs=Server.CreateObject("ADODB.recordset")
End Sub

Sub closeDB
	rs.close
	conn.close
	Set rs = Nothing
End Sub

Sub writeDB(varSQL)
	set conn=Server.CreateObject("ADODB.Connection")
	
	
	conn.Open varDB
	conn.Execute(varSQL)
	conn.close
	Set conn = Nothing
End Sub

'The database has setup stuff, like idle time and kick out time, these are read here and then added to system wide variables.
call openDB
varSQL = "SELECT * FROM SETUP;"
rs.open varSQL, conn
if rs.EOF then
	'error
else
	varIdleTime = rs("IdleTime")
	varKickOutTime = rs("KickoutTime")
end if
call closeDB
%>