<% @language="vbscript" %><%
response.buffer=true
Response.Expires=0
id=request("id")
side=request("side")
user=request("user")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("xcnews.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From yannews where side='"&side&"' and user='"&user&"' and id="&id, conn,3,3
nCounter=rs("counter")
rs.close
rs.Open "Select * From yannews where side='"&side&"' and user='"&user&"' and id="&id, conn,3,3
ttt=rs("biaoti")
rs("counter")=rs("counter")+1
rs.update
nCounter=rs("counter")
rs.close
%><%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xcnews.mdb")
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 ="SELECT * FROM banner order by ID DESC"
RS2.open sql2,Conn,2,2
Set rs4 = Server.CreateObject("ADODB.Recordset")
sql4 ="SELECT * FROM btsetup order by ID DESC"
RS4.open sql4,Conn,2,2
%>
领 导 致 辞
<%
id=request.querystring("id")
'response.write id
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("xcnews.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From yannews where side='"&side&"' and user='"&user&"' and id="&id, conn,3,3
%>
