<%
'=========全站背景音乐===========
If instr(1,r_url,"admin",1)>0 Then
else
If sayallmusic=2 and saytk>1 then

randomize timer
bgsoundsayys=int(rnd*6)+1
Response.Write "<bgsound src=/music/"&bgsoundsayys&".mid loop=1 volume=50>"
End if
End If

'=============================
'=================彩版电脑底下走动文字=======================

If saytk>1 And saytk<>100 Then
If instr(Request.ServerVariables("http_accept"),"wap")>0  Then
else%>
<div class="b"><marquee bgcolor="#aaaaee" scrollamount="2"><%=saytk3gg%></marquee></div>
<%
End if
End if
'==============文件尾================

If saytk=2 Then%>
</td></tr></table>
<%Response.Write "</p></body></html>"
ElseIf saytk=3 Then
%></td></tr></table><%
Response.Write "</p></FONT></table></body></html>"
ElseIf saytk=100 Then

Response.Write "</body></html>"

ElseIf saytk>3 And saytk<100 Then
Response.Write "</div></body></html>"
Elseif saytk=1 then
Response.Write "</p></card></wml>"
End if

%>

