• <%=mlg("BarHome")%>
• <%=mlg("BarForums")%>
• 同人小说
• <%=mlg("BarPicture")%>
• <%=mlg("BarMusic")%>
• <%=mlg("BarLyric")%>
• <%=mlg("BarAnswerGame")%>
• <%=mlg("BarCharacter")%>
• <%=mlg("BarFlash")%>
• <%=mlg("BarGuestbook")%>

<%=blg("LyricList")%>

<% Set rs1 = conn.execute("SELECT * FROM lyric order by titlelang desc, titlejp+titleen ASC") do while not rs1.eof titlelang=rs1("titlelang") With Response .write "" & vbNewLine End With rs1.movenext loop rs1.close() set rs1=nothing %>

<% if rs("titlecn")<>empty then response.Write(rs("titlecn") & "(" & blg("cn") & ")  ") if rs("titlejp")<>empty then response.Write(rs("titlejp") & "(" & blg("jp") & ")  ") if rs("titleen")<>empty then response.Write(rs("titleen") & "(" & blg("en") & ") ") %>

<% If rs("jp")<>"null" then havejp=true response.write "" & blg("jp") & "  " End if If rs("rm")<>"null" then haverm=true response.write "" & blg("rm") & "  " End if If rs("en")<>"null" then haveen=true response.write "" & blg("en") & "  " End if If rs("cn")<>"null" then havecn=true response.write "" & blg("cn") & " " End if %>

<% '显示歌词 If havecn then cn=rs("cn") cn=Replace(cn,vbCRLF,"
") response.write("

" & blg("cnLyric") & ":  TOP

") response.write cn havelyric=1 End if If havejp then jp=rs("jp") jp=Replace(jp,vbCRLF,"
") response.write("

" & blg("jpLyric") & ":  TOP

") response.write jp havelyric=1 End if If haverm then rm=rs("rm") rm=Replace(rm,vbCRLF,"
") response.write("

" & blg("rmLyric") & ":  TOP

") response.write rm havelyric=1 End if If haveen then en=rs("en") en=Replace(en,vbCRLF,"
") response.write("

" & blg("enLyric") & ":  TOP

") response.write en havelyric=1 End if If havelyric=0 then response.write "" & blg("NoLyric") End if rs("click")=rs("click")+1 rs.update() %>