会社紹介  サービスのご紹介 |   キャリア  |  主要取引先 推薦書  |  イベント  |  お問い合わせ  |  総合索引  |  English Version 

お客様へ, このページは 800/600 解像度でご覧ください。
<% set conn=Server.createObject("Adodb.Connection") set rs=Server.createObject("ADODB.Recordset") 'connstr="Provider=Microsoft.Jet.oledb.4.0 ; Data Source=" 'connstr=connstr & Server.MapPath(".") &"\count.mdb" connstr="Driver={Microsoft Access Driver (*.mdb)};DBQ=" connstr=connstr & Server.MapPath(".") & "\db\count2.mdb" conn.open connstr updatesql="update countsite set cnt=cnt+1 where id=1" conn.execute updatesql selectsql="Select * from countsite where id=1" rs=conn.execute(selectsql) counter=rs("cnt") set conn=nothing Response.write "このwebsiteは " & counter & " 回 訪問された。" %>
© Copyright Hope Consulting Inc., - 2000-2001

銘柄すべてはそれぞれの会社の登録された商標であります。