📄 firstrun.asp
字号:
<!--#include file="conn.asp"-->
<%
Response.ContentType="application/smil"
dim theurl,title,suffix
suffix = Request("suffix")
numeration = Request("no")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "select * from basic where numeration="&numeration,conn,1,3
If Not Rs.Eof Then
title = Rs("title") & suffix
if instr(Rs("url"),"http://") <> 1 Then
theurl = "http://www.520y.com/nihao/" & Rs("url")
else
theurl = Rs("url")
End If
Else
Response.Write "错误的请求！"
Response.End
End If
Dim str2,str3
str2 = "http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name")
str3 = mid(str2,1,instrrev(str2,"/"))
Response.Write "<smil>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta name="&Chr(34)&"title"&Chr(34)&" content="&Chr(34)&title&Chr(34)&"/>" & vbCrLf
Response.Write "<meta name=" & Chr(34) & "author" & Chr(34) & " content=" & Chr(34) & "RealNetworks" & Chr(34) & "/>" & vbCrLf
Response.Write "<meta name=" & Chr(34) & "copyright" & Chr(34) & " content=" & Chr(34) & "(c)2000, RealNetworks" & Chr(34) & "/>" & vbCrLf
Response.Write "<layout>" & vbCrLf
Response.Write "<root-layout height=" & Chr(34) & "150" & Chr(34) & " width=" & Chr(34) & "300" & Chr(34) & " background-color=" & Chr(34) & "black" & Chr(34) & "/>" & vbCrLf
Response.Write "<region id=" & Chr(34) & "full_screen" & Chr(34) & " left=" & Chr(34) & "0" & Chr(34) & " top=" & Chr(34) & "0" & Chr(34) & " height=" & Chr(34) & "150" & Chr(34) & " width=" & Chr(34) & "300" & Chr(34) & " z-index=" & Chr(34) & "1" & Chr(34) & "/>" & vbCrLf
Response.Write "</layout>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf
Response.Write "<par>" & vbCrLf
Response.Write "<audio src=" & Chr(34) & theurl & Chr(34) & " repeat=" & Chr(34) & "indefinite" & Chr(34) & "/>" & vbCrLf
Response.Write "</par>" & vbCrLf
Response.Write "</body>" & vbCrLf
Response.Write "</smil>" & vbCrLf
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -