%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim dbid
dim sql
dbid=request("id")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from HN_news where id="&dbid
rs.open sql,conn,1,3
rs("hotclick")=rs("hotclick")+1
rs.update
demo=replace(rs("demo"),chr(10)+chr(13),"
")%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||