Recomendado: Resolva números negativos na paginação ASP RecordSet Em relação ao fenômeno de números negativos durante a paginação de registros, acredito que muitas pessoas encontraram esse problema. Números negativos parecem principalmente relacionados ao tipo de cursor. (Para a conveniência do exemplo, suponha que já exista um arquivo Conn.asp que vincule o banco de dados e incluiu) agora dê um exemplo, o código é como
Programa de envio on -line do SDCMS
O código é o seguinte
<!-#inclua arquivo = inc/Conn.asp->
<link href = style.css rel = stylesheet type = text/css>
<tipo de estilo = texto/css>
<!-
.Style1 {color: #ff0000}
corpo, td, th {
tamanho de fonte: 12px;
}
->
</style>
<idioma do script = javascript>
função 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;
var code = document.myform.code.value;
if (title ==)
{
alerta (e o título?);
document.myform.title.focus ();
retornar falso;
}
if (content ==)
{
alerta (escreva algum conteúdo);
document.myform.content.focus ();
retornar falso;
}
if (ClassID ==)
{
alerta (selecione classificação ...);
document.myform.classid.focus ();
retornar falso;
}
if (autor ==)
{
alerta (deixe seu nome);
document.myform.author.focus ();
retornar falso;
}
if (código ==)
{
alerta (infelizmente, não se esqueça de trazer verificação malaia);
document.myform.code.focus ();
retornar falso;
}
if (ClassID ==)
{
alerta (selecione classificação ...);
document.myform.classid.focus ();
}
retornar true;
}
</script>
<title> Envie piadas online </title>
</head>
<tabela largura = 777 borda = 0 alinhamento = CENTRO CELLPADING = 0 CellPacing = 0 bgcolor =#ffffff>
<tr>
<td width = 567 valign = top>
<largura da tabela = 100% de borda = 0 Capacing = 0>
<tr>
<Td> <a href = http: //joke.yingzi001.cn> Retorne à página inicial </a>
<tabela largura = 100% de borda = 0 codapo de célula = 0 CellPadding = 0>
<formulário action = add.asp? Action = add métod = name postal = myform id = myform onSubMit = return isfull ();>
<tr>
<td align = Center>
<%se solicitar (ação) = então%>
<tabela largura = 100% borda = 0 CellPadding = 5 Cellpacing = 0>
<tr>
<td width = 20% align = direita> título </td>
<td largura = 80%>
<nome de entrada = título tipo = ID do texto = tamanho WP = 35>
* 30 palavras são apropriadas^-^</td>
</tr>
<tr>
<td width = 20% align = direita> conteúdo </td>
<Td>
<nome da textarea = conteúdo cols = 60 linhas = 10 id = content> </sexttarea> </td>
</tr>
<tr>
<td width = 20% align = direita> categoria </td>
<Td>
<Nome de entrada = ClassId Type = ID do texto = ClassId Tamanho = 3 readonly = readonly>
<%
set rs_s = server.createObject (adodb.recordset)
rs_s.open Selecione * de SD_Class Order by Id, Conn, 1,1
%>
<select name = select2 onchange = (document.myform.classid.value = this.options [this.SelectedIndex] .Value)> <Opção selecionado> Selecione a categoria
<%
enquanto não rs_s.eof
%>
<opção value = <%= rs_s (id)%>> <%= rs_s (title)%> </pption>
<%
rs_s.movenext
Wend
rs_s.close
Definir rs_s = nada
%>
</leclect>
* Classificação corresponde automaticamente a números de série </td>
</tr>
</tabela>
<tabela largura = 100% borda = 0 CellPadding = 5 Cellpacing = 1>
<tr>
<td width = 20% align = direita bgcolor =#ffffff> autor </td>
<td width = 80% bgcolor =#ffffff> <tipo de entrada = nome do autor = autor/>
- Seu pseudônimo ou endereço do site pode ser </td>
</tr>
<tr>
<td width = 20% align = direita bgcolor =#ffffff> código de verificação </td>
<Td> <nome de entrada = 'code' type = 'text' size = '6' maxlength = 4>
<img src = getCode.asp alt = Não consigo ver claramente?
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <type de entrada = envio nome = submit2 value = submite minha piada/> </td>
</tr>
</tabela>
<%final se%>
</td>
</tr>
</morm>
</tabela>
</td>
</tr>
</tabela> </td>
</tr>
</tabela>
</body>
</html>
<%
se solicitar (ação) = add então
Se isempty (sessão (getCode)) ou sessão (getCode) <> ucase (request.form (code)) então
Response.write <cript> window.alert ('Onde está o cavalo de verificação? Fui comer grama? Este site estipula que você não pode enviar sem cavalo ...'); </sCript>
Response.Write <Cript> location.href = 'Add.asp' </sCript>
Resposta.END
Outro
Título escuro, conteúdo, autor, Classid
title = Trim (request.form (título))
Content = Trim (request.form (content))
Autor = Trim (request.form (autor))
ClassID = Trim (request.form (ClassId))
set rs = server.createObject (adodb.recordset)
sql = selecione * de sd_info
Rs.Open SQL, Conn, 1,3
Rs.Addnew
CHAMADA SAVEDATA_DLINFO ()
rs.update
rs.close
Defina rs = nada
Ligue para ClosConn ()
Response.Write <Cript> alert ('OK! Obrigado pela sua atenção! Ele será exibido após a revisão!') </sCript>
Response.Redirect add.asp
final se
SUB SAVEDATA_DLINFO
rs (título) = título
rs (conteúdo) = conteúdo
rs (autor) = autor
rs (ClassID) = ClassID
rs (adddate) = agora
final sub
final se
%>
Compartilhar: ASP Instância Tutorial: Objeto FileSystemObject O arquivo especificado pelo objeto FileSystemObject existe? Este exemplo demonstra como primeiro criar um objeto FileSystemObject e, em seguida, usar o método FileExists para detectar se existe um arquivo. O código deste exemplo é o seguinte: a seguir é o conteúdo referenciado: HTML Body %Set FS = Server.createObject (script.filesystemoBject) se (fs.f