<%'============================================================ ' Copyright 2007-09 燃点真情. All Rights Reserved. ' Last Update: 2008-3-22 13:28 ' ADD:wap.nowtx.cn ' E-Mail: xivn@163.com QQ:531233814 '============================================================ %> <%Call Head() Server.ScriptTimeout=999 dim id,objgbrs,ssql id=Request("id") if id="" or IsNumeric(id)=False then Call Error("

ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from gogo Where id=" &id,conn,1,1 if not (rs.bof and rs.eof) then id=rs("id") url=ubb(rs("url")) conn.Execute("update gogo set tid=tid+1 Where id=" & id) end if rs.close set rs=nothing conn.close set conn=nothing %>

正在进入...
点击进入