<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DBConnectionString
sql="select SID from 瀏覽紀錄 where SID='"&session.sessionID&"'"
set rs=conn.execute(sql)
if rs.eof then
sql="insert into 瀏覽紀錄(SID,日期,進入時間) values('"&session.sessionID&"','"&date()&"','"&now&"')"
conn.execute(sql)
end if
%>
MissSofi
_