Asp잚 돨鑒앴욋쥴堵
2018-09-06 11:14
켈켈돨，Asp잚角廬꼇봤欺가，였淪숌데，옵廬돕痰돨珂빅，貢?溝캑響胤퓌선㉣恣。。?
導쳤죄람씹！！3莖죄，老黨딧桿놔윱죄，寧몸숌데돨鑒앴욋잚친謹，꼇먕뗌權，컬놔윱댕소롸權걸！
굶鱗틔백籃낀櫓벌杰唐，콱쳬옙굔돨珂빅꼇冀혼딜경홈，뤠橙옙굔돨훙홍소价밟밟！！！！뵉뵉。。：）
릿齡덜쯤 덜쯤흔苟:
<%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
<!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN
<htmlxmlns=
<%
톼톼齡鱗돨寧몸劤壙잚쓴헝揆케±籃낀櫓벌×：76526211
classNewsClass
Privatezzcn,conn,cnnstr
privatetitle_p,id_p
뚤蹶놓迦뺏
PrivateSubClass_Initialize()
response.write놓迦뺏<br>
callnewsconnstart()
EndSub
驕뭐변鑒，瞳賈痰setnothing姦렴뚤蹶珂，菱땡獵契
PrivateSubClass_Terminate()
response.Write姦렴뚤蹶慤숭：Class_Terminate<br>
callnewsconnend()
endsub
鑒앴욋졍쌈변鑒
Privatesubnewsconnstart()
cnnstr=DRIVER={MicrosoftAccessDriver(*.mdb)};
cnnstr=cnnstr&DBQ=&Server.MapPath(admin/WataVase/%29to-dream.mdb)
conn.Opencnnstr
response.writecnnstr&<br>
Endsub
Privatesubnewsconnend()
conn.close
setconn=nothing
Endsub
=========================================
변鑒츰getrs（）
삿돤캐몸으커돨寧係션쩌섞
으커츰lanmu
첼女섯係션쩌k
뒤섯女page
뒤섯係션쩌n
휑퍅riqi1槨객휑퍅쾀埼0槨?虧?
=========================================
PublicFunctiongetrs(ByVallanmu,ByValk,ByValpage,ByValn,ByValriqi)
sql=Select*FromArticleClasswhereClassName=&lanmu&orderByClassIDDesc
response.writesql&<br>
setrs=Server.CreateObject(adodb.recordset)
rs.opensql,conn,1,1
ifnotrs.eofthen
ClassID_p=rs(ClassID)
endif
rs.close
setrs=nothing
ifriqi=1then
riqi_p=orderByUpdateTimeDesc
else
riqi_p=
endif
sql=Select*FromArticlewhereClassID=&ClassID_p&&riqi_p
setrs=Server.CreateObject(adodb.recordset)
rs.opensql,conn,1,1
rs.PageSize=k
ifnotrs.eofthen
rs.AbsolutePage=page
endif
i=0
dowhilenotrs.eofandi<n
i=i+1
rs.movenext
loop
response.writers<br>
ifn=ithen
title_p=rs(Title)
id_p=rs(ArticleID)
response.writetitle_p
response.writeid_p
else
title_p=null
id_p=null
endif
rs.close
setrs=nothing
endFunction
----------------------------------------
橄昑畇깃痙
PublicPropertyLettitle(byvalv)
title_p=v
EndProperty
橄昑뗍깃痙
PublicPropertyGettitle()
title=title_p
EndProperty
橄昑畇깃痙ID
PublicPropertyLetid(byvalv)
id_p=v
EndProperty
橄昑뗍깃痙ID
PublicPropertyGetid()
id=id_p
EndProperty
endclass
%>
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312/>
<title>Asp鑒앴욋잚톼톼齡鱗QQ：76526211</title>
</head>
<body>
<%
dimnews
setnews=newNewsClass
callnews.getrs(貢籃澗꾜,1,1,1,1)
response.writenews.id&&news.title
setnews=nothing
%>
</body>
</html>
下一篇：另类扩展名同样执行ASP