El programa ASP del Foro Dongwang se ha convertido, hasta cierto punto, en el pináculo del ASP. El código de la copia maestra es el siguiente:
<%@LANGUAGE=VBSCRIPT%>
<%
opción explícita
hora de inicio tenue, hora de finalización, conexión, strCon, db
tiempo de inicio=temporizador()
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBContraseña
Dim strSQLDBName
'Por favor complete los parámetros específicos de la base de datos.
'------------------------------------------------ - -------------------------------------------------
strSQLServerName = 127.0.0.1 'Nombre o dirección del servidor
strSQLDBUserName = sa 'Cuenta de base de datos
strSQLDBPassword = 123 'Contraseña de la base de datos
strSQLDBName = bbsbak 'Nombre de la base de datos
'------------------------------------------------ - -------------------------------------------------
'Controlador OLE de SQL Server
Establecer conexión = Server.CreateObject(ADODB.Connection)
strCon = Proveedor=SQLOLEDB;Servidor= & strSQLServerName & ;ID de usuario= & strSQLDBUserName & ;Contraseña= & strSQLDBContraseña & ;Base de datos= & strSQLDBName & ;
conn.Abrir strCon
función CerrarBase de Datos
Conex.cerrar
Establecer conexión = Nada
Función final
%>