<%@ codepage ="936" %>
<%
dim sql,rs,id
if not isEmpty(request("id")) then
id=request("id")
else
id=1
end if
strSQL="update qyml set click=click+1 where id="+cstr(id)+""
conn.Execute strSQL
set rs=server.createobject("adodb.recordset")
sql="select * from qyml where id="+cstr(id)+""
rs.open sql,conn,1,1
%>
<% if rs.eof or rs.bof then
response.write""
end if %>
中国凤凰山
