권장 : ASP 레코드 세트 페이징에서 음수를 해결하십시오 레코드 세트 페이징 중에 마이너스의 현상에 대해서는 많은 사람들 이이 문제를 겪었습니다. 음수는 주로 커서 유형과 관련이 있습니다. (예를 들어, 데이터베이스를 연결하고 포함 된 Conn.asp 파일이 이미 있다고 가정 해보십시오) 이제 코드는 다음과 같습니다.
SDCMS 온라인 제출 프로그램
코드는 다음과 같습니다
<!-#포함 파일 = inc/conn.asp->
<link href = style.css rel = 스타일 시트 유형 = 텍스트/css>
<스타일 유형 = 텍스트/CSS>
<!-
.Style1 {색상 : #FF0000}
몸, td, th {
글꼴 크기 : 12px;
}
->
</스타일>
<스크립트 언어 = 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 ();
}
진실을 반환하십시오.
}
</스크립트>
<title> 온라인 농담을 제출하십시오 </title>
</head>
<테이블 너비 = 777 테두리 = 0 Align = CENTRE 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? action = add method = post name = myform id = myform onsubmit = return isfull ();>
<tr>
<td align = center>
요청 (action) = 다음%> 인 경우 <%
<테이블 폭 = 100% 테두리 = 0 CellPadding = 5 CellPacing = 0>
<tr>
<td width = 20% Align = Right> Title </td>
<td 너비 = 80%>
<입력 이름 = 제목 유형 = 텍스트 id = wp size = 35>
* 30 단어가 적절합니다^-^</td>
</tr>
<tr>
<td width = 20% Align = Right> Content </td>
<td>
<TextArea name = content cols = 60 줄 = 10 id = content> </textarea> </td>
</tr>
<tr>
<td width = 20% Align = Right> Category </td>
<td>
<입력 이름 = classID 유형 = 텍스트 id = classId size = 3 readOnly = readOnly>
<%
set rs_s = server.createobject (adodb.recordset)
RS_S. OPEN SELECT *에서 SD_CLASS ORDER에서 ID, CONN, 1,1
%>
<select name = select2 onchange = (docum
<%
rs_s.eof는 아닙니다
%>
<옵션 값 = <%= rs_s (id)%>> <%= rs_s (제목)%> </옵션>
<%
rs_s.movenext
향하게 하다
RS_S.CLOSE
RS_S = 아무것도 설정하지 않습니다
%>
</선택>
* 분류는 자동으로 일련 번호 </td>에 해당합니다
</tr>
</테이블>
<테이블 폭 = 100% 테두리 = 0 CellPadding = 5 CellPacing = 1>
<tr>
<td width = 20% align = 오른쪽 bgcolor =#ffffff> 저자 </td>
<td width = 80% bgcolor =#ffffff> <입력 유형 = 저자 이름 = author/>
- 가명 또는 웹 사이트 주소는 </td> 일 수 있습니다
</tr>
<tr>
<td width = 20% align = 오른쪽 bgcolor =#ffffff> 검증 코드 </td>
<td> <입력 이름 = '코드'유형 = 'text'size = '6'maxlength = 4>
<img src = getcode.asp alt = 명확하게 볼 수 없습니까?
</tr>
<tr>
<td width = 20% bgcolor =#ffffff> & nbsp; </td>
<td width = 80% bgcolor =#ffffff> <입력 유형 = 제출 이름 = 제출 2 value = 내 농담 제출/> </td>
</tr>
</테이블>
<%종료 if%>
</td>
</tr>
</form>
</테이블>
</td>
</tr>
</테이블> </td>
</tr>
</테이블>
</body>
</html>
<%
요청 (action) = 그럼 추가하십시오
if isempty (session (getCode)) 또는 세션 (getCode) <> ucase (request.form (code))
response.write <cript> wind
response.write <cript> location.href = 'add.asp'</script>
응답. 엔드
또 다른
DIM 제목, 내용, 저자, ClassID
title = trim (request.form (title))
content = trim (request.form (content))
author = trim (request.form (저자))
classid = trim (request.form (classId))
set rs = server.createobject (adodb.recordset)
SQL = SD_INFO에서 선택 *을 선택하십시오
Rs. Open SQL, Conn, 1,3
rs.addnew
call savedata_dlinfo ()
Rs.update
Rs.Close
RS = 아무것도 설정하지 않습니다
CloseConn () 호출
response.write <Script> Alert ( 'OK!주의를 기울여 주셔서 감사합니다! 검토 후 표시됩니다!') </script>
Response.Redirect Add.asp
끝 If
savedata_dlinfo
rs (제목) = 제목입니다
rs (content) = 컨텐츠
RS (저자) = 저자
rs (classId) = classId
rs (adddate) = 지금
종료 서브
끝 If
%>
공유 : ASP 인스턴스 튜토리얼 : FileSystemObject 객체 FileSyStemObject 객체로 지정된 파일이 존재합니까? 이 예제에서는 먼저 fileSystemObject 객체를 작성한 다음 파일이 존재하는 메소드를 사용하여 파일이 존재하는지 여부를 감지하는 방법을 보여줍니다. 이 예제의 코드는 다음과 같습니다. 다음은 참조 된 내용입니다.