<%
'=====CREATE A CONNECTION OBJECT FOR SHARE ANY PROGRAM WILL TO CONNECTIVITY DATABASE.=====
Dim conn 'HOLDS THE CONNECTION OBJECT FOR THE MS-SQL DATABASE
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={SQL Server};Server=localhost;Database=EXIM;Uid=sa_exim;Password=sa_exim;"
%>
default
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
 |
 |
|
 |
 |
|
 |
|
 |
 |
 |
 |
 |
 |
 |
|
 |
 |
 |
|
 |
|
 |
 |
|
 |
 |
|
 |
|
 |
 |
|
<%
if session("onlineuser") = "" OR session("onlineuser") = empty then
Set rs = server.createobject("ADODB.RecordSet")
SQL = "SELECT usrcount FROM usercount WHERE id=1"
rs.Open SQL,conn,1,3
session("onlineuser") = rs("usrcount") + 1
rs.close
Set rs2 = server.createobject("ADODB.RecordSet")
SQL2 = "UPDATE usercount SET usrcount = "& session("onlineuser")
conn.execute(SQL2)
end if
%>
| |
|
 |
 |
 |
|
 |
 |
|
 |
|
