% strCurrMenu=GetVariable("mnid") if GetVariable("id")="" then ShowMsg "You visted information can't being!" end if '新闻阅读次数+1 conn.execute "Update web_news Set nHits=nHits + 1 Where id=" & GetVariable("id"),0,1 '读新闻 strSQL="Select * From v_web_news Where id=" & GetVariable("id") rs.open strSQL,conn,1,1 if rs.recordcount<=0 then ShowMsg "没有可内容!" end if %>
|
|
|||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
|
||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||
|
|
|
|
|
|||||||||||||||||||||||||||||||||||