Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: ASP Добавлено: 16.12.02 19:14  

Автор вопроса:  Mister U | Web-сайт: stihi.h12.ru | ICQ: 809526 

Надо бы сделать такую фишку, как на этом сайте в разделе "Ссылки на VB сайты". Там стоит счетчик для каждой ссылки.

Ну вот, со страничкой ссылок я разобрался, все класс! Передаю ID номер страничке showlink.asp:

showlink.asp?id=номер

Код странички showlink.asp:

<%@ Language=VBScript %>
<%
Dim dsn, Conn
dsn="DBQ=" & Server.Mappath("data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.BeginTrans
RS.Open "rec", conn, 3,3

dim id
id=Request("id")
rs.find = "Select * From guest Where id = " & id
rs.Fields("id") = rs.Fields ("id") + "1"

Rs.pdate
Conn.CommitTrans
RS.Close
Conn.Close
%>

КАК СДЕЛАТЬ ЭТОТ СЧЕТЧИК??? КОД, КОТОРЫЙ ВЫШЕ, НЕ РАБОТАЕТ!

+ еще один вопрос. Как осуществить перессылку средствами ASP? Это нужно для того, чтобы переслать пользователя по ссылке, взятой из БД

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Иван



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 16.12.02 19:58

Я делаю так:

    url=Request("url")
    curDir = Server.MapPath("data\links.mdb")
    Set oConn = Server.CreateObject("ADODB.Connection")
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
    sSQL = "UPDATE Links SET Hits=Hits+1 WHERE url='" & url & "';"
    oConn.Execute sSQL
    oConn.Close
    Set oConn = Nothing   
    Response.Redirect url

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам