Бабушка, класс ASP действительно трудно выучить. Это выглядит просто, но когда это действительно полезно, коды в Интернете все сообщаются неправильно! !
В депрессии, наслаждайся! ! Прошло 3 дня, и, наконец, отладки. Я не смею наслаждаться этим в одиночку. Я возьму его и поделюсь с вами!
Эта работа принадлежит Пенгу Пенгу, веб -мастеру Китая www.zzcn.net. Вам не разрешено удалять авторские права при его копировании, иначе вся семья умрет! ! ! ! хе -хе. Полем :)
Кода -копия выглядит следующим образом:
<%@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: 7652621111111111111111111111111111111
Classnewsclass
Privatezzcn, conn, cnnstr
privateTitle_p, id_p
'Инициализация объекта
Privatesubclass_initialize ()
'response.write "Инициализация <br>"
callnewsconnstart ()
Заканчивая
'Destructor, автоматически выполняемый при выпуске объекта, используя SetTrothing
Privatesubclass_mterminate ()
'response.write "Событие объекта выпуска: class_terminate <br>"
callnewsconnend ()
заканчивая
'Функция ссылки на базу данных
Privatesubnewsconnstart ()
SetConn = server.createObject ("adodb.connection")
cnnstr = "Driver = {Microsoft AccessDriver (*. MDB)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
Conn.opencnnstr
'response.writecnnstr & "<br>"
Заканчивая
Privatesubnewsconnend ()
Conn.close
setConn = ничего
Заканчивая
'==================================================================
'Имя функции getrs ()
'Получите набор записей для определенного столбца
'Имя столбца Lanmu
'Сколько записей на страницу k
'Какая страница
'Сколько записей
'Дата RIQI1 находится в обратном порядке по дате 0
'==================================================================
Publicfunctiongetrs (byvallanmu, byvalk, byvalpage, byvaln, byvalriqi)
sql = "select*fromarticleclasswhereclassname = '" & lanmu & "orderbyclassiddesc"