<% '設定變數 BID = ReqNum(Request("BID")) '點閱率+1 SQLStr = "UPDATE TOP_Bulletin SET ClickCount = ClickCount + 1 WHERE AutoID = " & BID conn.Execute(SQLStr) '呼叫DB資料表之資料 SQLStr = "SELECT * FROM TOP_Bulletin WHERE AutoID = " & BID rs.Open SQLStr, conn, 1, 1 If Escape(rs("LUrl")) = "%00" Or rs("LUrl") = "" Then Response.Redirect("bulletin.asp?Count=done&BID=" & BID) Else Response.Redirect(Trim(Chg_ASC(rs("LUrl")))) End If %>