Recomendado: resuelva los números negativos en la paginación ASP RecordSet Con respecto al fenómeno de los números negativos durante la paginación de registros, creo que muchas personas han encontrado este problema a veces. Los números negativos aparecen principalmente relacionados con el tipo de cursor. (Para la conveniencia del ejemplo, suponga que ya hay un archivo Conn.asp que enlaza la base de datos y ha incluido) Ahora da un ejemplo, el código es como
Programa de envío en línea SDCMS
El código es el siguiente
<!-#include file = inc/conn.asp->
<link href = style.css rel = stylesheet type = text/css>
<estilo type = text/css>
<!-
.Style1 {color: #FF0000}
cuerpo, td, th {
tamaño de fuente: 12px;
}
->
</style>
<Script Language = JavaScript>
función isfull ()
{
Var title = document.myform.title.value;
var content = document.myform.content.value;
var classID = document.myform.classid.value;
var autor = document.myform.author.value;
Code var = document.myform.code.value;
if (title ==)
{
alerta (¿qué pasa con el título?);
document.myform.title.focus ();
devolver falso;
}
if (content ==)
{
alerta (escribir algo de contenido);
document.myform.content.focus ();
devolver falso;
}
if (classid ==)
{
alerta (seleccionar clasificación ...);
document.myform.classid.focus ();
devolver falso;
}
if (autor ==)
{
alerta (deja tu nombre);
document.myform.author.focus ();
devolver falso;
}
if (código ==)
{
alerta (por desgracia, no olvides traer verificación malayo);
document.myform.code.focus ();
devolver falso;
}
if (classid ==)
{
alerta (seleccionar clasificación ...);
document.myform.classid.focus ();
}
devolver verdadero;
}
</script>
<title> Enviar chistes en línea </title>
</ablo>
<worth width = 777 border = 0 align = Center CellPading = 0 CellPacing = 0 bgcolor =#ffffff>
<tr>
<td width = 567 valign = top>
<ancho de tabla = 100% border = 0 CellPacing = 0>
<tr>
<TD> <a href = http: //joke.ingzi001.cn> regresar a la página de inicio </a>
<ancho de tabla = 100% border = 0 CellPacing = 0 CellPadding = 0>
<form de acción = add.asp? Action = add Method = Post Name = MyForm ID = MyForm OnSubMit = return isfull ();>
<tr>
<td align = centro>
<%if solicitud (acción) = entonces%>
<ancho de tabla = 100% border = 0 CellPadding = 5 CellPacing = 0>
<tr>
<td width = 20% align = right> title </td>
<ancho de td = 80%>
<Nombre de entrada = Title Type = Text ID = WP size = 35>
* 30 palabras son apropiadas^-^</td>
</tr>
<tr>
<td width = 20% align = right> content </td>
<TD>
<Textarea name = content cols = 60 filas = 10 id = content> </extarea> </td>
</tr>
<tr>
<td width = 20% align = right> categoría </td>
<TD>
<input name = classID type = text id = classID size = 3 readonly = readonly>
<%
Establecer rs_s = server.createObject (ADODB.RecordSet)
RS_S.Preen SELECT * de SD_Class Order by ID, Conn, 1,1
%>
<select name = select2 onchange = (document.myform.classid.value = this.options [this.selectedIndex] .Value)> <Opción seleccionada> Seleccione la categoría
<%
mientras que no rs_s.eof
%>
<opción valor = <%= rs_s (id)%>> <%= rs_s (title)%> </opción>
<%
RS_S.MoVENEXT
encaminarse a
rs_s.clar
establecer rs_s = nada
%>
</select>
* La clasificación corresponde automáticamente a los números de serie </td>
</tr>
</table>
<ancho de tabla = 100% borde = 0 CellPadding = 5 CellPacing = 1>
<tr>
<td width = 20% align = right bgcolor =#ffffff> autor </td>
<td width = 80% bgcolor =#ffffff> <input type = autor name = autor/>
- Su seudónimo o dirección de sitio web puede ser </td>
</tr>
<tr>
<td width = 20% align = derecho bgcolor =#ffffff> código de verificación </td>
<TD> <input name = 'code' type = 'text' size = '6' maxLength = 4>
<img src = getCode.asp alt = no puede ver claramente para cambiar el estilo = cursor: altura: 20px;
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <input type = shit name = subbit2 value = enviar mi broma/> </td>
</tr>
</table>
<%final si%>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
<%
Si la solicitud (Acción) = Agregar entonces
If isEtimty (session (getCode)) o session (getCode) <> ucase (request.form (código)) y luego
Response.write <script> Window.alert ('¿Dónde está el caballo de verificación? Fui a comer hierba? Este sitio estipula que no puede enviar sin un caballo ...'); </script>
Response.Write <Script> Location.href = 'add.asp' </script>
Respuesta.
Demás
Dim título, contenido, autor, classid
title = TRIM (request.form (title))
content = trim (request.form (content))
autor = trim (request.form (autor))
classID = trim (request.form (classID))
establecer rs = server.createObject (ADODB.RecordSet)
sql = select * de SD_INFO
Rs.open SQL, Conn, 1,3
Rs.addnew
llamar saveData_dlinfo ()
rs.
rs.
establecer RS = nada
Llame a Closeconn ()
Response.Write <Script> Alert ('¡Ok! ¡Gracias por su atención! ¡Se mostrará después de la revisión!') </script>
respuesta.Redirect add.asp
final si
sub salvedata_dlinfo
RS (Título) = Título
RS (contenido) = contenido
RS (Autor) = Autor
rs (classid) = classid
rs (adddate) = ahora
final
final si
%>
Compartir: Tutorial de instancia de ASP: FileSystemObject Object ¿Existe el archivo especificado por el objeto FileSystemObject? Este ejemplo demuestra cómo crear primero un objeto FileSystemObject y luego usar el método FileExists para detectar si existe un archivo. El código de este ejemplo es el siguiente: el siguiente es el contenido referenciado: HTML Body %set fs = server.createObject (scripting.filesystemObject) if (fs.f