Программа ASP форума Dongwang в определенной степени стала вершиной ASP. Код основной копии следующий:
<%@LANGUAGE=VBSCRIPT%>
<%
опция явная
тусклое время начала, время окончания, conn, strCon, db
время начала = таймер()
Тусклое имя strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName
'Пожалуйста, заполните конкретные параметры базы данных
'------------------------------------------------ - -------------------------------------------------
strSQLServerName = 127.0.0.1 'Имя или адрес сервера
strSQLDBUserName = sa 'Учетная запись базы данных
strSQLDBPassword = 123 'Пароль базы данных
strSQLDBName = bbsbak 'Имя базы данных
'------------------------------------------------ - -------------------------------------------------
'Драйвер OLE SQL Server
Установите conn = Server.CreateObject(ADODB.Connection)
strCon = Provider=SQLOLEDB;Server= & strSQLServerName & ;ID пользователя= & strSQLDBUserName & ;Пароль= & strSQLDBPassword & ;Database= & strSQLDBName & ;
conn.Open strCon
функция CloseDatabase
Конн.закрыть
Установить соединение = Ничего
Конечная функция
%>