Empfohlen: Lösen Sie negative Zahlen in ASP Recordset Paging In Bezug auf das Phänomen negativer Zahlen während des Rekordpagers sind viele Menschen auf dieses Problem gestoßen. Negative Zahlen erscheinen hauptsächlich mit dem Cursortyp. (Angenommen, es gibt bereits eine Conn.asp -Datei, in der die Datenbank verknüpft und enthalten ist.) Geben Sie nun ein Beispiel an, der Code ist wie
SDCMS Online -Einreichungsprogramm
Der Code ist wie folgt
<!-#include file = inc/conn.asp->
<link href = style.css rel = stylesheet type = text/css>
<style type = text/css>
<!-
.Style1 {Farbe: #ff0000}
Körper, td, th {
Schriftgröße: 12px;
}
->
</style>
<script Language = JavaScript>
Funktion isfull ()
{
var title = document.myform.title.Value;
var content = document.myform.content.Value;
var classId = document.myform.classid.Value;
var Author = document.myform.author.Value;
var code = document.myform.code.Value;
if (title ==)
{
Alarm (was ist mit dem Titel?);
document.myform.title.focus ();
false zurückgeben;
}
if (content ==)
{
alarm (schreiben Sie Inhalte);
document.myform.content.focus ();
false zurückgeben;
}
if (classId ==)
{
alarm (Klassifizierung auswählen ...);
document.myform.classsid.focus ();
false zurückgeben;
}
if (Autor ==)
{
alarmieren (hinterlassen Sie Ihren Namen);
document.myform.author.focus ();
false zurückgeben;
}
if (Code ==)
{
Alarm (leider vergessen Sie nicht, Überprüfungen Malaiisch zu bringen);
document.myform.code.focus ();
false zurückgeben;
}
if (classId ==)
{
alarm (Klassifizierung auswählen ...);
document.myform.classsid.focus ();
}
zurückkehren;
}
</script>
<title> Witze online reichen </title>
</head>
<Tabellenbreite = 777 Rand = 0 Align = Center Cellpading = 0 Cellpacing = 0 Bgcolor =#ffffff>
<tr>
<td width = 567 valign = top>
<Tabellenbreite = 100% Grenze = 0 Cellpacing = 0>
<tr>
<td> <a href = http: //joke.yingzi001.cn> zur Homepage zurückkehren </a>
<Tabellenbreite = 100% Grenze = 0 Cellpacing = 0 Cellpadding = 0>
<form action = add.asp? action = add methode = post name = myForm id = myForm OnSubmit = return isFull ();>
<tr>
<td align = center>
<%If Anfrage (Aktion) = dann%>
<Tabellenbreite = 100% Grenze = 0 Cellpadding = 5 Cellpacing = 0>
<tr>
<td width = 20% Align = rechts> Titel </td>
<td width = 80%>
<Eingabename = Titeltyp = Text -ID = WP size = 35>
* 30 Wörter sind angemessen^-^</td>
</tr>
<tr>
<td width = 20% Align = rechts> Inhalt </td>
<td>
<textArea name = content cols = 60 rows = 10 id = content> </textArea> </td>
</tr>
<tr>
<td width = 20% Align = rechts> Kategorie </td>
<td>
<Eingabe name = classId type = text id = classId size = 3 readonly = readonly>
<%
Setzen Sie rs_s = server.createObject (adodb.recordset)
rs_s.open auswählen * von SD_CASS -Bestellung nach ID, Conn, 1,1
%>
<select name = select2 onchange = (document.myform.classsid.value = this.options [this.selectedIndex] .Value)> <Option Selected> Wählen Sie die Kategorie aus
<%
zwar nicht rs_s.eof
%>
<Optionswert = <%= rs_s (id)%>> <%= rs_s (title)%> </option>
<%
RS_S.Movenext
Wend
RS_S.CLOSE
Setzen Sie rs_s = nichts
%>
</select>
* Die Klassifizierung entspricht automatisch den Seriennummern </td>
</tr>
</table>
<Tabellenbreite = 100% Grenze = 0 Cellpadding = 5 Cellpacing = 1>
<tr>
<td width = 20% align = rechter bgcolor =#ffffff> Autor </td>
<td width = 80% bgcolor =#ffffff> <Eingabetyp = Autor Name = Autor/>
- Ihr Pseudonym oder Ihre Website -Adresse kann </td> sein
</tr>
<tr>
<td width = 20% align = rechter bgcolor =#ffffff> Verifizierungscode </td>
<td> <input name = 'code' type = 'text' size = '6' maxLength = 4>
<img Src = getCode.asp Alt = Klicken Sie nicht, um den Stil zu ändern
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <Eingabe type = sure nam
</tr>
</table>
<%Ende wenn%>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
<%
Wenn Anfrage (Aktion) = hinzufügen
Wenn isEmpty (Sitzung (getCode) oder Sitzung (getCode) <> uCase (Request.Form (Code))) dann dann
response.write <Script> window.alert ('Wo ist das Verifizierungspferd? Gras essen? Diese Seite sieht vor, dass Sie ohne ein Pferd nicht einreichen können ...') </script>
response.write <Script> location.href = 'add.asp' </script>
Antwort.end
Anders
Dim Title, Inhalt, Autor, Klassiker
title = trim (request.form (title))
content = trim (request.form (content))
Autor = Trim (Request.Form (Autor))
classId = trim (request.form (classId))
Setzen Sie rs = server.createObject (adodb.Recordset)
SQL = SELECT * von SD_INFO
Rs.open SQL, Conn, 1,3
rs.addnew
Rufen Sie Savedata_dlinfo () an
Rs.Update
rs.close
Setzen Sie Rs = nichts
Closeconn () anrufen
Antwort.
Antwort.Redirect add.asp
Ende wenn
subsparedata_dlinfo
RS (Titel) = Titel
RS (Inhalt) = Inhalt
RS (Autor) = Autor
rs (classId) = classId
rs (adddate) = jetzt
Ende sub
Ende wenn
%>
Teilen: ASP -Instanz -Tutorial: Dateisystemobjektobjekt Gibt es die vom Dateisystem angegebene Datei? In diesem Beispiel wird gezeigt, wie Sie zuerst ein DateiSystemObject -Objekt erstellen, und dann mit der Methode für die DateiExists erkennen, ob eine Datei vorliegt. Der Code dieses Beispiels lautet wie folgt: Folgendes ist der referenzierte Inhalt: HTML Body %Set fs = server