<% '------------------------------------------------------------------------------ ±âº»¼³Á¤ Call DB_Set( Conn, rs) '------------------------------------------------------------------------------ ±âº»¼³Á¤ End '------------------------------------------------------------------------------ Request strConnip = Request.Servervariables("REMOTE_ADDR") response.write strConnip Conn.BeginTrans ' Æ®·»Á§¼Ç ½ÃÀÛ SQL1=" insert into TBL_MEMCOMMULOGIN_COUNTER(B_MNO,B_IDNO,B_NAME,B_DATE,B_CONNIP,B_COMM) "&_ " values ("& Session("No") &",'"&Session("idno")&"','"&Session("Name")&"',getdate(),'"&strConnip&"','jsj2004' )" response.write SQL1 'response.END Conn.Execute( SQL1 ) Conn.CommitTrans ' Æ®·»Á§¼Ç ³¡ '@@@@@@@@@@@@@@@@@@@@@@@@@@ Ä«¿îÅÍ¿¡ Ãß°¡ sql2 = "select count(B_IDNO) from TBL_COMMUGILOGIN_COUNTER where convert(char(8),B_DATE,112) = '" & Get_now & "' and B_IDNO = "&Session("idno")&" and B_COMM='jsj2004' " response.write SQL2 set rs = Conn.Execute(sql2) 'response.write sql 'response.write rs(0) 'response.flush If rs(0) = "0" Then sql2_1 = "insert into TBL_COMMUGILOGIN_COUNTER(B_DATE, B_IDNO, B_LCOUNT,B_COMM) "&_ " values(getdate(),"&Session("idno")&", 1,'jsj2004')" Conn.Execute( sql2_1 ) else sql2_2 = "update TBL_COMMUGILOGIN_COUNTER "&_ " set B_LCOUNT = B_LCOUNT + 1 "&_ " where convert(char(8),B_DATE,112)= '" & Get_now & "' and B_IDNO = "&Session("idno")&" and B_COMM='jsj2004'" Conn.Execute( sql2_2 ) end if '@@@@@@@@@@@@@@@@@@@@@@@@@@ Ä«¿îÅÍ ³¡ '------------------------------------------------------------------------------ Login Check End Call DB_Not( Conn, rs) response.redirect ("/ZZPage/pageview.asp?C=jsj2004") %> New Document DROP TABLE TBL_MEMCOMMULOGIN_COUNTER GO CREATE TABLE TBL_MEMCOMMULOGIN_COUNTER (B_SEQ INT IDENTITY (1, 1) NOT NULL , B_MNO INT NULL, B_IDNO INT NULL, B_NAME VARCHAR(30) NULL, B_DATE DATETIME NULL, B_CONNIP VARCHAR(30) NULL, B_COMM VARCHAR(30) NULL, CONSTRAINT PK_TBL_MEMCOMMULOGIN_COUNTER PRIMARY KEY (B_SEQ) ) GO DROP TBL_COMMUGILOGIN_COUNTER GO CREATE TABLE TBL_COMMUGILOGIN_COUNTER (B_SEQ INT IDENTITY (1, 1) NOT NULL , B_DATE DATETIME NULL, B_IDNO INT NULL, B_LCOUNT INT DEFAULT 0 , B_COMM VARCHAR(30) NULL, CONSTRAINT PK_TBL_COMMUGILOGIN_COUNTER PRIMARY KEY (B_SEQ) ) GO