<%
'示例：ASP连接Access数据库，无密码连接

DBPath=Server.MapPath("myData.mdb")    '数据库存放路径
Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath     '连接字符串
Set conn = Server.CreateObject("ADODB.Connection")    '新建一个连接 
conn.open Strconn

'**********

'判断是否是要求回复留言
dim writeMsg,num,reinfo
writeMsg=Request("writeMsg")
num=Request("num")
reinfo=Request("reinfo")
if writeMsg="yes" then
    
    'Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询
    'strSQL="SELECT * FROM tblMSG where wTime=" & rtime        '查询的SQL语句
    'rs.Open strSQL,conn,1,1    

    'strSQL="INSERT INTO tblMSG(ID,User,IPAddress,wTime,Info) VALUES('"&num&"','"&user&"','"&ip&"','"&writetime&"','"&info&"')"

    strSQL="update tblMSG set Other='" & ""&reinfo&"' where ID=" & ""&num&""
    conn.execute strSQL
    
    Response.Write ("&writeResult=finish")
        
    'rs.close
    set rs=nothing
end if
'**********

'判断是否是要求显示前一条记录
dim prev,previdnum
prev=Request("prev")
previdnum=Request("previdnum")
if prev="yes" then
    if previdnum=1 then 
        previdnum=1
    else
        previdnum=previdnum-1
    end if
    
    Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询
    strSQL="SELECT * FROM tblMSG WHERE ID=" & previdnum        '查询的SQL语句
    rs.Open strSQL,conn,1,1        '执行查询
    
    Response.Write "&id="&rs("ID") & "&user="&rs("User") & "&ip="&rs("IPAddress") & "&time="&rs("wTime") & "&info="&rs("Info") & "&other="&rs("Other")
 
    Response.Write ("&previousResult=finish")
    
    rs.close
    set rs=nothing
end if

'判断是否是要求显示下一条记录
dim nextmsg,nextidnum
nextmsg=Request("nextmsg")
nextidnum=Request("nextidnum")
if nextmsg="yes" then
    if nextidnum="" then
        nextidnum=1
    else
        nextidnum=nextidnum+1
    end if
    
    Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询
    strSQL="SELECT * FROM tblMSG WHERE ID=" & nextidnum        '查询的SQL语句
    rs.Open strSQL,conn,1,1        '执行查询
    
    Response.Write "&id="&rs("ID") & "&user="&rs("User") & "&ip="&rs("IPAddress") & "&time="&rs("wTime") & "&info="&rs("Info") & "&other="&rs("Other")
 
    Response.Write ("&nextResult=finish")
    
    rs.close
    set rs=nothing    
end if


conn.close
set conn=nothing

%>