Chaque fois que j'écris le système, je dois me connecter au programme, ce qui le rend extrêmement gênant. En fait, nous pouvons faire plusieurs modules fonctionnels couramment utilisés dans les fonctions de vérification de connexion. Alors, quels sont les nombreux modules fonctionnels couramment utilisés dans ASP? Jetons maintenant un coup d'œil à l'introduction de modules fonctionnels couramment utilisés de l'ASP.
[code]
<%
Fonction chk_regist (requestname, requestpwd, tableName, namefield, pwdfield, reurl) dim cn_name, cn_pwdcn_name = trim (request.form ("" & requestname & "")) cn_pwd = trim (" thenSesponse.write ("<script linguisse = javascript> alert (" "Veuillez remplir le mot de passe du compte entièrement, merci pour votre coopération." "); historique.go (-1) </cript>") fini ifset rs = server.createObject ("Adodb.recordSet") sql = "select * from" & TableneName "WHERE où "& namefield &" = '' "& cn_name &" '' "Rs.open SQL, Conn, 1,1if Rs.Eof thenResponse.write (" <Script Language = JavaScript> alert ("" Non Ce membre ID Session ("cn_name") = rs ("" & namefield & "") Response.redirect (reUrl) ElSeResponse.Write ("<Script Language = JavaScript> Alert (" "Rappel, votre compte et le mot de passe ne correspondent pas.
[code]
Description du paramètre:
chk_regist (requestname, requestpwd, tablename, namefield, pwdfield, reurl)
Le nom de demande est le nom de contrôle d'entrée qui accepte le nom entré dans la page HTML.
RequestPwd est le nom du contrôle d'entrée qui accepte le mot de passe entré dans la page HTML.
TableName est le nom du tableau qui enregistre les informations d'enregistrement dans la base de données
NameField est le nom de champ qui stocke le nom d'utilisateur dans ce tableau d'informations
PWDField est le nom de champ du mot de passe de l'utilisateur dans ce tableau d'informations
reurl est la page qui saute après la connexion correcte
Les exemples de citation sont les suivants:
<% Call chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. Il est souvent possible de juger l'état actuel de quelque chose, généralement un champ (type numérique, la valeur par défaut est 0)
L'effet de la commutation d'état est réalisé en modifiant la valeur de ce champ. J'ai donc fait une autre fonction pour me faciliter la tâche.
<% Fonction Pvouch (TableName, FildName, AutoidName, indexId) dim filterValueset rs = server.createObject ("Adodb.recordSet") SQL = "SELECT * FROM" & TableName & "WHERE" & AutidName & "=" & indexIDRS.Open SQL, Conn, 2,3fildValue = RS ("" & Fildname ")") ") filterValue = 0 theNfildValue = 1ElSefildValue = 0end ifrs ("" & fildname & "") = fildvaluers.updaters.close set rs = rien la fonction%>
Description du paramètre:
Pvouch (TableName, FildName, AutoidName, indexID)
Nom de la table de nom dans la base de données où se trouve la chose
Filmname Cette chose est utilisée pour indiquer le nom de champ de l'état (le type de champ est numérique)
Nom de numérotation automatique d'AutoidName dans ce tableau
indexID est utilisé pour modifier la valeur numérotée automatique correspondante de l'état
Les exemples de citation sont les suivants:
<% dowhat = request.querystring ("dowhat") p_id = cint (request.querystring ("p_id")) if dowhat = "tj" et p_id <> "" thencall pvouch ("cn_products", "p_vouch", "p_id", p_id) fini if%> puis% >> recommandé <% else% >> annuler la recommandation <% fin si%>
3. Écrivez des sites Web pour de nombreuses petites et moyennes entreprises. Généralement, l'affichage des produits est un grand projet, donc les pages fabriquées sont différentes.
Soit quelques-uns sont disposés horizontalement, soit quelques-uns sont disposés verticalement, soit même une station entière doit lancer et se tourner plusieurs fois, ce qui est très gênant et fatigant.
Écrivez simplement une fonction pour le soulager, donc c'est devenu le suivant
<% fonction showpros (tableName, topnum, fildname, loopnum, typepenum) set rs = server.createObject ("adodb.recordset") sql = "select top" & topnum & "* from" & tablenames.open sql, Conn, 1,1if rs.eof et rs.bof thenresponse.write ("no record at the the the Moment ") ElSeResponse.Write (" ") pour i = 1 à Rs.RecordCountIF (i mod loopnum = 1) thenResponse.write" "end ifSelect Case tyPenumcase" 1 "réponse.write (" ") Réponse.Write (RS (" "" & Fildname & "")) Réponse.Write ("'"""mée aller "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ") Response.Write (" ") end SELECTIF (i mod loopnum = 0) thenResponse.write" "end ifrs.movènextnextResponse.write (" ") end ifrs.close set rs = ne rien la fonction%>
Description des paramètres: showpros (TableName, topnum, film, Loopnum, Typepenum)
Quel pro choisit le type de produit
topnum signifie combien d'enregistrements sont extraits
FildName représente le champ affiché par débogage. Ce paramètre peut être omis lors de l'application en détail et utilisé directement dans la fonction
Loopnum représente le nombre d'enregistrements par ligne de la boucle affichée
Typenum représente la méthode d'affichage circulaire: il existe actuellement deux catégories, parallèles horizontalement et affichage verticalement parallèles différents enregistrements de la même ligne d'enregistrement de données.
Les exemples de citation sont les suivants:
<% if request.form ("soumi") <> "" thentopnum = request.form ("topnum") loopnum = request.form ("loopnum") typenum = request.form ("typenum") elsetopnum = 8loopnum = 2TyEnum = 1end if%> <% cal showpros ("cn_products", topnum, "p_name", loopnum, typenum)%>
Ce qui précède est l'intégralité du contenu de cet article. J'espère que le contenu de cet article sera d'une aide à votre étude ou à votre travail. Si vous avez des questions, vous pouvez laisser un message pour communiquer. Merci pour votre soutien de la nouvelle chaîne technologique REGER OU TRAND!