할머니, ASP 클래스는 배우기가 정말 어렵습니다. 간단 해 보이지만 실제로 유용 할 때 인터넷의 코드는 모두 잘못보고됩니다! !
우울해, 즐기십시오! ! 3 일이 지났고 마침내 디버깅했습니다. 나는 그것을 혼자서 감히 즐기지 않습니다. 나는 그것을 꺼내서 당신과 공유 할 것입니다!
이 작품은 웹 마스터 중국 www.zzcn.net 인 Peng Peng에 속합니다. 복사 할 때 저작권을 제거 할 수 없습니다. 그렇지 않으면 온 가족이 죽을 것입니다! ! ! ! 헤헤. . :)
코드 사본은 다음과 같습니다.
<%@language = "vbscript"CodePage = "936"%>
<! doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<%
'Peng Peng이 그에게 제작 한 뉴스 카테고리를 수락하십시오 [Webmaster China] http : //www.zzcn.netqq : 76526211
ClassNewSclass
PrivateZzcn, Conn, Cnnstr
privateTitle_p, id_p
'목표 초기화
privatesubclass_initialize ()
'응답. write 초기화 <br> "
callnewsconnstart ()
Endsub
'SetNothing을 사용하여 물체를 공개 할 때 자동으로 실행됩니다
privatesubclass_terminate ()
'response.write "릴리스 객체 이벤트 : class_terminate <br>"
Callnewsconnend ()
Endsub
'데이터베이스 링크 기능
privatesubnewsconnstart ()
setconn = server.createobject ( "adodb.connection")
cnnstr = "driver = {Microsoft AccessDriver (*. mdb)};"
cnnstr = cnstr & "dbq ="& server.mappath ( "admin/watavase/%29to-dream.mdb")
conn.opencnnstr
'응답 .writecnnstr & "<br>"
Endsub
PrivatesUbnewsconnend ()
conn.close
setconn = 아무것도 없습니다
Endsub
'===========================================================
'함수 이름 getrs ()
'특정 열에 대한 레코드 세트를 가져옵니다
'열 이름 lanmu
'페이지 당 얼마나 많은 레코드 k
'어느 페이지
'얼마나 많은 레코드가
'날짜 RIQI1은 날짜 0에 의해 반전입니다.
'===========================================================
publicfunctiongetrs (Byvallanmu, Byvalk, Byvalpage, Byvaln, Byvalriqi)
sql = "atricleclasswhereclassname = 'select*select*'& lanmu &" 'OrderByClassIdsc "