/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Visning af nyhedsgrupper med komponentet a~
Fra : Thygesen


Dato : 04-10-02 17:50

Findes der en kommando til at få vist headeren for meddelelserne, når man
bruger aspNNTP.Conn til visning af nyhedsgrupper.

Jeg har læst mig frem til at der findes en kommando der hedder:
NNTP.GetArticleHeaders
men hvis jeg skriver:
response.write NNTP.GetArticleHeaders

så skriver den bare: "sand"

Jeg har prøvet at se på http://www.serverobjects.com/comp/AspNNTP.htm men
jeg kan ikke se om man kan få vist headeren.


Jeg bruger følgende kode:

Set NNTP = Server.CreateObject("AspNNTP.Conn")

NNTP.Server = "sunsite.auc.dk"

if NNTP.SetNewsgroup ("dk.edb.internet.webdesign.serverside.asp") then

LastArticle = NNTP.LastArticle

For intCount = 0 to 1
intCurArticle = LastArticle-intcount

NNTP.GetArticleByNumber(intCurArticle)

Response.Write "<tr><td>" & intCurArticle & "</td><td>" & _
NNTP.Subject & "</td><td><pre>Time: " & NNTP.DateTime &
"<br><br>Message:<br>" & HTMLEnc(NNTP.BodyText)

response.write "<hr>MessageID: " & HTMLEnc( NNTP.MessageID ) &
"<br>References: " & NNTP.References & "<br><br>" &_

"</pre></td></tr>" & VbCrLf

Next

Response.Write "</table>"

else
Response.Write "<p>Unable to open Server or Newsgroup<br>" & VbCrLf
Response.Write "Failure was: " & NNTP.Response & "</p>" & VbCrLf
end if

Set NNTP = nothing


Mvh. Christoffer Thygesen

e-mail: cht@cht.dk



 
 
Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408852
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste