<% If Request("song") <> "" then Dim SelSong Dim LyricPath Dim Lyric SelSong = CStr(Request("song")) LyricPath = Server.MapPath("\") & "/Valentine2001/MusicBox/Lyric/" set fs = CreateObject("Scripting.FileSystemObject") set ts = fs.OpenTextFile (LyricPath & "0" & SelSong & ".txt") Lyric = Replace(ts.ReadAll, vbCrLf, "
") ts.Close %> Youth-2000.com [Teen天情人節] .mid" loop="infinite">
　
　
　
　
　
　
　
　
 

<%=Lyric%>
　
你個名：
　
你個email：
　
有咩同佢講：
　
佢個名：
 
佢個email：
 
　  
<% End if %>