仿静态的问题
我想把网页转成仿静态的,但是转换以后文章点击数记录不会增加
大家给我看看是哪里不对了
<%
'获取id
wen=request.QueryString("id")
If wen="" Then
server_v40=Request.ServerVariables("QUERY_STRING")
wen=Int(replace(replace(server_v40,"/",""),".html",""))
End If
'设置本文地址
a=request.servervariables("server_name")
b=request.servervariables("script_name")
%>
<%
'文章点击率增加
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&wen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
