<%@ LANGUAGE="VBSCRIPT" %>
<%
DbPath = SERVER.MapPath("../database/topboy-2002.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
%>
<%
set rs=server.createobject("adodb.recordset")
id=Request("id")
conn.execute("update topboy_message Set Click=click+1 where id=" & id )
sql="select * from topboy_message where id=" & id
rs.open sql,conn,1,1
click=rs("click")
%>
<%
if request("mtype") <> "" then
session("mtype") = request("mtype")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from topboy_message where ccur(id) = '"&request("id")&"'"
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
%>
更多>>>