Рекомендуется: решить отрицательные числа в пейджинге ASP Recordset. Относительно явления негативных чисел во время подкрепления записей, я считаю, что многие люди столкнулись с этой проблемой. Отрицательные числа кажутся в основном связаны с типом курсора. (Для удобства примера предположим, что уже есть файл conn.asp, который связывает базу данных и включен) теперь приведен пример, код похож на
SDCMS онлайн -программа представления
Код выглядит следующим образом
<!-#Включите файл = Inc/conn.asp->
<link href = style.css rel = stylesheet type = text/css>
<стиль типа = текст/css>
<!-
.Style1 {color: #ff0000}
тело, TD, th {
размер шрифта: 12px;
}
->
</style>
<сценарий языка = javascript>
функция 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 ==)
{
Блюдо (как насчет названия?);
document.myform.title.focus ();
вернуть ложь;
}
if (content ==)
{
оповещение (напишите немного контента);
document.myform.content.focus ();
вернуть ложь;
}
if (classid ==)
{
оповещение (выберите классификацию ...);
document.myform.classid.focus ();
вернуть ложь;
}
if (автор ==)
{
предупреждение (оставьте свое имя);
document.myform.author.focus ();
вернуть ложь;
}
if (code ==)
{
Блюдо (увы, не забудьте принести проверку малайского);
document.myform.code.focus ();
вернуть ложь;
}
if (classid ==)
{
оповещение (выберите классификацию ...);
document.myform.classid.focus ();
}
вернуть истину;
}
</script>
<title> отправить шутки онлайн </title>
</head>
<Таблица ширины = 777 Border = 0 Align = Center CellPading = 0 CellPacing = 0 bgcolor =#ffffff>
<tr>
<td ширина = 567 valign = top>
<таблица ширины = 100% граница = 0 сочетать = 0>
<tr>
<td> <a href = http: //joke.yingzi001.cn> вернуться на главную страницу </a>
<таблица ширины = 100% граница = 0 сотовая связь = 0 cellpadding = 0>
<form action = add.asp?
<tr>
<td align = center>
<%if запрос (action) = затем%>
<таблица ширины = 100% граница = 0 cellpadding = 5 созрея = 0>
<tr>
<td ширина = 20% align = right> title </td>
<TD ширина = 80%>
<Имя ввода = заголовок тип = текст идентификатор = wp size = 35>
* 30 слов подходят^-^</td>
</tr>
<tr>
<td ширина = 20% align = справа> Содержание </td>
<Td>
<textarea name = content cols = 60 Rows = 10 id = content> </textarea> </td>
</tr>
<tr>
<td ширина = 20% align = right> категория </td>
<Td>
<name = classicid type = text id = classid size = 3 readonly = readonly>
<%
Установить 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)> <опция выбранная> Пожалуйста, выберите категорию
<%
в то время как не rs_s.eof
%>
<значение опции = <%= rs_s (id)%>> <%= rs_s (заголовок)%> </option>
<%
rs_s.movenext
Венд
rs_s.close
Установить rs_s = ничего
%>
</select>
* Классификация автоматически соответствует серийным номерам </td>
</tr>
</table>
<таблица ширины = 100% граница = 0 cellPadding = 5 созрея = 1>
<tr>
<td width = 20% align = right bgcolor =#ffffff> автор </td>
<td width = 80% bgcolor =#ffffff> <input type = name Автор = Автор/>
- Ваш псевдоним или адрес веб -сайта может быть </td>
</tr>
<tr>
<td width = 20% align = right bgcolor =#ffffff> код проверки </td>
<td> <input name = 'code' type = 'text' size = '6' maxlength = 4>
<img src = getCode.asp alt = не вижу ясно?
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <input type = отправить имя = отправить 2 значение = отправить мою шутку/> </td>
</tr>
</table>
<%конец, если%>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
<%
Если запрос (action) = добавить тогда
Если isempty (session (getCode)) или session (getCode) <> ucase (request.form (code)) тогда
response.write <script> window.alert ('Где вершина?
response.write <script> location.href = 'add.asp' </script>
Response.end
Еще
Dim название, контент, автор, классическая
title = trim (request.form (title))
Content = trim (request.form (content))
Автор = trim (request.form (Автор))
classid = trim (request.form (classid))
Установить rs = server.createObject (adodb.recordset)
SQL = SELECT * из SD_INFO
Rs.open SQL, Conn, 1,3
Rs.addnew
Call Savedata_dlinfo ()
Rs.Update
Rs.close
Установить RS = ничего
Позвоните в CloseConn ()
response.write <Script> Alert («ОК! Спасибо за внимание! Он будет отображаться после обзора!») </script>
response.redirect add.asp
конец, если
subEdatata_dlinfo
rs (заголовок) = заголовок
rs (content) = контент
rs (автор) = автор
rs (classid) = classid
rs (добавить) = сейчас
Конец суб
конец, если
%>
Поделиться: ASP Encemor Существует ли файл, указанный объектом FileSteMobject? Этот пример демонстрирует, как сначала создать объект FileStemObject, а затем использовать метод FileExists, чтобы определить, существует ли файл. Код этого примера заключается в следующем: Ниже приведено указанное содержание: HTML Body %SET FS = Server.createObject (scripting.filesystemobject) if (fs.f