config.asp

5D6D论坛首页调用. 须具备以下条件

<%
'*****************************
'Powerd by Cangsan
'Don't copy! Do it youself!
'http://fxcw.5d6d.com
'2008-08-30 GuangZhou
'*****************************

WebUrl="http://fxcw.5d6d.com"      '***设置论坛域名
AndUrl="/forum-46-1.html"              '***设置版块连接，域名除外的后半截
Uptime=10                              '***设置更新的时间，默认为30，分钟

Function getcontent(HTML,starcode,endcode)
getcontent="Could not find ..."
If Instr(HTML, starcode) then
dim StartPos,EndPos,Length
StartPos=Instr(1,HTML,starcode)
StartPos=StartPos+Len(starcode)
EndPos=Instr(StartPos,HTML,endcode)
Length=EndPos-StartPos
getcontent=Mid(HTML,StartPos,Length)
End if
End Function
Function One(Txt)
One=Txt
If len(Txt)=1 then
One=0&Txt
End if
End Function
Temp="("&now()&")"
Y=getcontent(Temp,"(","-")
MM=getcontent(Temp,"-","-")
MM=One(MM)
D=getcontent(getcontent(Temp,"-"," ")&"+","-","+")
D=One(D)
H=getcontent(Temp," ",":")
H=One(H)
M=getcontent(Temp,":",":")
M=One(M)
Dim Time
Time=Y&MM&D&H&M
File=Server.MapPath("Time.txt")
%>