<% server.Execute "/NoHACK1.asp" dim NewsID, rs, strSQL, Errh, URL NewsID = ReqNum(Request("ID")) '---- ¼W¥[ÂI¾\¼Æ strSQL = "UPDATE TOP_Notice SET N_Count = N_Count + 1 WHERE NewsID = " & NewsID Errh = DoCommand(strSQL) strSQL = "SELECT NewsUrl FROM TOP_Notice WHERE NewsID = " & NewsID Set rs = GetRecordset( strSQL ) If Not (rs.BOF and rs.EOF) Then URL = rs(0).value Else URL = "http://world2.gameflier.com/" End If rs.close Set rs = Nothing Response.Redirect URL %>