Recommandé: résoudre des nombres négatifs dans la pagination des enregistrements ASP En ce qui concerne le phénomène des nombres négatifs lors de la pagination de records, je crois que de nombreuses personnes ont rencontré ce problème. Les nombres négatifs semblent principalement liés au type de curseur. (Pour la commodité de l'exemple, supposons qu'il existe déjà un fichier Conn.asp qui relie la base de données et a inclus) Donnez maintenant un exemple, le code est comme
Programme de soumission en ligne SDCMS
Le code est le suivant
<! - # Inclure File = Inc / Conn.asp ->
<link href = style.css rel = sylesheet type = text / css>
<style type = text / css>
<! -
.Style1 {Color: # FF0000}
corps, td, th {
taille de police: 12px;
}
->
</ style>
<Script Language = JavaScript>
fonction isfull ()
{
var title = document.myform.title.value;
var contenu = document.myform.content.value;
var classid = document.myform.classid.value;
var auteur = document.myform.author.value;
var code = document.myform.code.value;
if (title ==)
{
alerte (qu'en est-il du titre?);
document.myform.title.focus ();
retourne false;
}
if (contenu ==)
{
alerte (écrire du contenu);
document.myform.content.focus ();
retourne false;
}
if (classid ==)
{
alerte (sélection de la classification ...);
document.myform.classid.focus ();
retourne false;
}
if (auteur ==)
{
alerte (laissez votre nom);
document.myform.author.focus ();
retourne false;
}
if (code ==)
{
alerte (hélas, n'oubliez pas d'apporter la vérification malaise);
document.myform.code.focus ();
retourne false;
}
if (classid ==)
{
alerte (sélection de la classification ...);
document.myform.classid.focus ();
}
Retour Vrai;
}
</cript>
<Title> Soumettre des blagues en ligne </TITME>
</ head>
<Tableau largeur = 777 Border = 0 Align = Center CellPading = 0 Cellpacing = 0 bgcolor = # ffffff>
<tr>
<td width = 567 valign = top>
<Largeur du tableau = 100% Border = 0 Cellpacing = 0>
<tr>
<td> <a href = http: //juke.yyingzi001.cn> retour à la page d'accueil </a>
<Largeur de la table = 100% Border = 0 Cellpacing = 0 CELLPADDING = 0>
<formulaire form = add.asp? Action = add méthode = post name = myform id = myform onSubmit = return isull ();>
<tr>
<td align = Center>
<% si demande (action) = puis%>
<Largeur du tableau = 100% Border = 0 CELLPADDING = 5 CELLPACING = 0>
<tr>
<td width = 20% align = droite> titre </td>
<td largeur = 80%>
<entrée name = title Type = Text id = wp size = 35>
* 30 mots sont appropriés ^ - ^ </ td>
</tr>
<tr>
<td width = 20% align = droite> Contenu </td>
<TD>
<TextArea name = Content Cols = 60 lignes = 10 id = contenu> </ textarea> </td>
</tr>
<tr>
<td width = 20% align = droite> catégorie </td>
<TD>
<input name = classid type = text id = classid size = 3 readonly = readonly>
<%
SET RS_S = Server.CreateObject (Adodb.RecordSet)
rs_s.open select * FROM SD_CLASS ORDER BY ID, Conn, 1,1
%>
<select name = select2 onchange = (document.myform.classid.value = this.options [this.selectedIndex] .Value)> <option sélectionnée> Veuillez sélectionner la catégorie
<%
Bien que pas RS_S.EOF
%>
<Valeur d'option = <% = RS_S (ID)% >> <% = RS_S (TITRE)%> </ OPTION>
<%
rs_s.movènex
se promener
rs_s.close
définir rs_s = rien
%>
</lect>
* La classification correspond automatiquement aux numéros de série </td>
</tr>
</ table>
<Largeur du tableau = 100% Border = 0 CELLPADDING = 5 CELLPACING = 1>
<tr>
<td width = 20% align = droit bgcolor = # ffffff> auteur </td>
<td width = 80% bgColor = # ffffff> <Type de saisie = auteur Nom = auteur />
- Votre pseudonyme ou votre adresse de site Web peut être </td>
</tr>
<tr>
<td width = 20% align = droit bgcolor = # ffffff> code de vérification </td>
<td> <input name = 'code' type = 'text' size = '6' maxLength = 4>
<img src = getcode.asp alt = ne peut pas voir clairement?
</tr>
<tr>
<td width = 20% bgColor = # ffffff> & nbsp; </td>
<td width = 80% bgColor = # ffffff> <Type d'entrée = soumettre name = soume2 value = soumettre ma blague /> </td>
</tr>
</ table>
<% fin si%>
</td>
</tr>
</ form>
</ table>
</td>
</tr>
</pally> </td>
</tr>
</ table>
</docy>
</html>
<%
Si demande (action) = ajouter alors
Si iSEmpty (session (getCode)) ou session (getCode) <> ucase (request.form (code)) alors
Response.Write <Script> Window.Alert («Où est le cheval de vérification? Je suis allé manger de l'herbe? Ce site stipule que vous ne pouvez pas soumettre sans cheval ...»); </cript>
réponse.Write <Script> location.href = 'add.asp' </cript>
Réponse.
Autre
Titre DIM, contenu, auteur, classique
title = trim (request.form (title))
contenu = trim (request.form (contenu))
auteur = Trim (request.form (auteur))
Classid = Trim (request.form (classid))
set rs = server.createObject (adodb.recordSet)
sql = select * from sd_info
Rs.Open SQL, Conn, 1,3
Rs.Addnew
Appeler SaveData_dlinfo ()
Rs.Update
Rs.Close
Définir RS = rien
Appel Rosteconn ()
Response.Write <Script> Alert ('OK! Merci pour votre attention! Il sera affiché après la révision!') </cript>
réponse.redirect add.asp
terminer si
sous-savedata_dlinfo
rs (titre) = titre
RS (Contenu) = Contenu
RS (auteur) = auteur
rs (classid) = classique
rs (adddate) = maintenant
Sub-Sub
terminer si
%>
Partager: ASP Instance Tutorial: FileSystemObject Object Le fichier spécifié par l'objet FileSystemObject existe-t-il? Cet exemple montre comment créer d'abord un objet FileSystemObject, puis utiliser la méthode FileExist pour détecter si un fichier existe. Le code de cet exemple est le suivant: Ce qui suit est le contenu référencé: Html Body% set fs = server.createObject (scripting.fileSystemObject) if (fs.f