%
'if session("tjau")<>1 then
'set conn=Server.Createobject("adodb.connection")
'conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("count.MDB")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("count.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1
set rs=server.CreateObject("adodb.recordset")
sql="select * from item"
rs.open sql,conn,1,3
rs.addnew
rs("date")=now()
rs("ip")=request.servervariables("remote_addr")
rs.update
rs.close
set rs=nothing
set rs1=server.CreateObject("adodb.recordset")
sql1="select visiter from visiter "
rs1.open sql1,conn,1,3
count=rs1("visiter")
sql2="update visiter set visiter=visiter+1"
rs1.close
set rs1=nothing
conn.execute(sql2)
conn.close
set conn=nothing
'session("tjau")=1
'end if
%>
天津农学院图书馆
 |
|
|
|
|
|
|
|
|
天津农学院图书馆技术部
(天津市西青区津静路22号 邮编:300384
) |