A classe ASP da vovó é realmente difícil de aprender. Parece simples, mas quando é realmente útil, os códigos na Internet são todos relatados incorretamente! !
Deprimido, aproveite! ! Faz 3 dias e finalmente depurou. Eu não ouso aproveitar sozinho. Vou retirá -lo e compartilhar com você!
Este trabalho pertence ao Peng Peng, o webmaster China www.zzcn.net. Você não tem permissão para remover os direitos autorais ao copiá -lo, caso contrário, toda a família morrerá! ! ! ! hehe. . :)
A cópia do código é a seguinte:
<%@Idioma = "vBScript" codePage = "936"%>
<!
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<%
'Peng Peng, aceite uma categoria de notícias produzida por ele [Webmaster China] http: //www.zzcn.netqq: 76526211
ClassNewSclass
Privatezzcn, Conn, Cnnstr
privatetitle_p, id_p
'Inicialização do objeto
Privatesubclass_initialize ()
'Response.Write "Inicialização <br>"
callnewsconnstart ()
Endsub
'Destrutor, executado automaticamente ao liberar um objeto usando o Set Nothing
Privatesubclass_terminate ()
'Response.Write "Libere o evento do objeto: class_terminate <br>"
callnewsConNend ()
endsub
'Função do link do banco de dados
PrivatesubNewSConnStart ()
SetConn = server.createObject ("adodb.connection")
cnnstr = "Driver = {Microsoft AccessDriver (*. MDB)};"
CNNSTR = CNSTR & "DBQ =" & Server.mappath ("Admin/Watavase/%29 para-dream.mdb")
Conn.Opencnnstr
'Response.Writecnnstr & "<br>"
Endsub
PrivatesubnewsConnend ()
Conn.Close
setConn = nada
Endsub
'==========================================================
'Nome da função getrs ()
'Obtenha um recorde para uma determinada coluna
'Nome da coluna Lanmu
'Quantos registros por página k
'Qual página
'Quantos registros não
Data Riqi1 está em ordem inversa por data 0 é a ordem crescente
'==========================================================
PublicFunctionGetrs (Byvallanmu, ByValk, ByValPage, Byvaln, Byvalriqi)
sql = "Selecione*FromArticleClassWreClassName = ''" & Lanmu & "OrderByClassIdDesc"