Recommandé: code de programme de lecteur vidéo Web Code général Lors de la création d'un programme pour le client, j'ai soudainement rencontré un problème, c'est-à-dire que lorsque l'utilisateur de la page du produit a soumis un fichier de lecture vidéo, comment lire le format vidéo correct dans l'URL soumis ... J'ai été déprimé pendant un certain temps et j'ai pensé à l'idée, puis j'ai commencé à le faire ... l'idée est d'obtenir le type de fichier en premier,
Tout d'abord, utilisez l'accès pour créer une nouvelle base de données , définissez le nom sur Luntan, le nom de la table de données sur des informations, créez les champs suivants: texte, nom, temps et définir la valeur par défaut du temps vers maintenant
| Ce qui suit est le contenu cité: <% Set com = server.createObject (adodb.connection) com.opendriver = {Microsoft Access Driver (Luntan.mdb); pwd = information; dbq = & server.mappath (Luntan.mdb) SQL = SELECT * à partir de l'ordre d'information par le temps DESC Set rs = server.createObject (adodb.reCordest) Rs.Open SQL, com, 3,2 Si Rs.Eof ou Rs.Bof alors réponse.write aucun commentaire autre Rs.MoveFirst Bien que ce ne soit pas Rs.Eof. Response.Write RS (nom) et publié sur & rs (temps) & <br> Response.Write RS (texte) & <br> <hr> Rs.MovEnext se promener Absoluteposition = n, (n = 1,2,3 ......) terminer si %> Ensuite, la section de rédaction de messages de l'utilisateur. Supposons que la page du forum est des informations.asp, puis <formulaire méthode = post-action = information.asp> Nom: <entrée type = Text Taille = 12 name = nom> <br> Laissez un message: <TextArea cols = 30 row = 4 name = text> </ textarea> <br> <Type d'entrée = soumettre une valeur = soumettre> </ form> |
La dernière partie consiste à enregistrer les données de formulaire soumises par l'utilisateur dans la base de données,
Ce qui suit est le contenu cité: <% Si demande (texte) <> vide et demande (nom) <> vide alors SET CEUP = Server.CreateObject (ADODB.Connection) Cob.OpenDriver = {Microsoft Access Driver (*. MDB)}; PWD = Information; Dbq = & server.mappath (luntan.mdb) SQL = SELECT * à partir d'informations SET RSB = Server.CreateObject (ADODB.RecordSet) rsb.open sql, peigne, 3,2 RSB.AddNew RSB (texte) = demande (texte) rsb (nom) = demande (nom) RSB.Update terminer si %> |
Partager: deux conceptions de comptoirs de visiteur intéressants En tant que partie indispensable du site Web, le compteur des visiteurs peut non seulement enregistrer le nombre de fois où le site Web est visité, mais aussi améliorer le plaisir et la vision de la page Web grâce à une conception vive et intéressante, faisant du compteur des visiteurs un paysage sur la page Web. Voici deux plaisir de conception facile