1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
<% @ LANGUAGE="VBSCRIPT" EnableSessionState = False %>
<%Option Explicit
Response.Buffer = True
Response.Cachecontrol = "no-cache"
%><html>
<head>
<title>dbGrid: administrador completo</title>
<style type="text/css">
body { font-family: Arial, sans-serif}
a { color:#FFF0A8; text-decoration: none}
a:hover { color: #F8C8F0; text-decoration: underline}
input, select, textarea { font-size: 11px; font-family: Verdana, Arial, sans-serif}
</style>
</head>
<body bgcolor='#305478' text='#EEEEEE' topmargin='8'>
<!--#include file="dbgrid.asp" -->
<center>
<div style="padding:8px; letter-spacing:2px; font-size:16px; font-family: Verdana, Arial, sans-serif">
<a href="<%=Request.ServerVariables("SCRIPT_NAME")%>"><b>Administrar Bases de Datos</b></a></div>
<%
Dim oDb
Set oDb = new dbGrid
oDb.Carpeta = Server.MapPath("../../data/ejemplos/")
oDb.GrAdd = true
oDb.GrDel = true
oDb.GrEdit = true
oDb.GrCampos = true
oDb.GrTbl = true
oDb.GrRes = true
oDb.GrBusca = true
oDb.GrOrden = true
oDb.VerTipos = true
oDb.GrWidth = 760
oDb.Colors = Array("80888A","FFFFEE","4477AA","FFFFFF","485058","406460","644860","885566")
oDb.Activar
set oDb = nothing
%>
</center>
</body>
</html>
|