📄 songplay.asp
字号:
<%@ LANGUAGE=VBScript.Encode%>
<%nickname=Session("hxf_u_nickname")
if nickname="" or Session("hxf_u_inthechat")<>"1" then Response.Redirect "chaterr.asp?id=001"
songzj=Request.Form("songzj")
song=Request.Form("song")
loopok=1
linkurl="mid/" & songzj & "/" & song
Response.write "<html><head></head><body oncontextmenu=self.event.returnValue=false>"
if Request.Form("play")="播放" then
n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj=n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
Session("hxf_u_lasttime")=sj
Response.Write "<bgsound src=" & chr(34) & linkurl & chr(34) & " loop=" & chr(34) & loopok & chr(34) & "><script Language=JavaScript>parent.f2.startnosay();</script>"
end if
Response.Write "</body></html>"%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -