ASP omskrevet til VBS

Databaseeksempel.......Det bruger MSSQL Server...

Dim Cnxn As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnxn As String
Dim strSQLEmployees As String
Dim varDate As Variant

\' Open connection
strCnxn = \"Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; \"
Set Cnxn = New ADODB.Connection
Cnxn.Open strCnxn
 
\' Open employee table
Set rstEmployees = New ADODB.Recordset
strSQLEmployees = \"employee\"
rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable



...Filesystem Object...

Set moFSO = New FileSystemObject

Dim fFolders As Folders
   
Set fFolders = moFSO.GetFolder(sRootName).SubFolders

..osv, du burde nu kunne bruge stort set de samme metoder som i ASP

/Jesper

Jeg havde lidt problemer med at konvertere mine filer, så hvis jeg kan lokke dig til at konvertere de to følgende filer får du 300 points:

Fil 1:
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set fso = server.CreateObject(\"Scripting.FileSystemObject\")
set f = fso.GetFile(\"E:\\avitopcom\\news\\news.txt\")
set ts = f.OpenAsTextStream(ForReading, -2)
tekst = ts.ReadLine
dim i
dim url(3,10)
l=1
Do While not ts.AtEndOfStream
tekst = ts.ReadLine
A_Start = 1
i=1
x=1
do until A_Start >= len(Tekst)
          LinkChr = InStr(A_Start, Tekst, \"\"\"\")
          NextSpace = InStr(LinkChr+1, Tekst, \"\"\"\")
          if NextSpace = 0 then NextSpace = Len(Tekst) + 1
          If x =1 then
          url(l,i) = Mid(Tekst, LinkChr+1, NextSpace - LinkChr-1)
          i=i+1
          x = 0
        else
        x=1
        End If
        A_Start = NextSpace
Loop
l=l+1
Loop
Set txtfile=fso.CreateTextFile(\"E:\\avitopcom\\cached_newsfeeds\\news2.asp\")
t=1
do until t=4
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,2) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-1\"\" COLOR=\"\"#000000\"\"><B>\" & url(t,1) & \"</B>...</FONT></A><BR>\")
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,4) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\">\" & url(t,3) & \"</FONT></A>\")
txtfile.WriteLine(\"<FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\"> &nbsp; \" & url(t,6) & \"</FONT><br><br>\")
t=t+1
Loop
txtfile.Close
%>

l=l+1
Loop
Set txtfile=fso.CreateTextFile(\"E:\\avitopcom\\cached_newsfeeds\\news2.asp\")
t=1
do until t=4
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,2) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-1\"\" COLOR=\"\"#000000\"\"><B>\" & url(t,1) & \"</B>...</FONT></A><BR>\")
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,4) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\">\" & url(t,3) & \"</FONT></A>\")
txtfile.WriteLine(\"<FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\"> &nbsp; \" & url(t,6) & \"</FONT><br><br>\")
t=t+1
Loop
txtfile.Close

%>

fil2:

<%
Session.LCID = 1030
tid = \"\'\" & Left(now,5) & \"\'\"
\'Database connection
Dim Connect, Postings, query, engnews
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.open \"Provider=SQLOLEDB; Data Source=127.0.0.1; Initial Catalog=avihit; User Id=joe; Password=blow;\"
Query = \"SET DATEFORMAT dmy; SELECT TOP 1 * FROM news ORDER BY ID desc;\"
Query = Query & \" SELECT * FROM history, jokes WHERE Left(history.Date,2)=Left(jokes.num,2) AND Left(history.Date,5)=\" & tid & \";\"
Set Postings = Server.CreateObject(\"ADODB.Recordset\")
Postings.CursorLocation = 3
Postings.Open Query, Connect, 3, 1, &H0001
MyDate2 = Postings(\"newsdate\")
engnews=Postings(\"engnews\")
Set Postings = Postings.NextRecordset
Set Postings.ActiveConnection = Nothing
Connect.Close
Set Connect = Nothing
MyDate = Postings(\"Date\")
MyMonth = Array(\"\",\"January\",\"February\",\"March\",\"April\",\"May\",\"June\",\"July\",\"August\",\"September\",\"October\",\"November\",\"December\")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set fso = server.CreateObject(\"Scripting.FileSystemObject\")
Set txtfile=fso.CreateTextFile(\"E:\\avitop\\news\\hist.asp\")
txtfile.WriteLine(\"Exactly \" & DateDiff(\"yyyy\", Postings(\"Date\"), Now) & \" years ago on \" & MyMonth(Month(MyDate)) & \" \" & Day(MyDate) & \", \" & Year(MyDate) & \", \" & Postings(\"historie\"))
txtfile.Close
Set txtfile=fso.CreateTextFile(\"E:\\avitop\\news\\news3.asp\")
txtfile.WriteLine(\"Updated:\" & MyMonth(Month(MyDate2)) & \" \" & Day(MyDate2) & \", \" & Year(MyDate2) & \"<BR></center>\" & engnews)
txtfile.Close
Set txtfile=fso.CreateTextFile(\"E:\\avitop\\news\\joke.asp\")
txtfile.WriteLine(Postings(\"joke\"))
txtfile.Close
Postings.Close
Set Postings = Nothing
%>

Ups der kom lidt for meget med. Følgende i midten (mellem de to filer) skal slettes:


l=l+1
Loop
Set txtfile=fso.CreateTextFile(\"E:\\avitopcom\\cached_newsfeeds\\news2.asp\")
t=1
do until t=4
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,2) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-1\"\" COLOR=\"\"#000000\"\"><B>\" & url(t,1) & \"</B>...</FONT></A><BR>\")
txtfile.WriteLine(\"<A HREF=\"\"\" & url(t,4) & \"\"\" TARGET=\"\"_blank\"\"><FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\">\" & url(t,3) & \"</FONT></A>\")
txtfile.WriteLine(\"<FONT FACE=\"\"Verdana, Arial,Helvetica, sans-serif\"\" SIZE=\"\"-2\"\" COLOR=\"\"#666666\"\"> &nbsp; \" & url(t,6) & \"</FONT><br><br>\")
t=t+1
Loop
txtfile.Close

%>

Jeg har selv klaret det