<%@ CodePage=65001 Language="VBScript"%> <% strProviderName = "Provider=Microsoft.Jet.OLEDB.4.0;" strServerRootPath = server.mappath("/") strDataBaseFile = "db\news.mdb;" strDataConnection = strProviderName & "Data Source=" & strServerRootPath & strDataBaseFile ' response.write strDataConnection ' response.end strNewsId =request.querystring("newsId") if (strNewsId = "") or (Not IsNumeric(strNewsId)) then response.end end if dim cmd ,rs set cmd = Server.CreateObject ("ADODB.Command") cmd.ActiveConnection = strDataConnection cmd.CommandText ="SELECT count(*) as intRecordCount FROM tblNews WHERE id=" & strNewsId set rs = cmd.Execute() intRecordCount = cInt(rs.fields("intRecordCount")) if cBool(intRecordCount) then ' response.write ("

" & rs.fields("intRecordCount") & "

") cmd.CommandText ="SELECT id, strTitle, strBody, Image_Container FROM tblNews WHERE id=" & strNewsId set rs = cmd.Execute() end if %> محصولات لابراتورهاي كسپرسكي internetsecurity

Kaspersky Internet Security 6.0

یک راه حل کامل است بطوریکه کامپیوتر شما را دربرابر تهدیدات اینترنتی شامل ویروسها، حملات هکرها، اسپم و Spyware محافظت می کند.
امروزه، کامپیوترهای شخصی بطور چشمگیری با تهدیدات ترکیبی مواجه هستند و اصطلاحاً"حملات زیر زمینی" در هنگام اتصال به اینترنت در حال رشد روزافزون است. لذا، راه حل ضد ویروسی به تنهایی توان محافظت از سیستم شما را ندارد.
این محصول حاوی آخرین تکنولوژیهای پیشرفته لابراتوار کسپرسکی جهت محافظت دربرابر کدهای مخرب، حملات شبکه و جلوگیری از اسپم می باشد. کلیه اجزاء محصول جهت جلوگیری از تداخلهای سیستم و اطمینان از عملیات سریع کامپیوتر شما با هم مجتمع شده اند.

اطلاعات بیشتر درباره جایزه PCWorld
.

خريد online

نسخه هاي آزمايشي