Recommandé: ASP lit les fichiers texte et les affiche html Head http-equiv = contenu contenu de type = text / html; Charset = GB2312 Titre / Title / Head Body% Language = VBScript%% const Forreading = 1, ForWriting = 2, ForAspending = 8 const TristateUsefault = -2, TristateTrue = -1, Tristatefalse
| <% set rs = server.createObject (adodb.recordSet) db = db.mdb «Changez simplement le nom de la base de données directement et vous verrez l'effet. Définir Conn = Server.CreateObject (ADODB.Connection) Connstr = fournisseur = Microsoft.jet.oledb.4.0; Data Source = & Server.Mappath (DB) Conn.Open Connstr Définir RS = Conn.OpenSchema (20) Faire jusqu'à Rs.Eof Si rs (3) = table alors Nom de la table de réponse. Set rs1 = server.createObject (adodb.recordSet) sql = select * from & rs (2) Définir RS1 = Conn.Execute (SQL) Response.Write Nom du champ: Pour i = 0 à Rs1.fields.Count-1 Response.Write RS1.Fields (i) .Name & Suivant réponse.write <br /> Faire tout en pas Rs1.eof réponse. Pour i = 0 à Rs1.fields.Count-1 t = rs1. champs (i) .name réponse.WRITE RS1 (T) & Suivant réponse. RS1.MoVeNext Boucle réponse. Terminer si Rs.MovEnext Boucle Définir RS = rien Définir Conn = Rien %> |
Partager: Comment utiliser Instrev () pour obtenir des noms de fichiers dans ASP La fonction Instrev commence à partir de la dernière recherche de la chaîne et est la chaîne précédente. % Dim strtxt, pos strtxt = www.webjx.com pos = instrrEv (strtxt ,.) Response.write pos% Le début de notre recherche est dans l'ordre inverse, à partir d'un point avant com. La longueur du caractère de départ, y compris ce point, a dix caractères au total, et le résultat renvoyé sera 9. Pass