<%
id=session("id")
t1=session("t1")
t2=session("t2")
if len(id)=0 then
t1=true
t2=true
else
cs="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&"C:\FTP\sponser\weather\my\user.mdb"
set conn=server.createobject("ADODB.Connection")
conn.Mode=3
conn.connectionstring=cs
conn.open
sql= "select * from detail where id='"&id&"'"
set rs=conn.execute(sql,recsaffected,adcmdtext)
bday=rs("bday")
score=rs("score")
rs.close
name=session("name")
end if
link="/"
dot=" "
dotp=" "
doty=" "
dotb=" "
dotr=" "
dotg=" "
dotbg=" "
path=server.MapPath(link&"dataa/readings.txt")
set fs = CreateObject("Scripting.FileSystemObject")
set ss = fs.openTextFile(path,1)
s=ss.readall
hkotemp=mid(s,instr(s,"HK Observatory")+19,4)
hkorh=mid(s,instr(s,"HK Observatory")+29,3)
path=server.MapPath(link&"dataa/warn.txt")
set ss = fs.openTextFile(path,1)
warn=ss.readall
if not warn="no" then
warn=replace(warn,vbnewline,""");"& vbnewline & "myScroller1.addItem(""")
end if
if t1 then
path=server.MapPath(link&"dataa/forecast.txt")
set ss = fs.openTextFile(path,1)
forecast=ss.readall
forecast=mid(forecast,8)
forecast=replace(forecast,"。"&vbnewline&vbnewline,vbnewline)
forecast=replace(forecast,"。",vbnewline)
forecast=replace(forecast,vbnewline&vbnewline,vbnewline)
forecast=replace(forecast,vbnewline,""");"& vbnewline & "myScroller1.addItem(""")
end if
if t2 then
path=server.MapPath(link&"dataa/5day.txt")
set ss = fs.openTextFile(path,1)
fday=ss.readall
fday=mid(fday,8)
fday=replace(fday,"。","")
fday=replace(fday,vbnewline & vbnewline,vbnewline)
fday=replace(fday,vbnewline,""");"& vbnewline & "myScroller1.addItem(""")
end if
%>
香港天氣資訊中心
