Online -Datenbankverwaltungstool DB007 Download: //www.vevb.com/codes/6195.html
Die Codekopie lautet wie folgt:
<!-
'*************************************************
'*verwenden:
'^Verarbeitung von Zugriffs- und SQL -Datenbanken online in der Ansichtsoberfläche
'*Autor: Guan Shijie
'*Creation Datum: 2006-5-28
'*2006-06-04 Die Funktion zur Datenmodifizierung hinzugefügt
'*2006-06-10 fügte die Funktion des Einfügungsdaten in leere Tabellen hinzu
'*2006-09-8 fügte die Funktion zum Ändern des Feldnamens und des Tabellennamens hinzu, um einige Fehler zu korrigieren
'*Führen Sie SQL aus, wenn es ausgewählt wird, gibt es das Ergebnis zurück, andernfalls gibt es das Ergebnis zurück
'*Dieses Programm kann kostenlos verwendet werden. Bitte behalten Sie diese Informationen beim Nachdruck
'*************************************************
->
<html>
<kopf>
<metahttp-äquiv = "content-type" content = "text/html; charSet = gb2312">
<title> Online -Datenbankverwaltungstool DB0071.5 </title>
<Syletyps = "text/css">
<!-
Körper, td, th {Schriftfamilie: "安体"; Schriftgröße: 12px;}
Formular {Margin: 0px; Padding: 0px;}
Body {Margin: 5px; Scrollbar-Arrow-Color:#666666; Scrollbar-Face-Color: #ddddd; ScrollBar-Darkshadow-Color:#999999; ScrollB AR-Highlight-Color: #fffff; Scrollbar-3Dlight-Color: #cccccc; Scrollbar-Shadow-Color: #fffff; Scrollbar-Track-Color: #eeee;}
Eingabe {Grenzbreite: 1px; Grenzstil: Solid; Grenzfarbe:#CCCCCC#999999#999999#CCCCC; Höhe: 16px;}
TD {Hintergrund: #fff;}
textArea {Grenzbreite: 1PX; Grenzstil: Solid; Border-Color:#CCCCC#999999#999999#CCCCCC;}
A: Link {Textdekoration: Keine;}
A: Besucht {Textdekoration: Keine;}
A: Hover {Textdekoration: Unterstreichung;}
A: Active {Text Decoration: Keine;}
.fixspan {width: 150px; weißer Raum: nowrap; Wortbrech: Keep-All; Überlauf: versteckt; Text-Overflow: Ellipsis;}
->
</style>
</head>
<body>
<%
IFREQUEST ("KEY") = "DB" dann
Sitzung ("DBTYPE") = Request ("DBTYPE")
Sitzung ("dbstr") = request ("dbstr")
response.redirect "?"
Endif
IFREQUEST ("KEY") = "Createdatabase" dann
CallCreatedatabase ()
Endif
ifSession ("DBTYPE") = "" Oresession ("dbstr") = "" Dann
%>
<formAction = "? Key = db" method = "post" name = "dbt">
<br>
Verbindungsart:
<inputName = "dBType" type = "radio" value = "access" onclick = "dbstr.value = 'provider = microsoft.jet.oledb.4.0; PersistSecurityInfo = false; password; password =; dataSource = <%= server.mappath ("/") &"%> "" "" "" "