www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/user/flash.asp
<%
Sub PreviewMode(url,modeid)
If Len(url) < 3 Then Exit Sub
If Left(url,1) <> "/" And InStr(url,"://") = 0 Then
url = "../" & Newasp.ChannelDir & url
End If
Select Case CInt(modeid)
Case 1
Response.Write "<object codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,0,0"" height=""400"" width=""550"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"">"& vbCrLf
Response.Write " <param name=""movie"" value=""" & url & """>"& vbCrLf
Response.Write " <param name=""quality"" value=""high"">"& vbCrLf
Response.Write " <param name=""SCALE"" value=""exactfit"">"& vbCrLf
Response.Write " <embed src=""" & url & """ quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""550"" height=""400"">"& vbCrLf
Response.Write " </embed>"& vbCrLf
Response.Write "</object>"& vbCrLf
Case 2
Response.Write "<img src=""" & url & """ border=""0"" onload=""return imgzoom(this,550)"">"
Case 3
Response.Write "<object classid=""CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95"" class=""OBJECT"" id=""MediaPlayer"" width=""220"" height=""220"">"& vbCrLf
Response.Write " <param name= value=""-1"">"& vbCrLf
Response.Write " <param name=""CaptioningID"" value>"& vbCrLf
Response.Write " <param name=""ClickToPlay"" value=""-1"">"& vbCrLf
Response.Write " <param name=""Filename"" value=""" & url & """>"& vbCrLf
Response.Write " <embed src=""" & url & """ width= 220 height=""220"" type=""application/x-oleobject"" codebase=""http://activex.microFlash.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=0,1,1,1"" flename=""mp""></embed>"& vbCrLf
Response.Write "</object>"& vbCrLf
Case 4
Response.Write "<object classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" height=""288"" id=""video1"" width=""305"" VIEWASTEXT>"& vbCrLf
Response.Write " <param name=""_ExtentX"" value=""5503"">"& vbCrLf
Response.Write " <param name=""_ExtentY"" value=""1588"">"& vbCrLf
Response.Write " <param name=""AUTOSTART"" value=""-1"">"& vbCrLf
Response.Write " <param name=""SHUFFLE"" value=""0"">"& vbCrLf
Response.Write " <param name=""PREFETCH"" value=""0"">"& vbCrLf
Response.Write " <param name=""NOLABELS"" value=""0"">"& vbCrLf
Response.Write " <param name=""SRC"" value=""" & url & """>"& vbCrLf
Response.Write " <param name=""CONTROLS"" value=""Imagewindow,StatusBar,ControlPanel"">"& vbCrLf
Response.Write " <param name=""CONSOLE"" value=""RAPLAYER"">"& vbCrLf
Response.Write " <param name=""LOOP"" value=""0"">"& vbCrLf
Response.Write " <param name=""NUMLOOP"" value=""0"">"& vbCrLf
Response.Write " <param name=""CENTER"" value=""0"">"& vbCrLf
Response.Write " <param name=""MAINTAINASPECT"" value=""0"">"& vbCrLf
Response.Write " <param name=""BACKGROUNDCOLOR"" value=""#000000"">"& vbCrLf
Response.Write "</object>"& vbCrLf
Case 5
Response.Write "<object classid=""clsid:166B1BCA-3F9C-11CF-8075-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=8,5,1,0"" width=""100%"" height=""100%"">"& vbCrLf
Response.Write " <param name=""src"" value=""" & url & """>"& vbCrLf
Response.Write " <param name=""swRemote"" value=""swSaveEnabled='false' swVolume='false' swRestart='false' swPausePlay='false' swFastForward='false' swContextMenu='false' "">"& vbCrLf
Response.Write " <param name=""swStretchStyle"" value=""fill"">"& vbCrLf
Response.Write " <PARAM name=""bgColor"" value=""#000000"">"& vbCrLf
Response.Write " <PARAM name=logo value=""false"">"& vbCrLf
Response.Write " <embed src=""" & url & """ bgColor=""#000000"" logo=""FALSE"" width=""550"" height=""400"" swRemote=""swSaveEnabled='false' swVolume='false' swRestart='false' swPausePlay='false' swFastForward='false' swContextMenu='false' "" swStretchStyle=""fill"" type=""application/x-director"" pluginspage=""http://www.macromedia.com/shockwave/download/""></embed>"& vbCrLf
Response.Write "</object>"& vbCrLf
End Select
End Sub
Sub ViewFlash()
If flashid = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>Sorry！您选择了错误的系统参数。</li>"
Exit Sub
End If
If ChannelID = 0 Then
FoundErr = True
ErrMsg = ErrMsg + "<li>请指定频道。</li>"
Exit Sub
End If
SQL = "SELECT * FROM NC_FlashList WHERE ChannelID=" & ChannelID & " And username='" & MemberName & "' And flashid=" & CLng(flashid)
Set Rs = Newasp.Execute(SQL)
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>没有找到任何信息。或者您选择了错误的系统参数！</li>"
Exit Sub
Else
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="UserTableBorder" style="table-layout:fixed;word-break:break-all">
<tr>
<th colspan="2">>>查看<%=Newasp.ModuleName%>信息<<</th>
</tr>
<tr>
<td align="center" class="UserTableRow2" colspan="2"><font size="3" color="blue"><a href="flashlist.asp?action=edit&ChannelID=<%=ChannelID%>&flashid=<%=Rs("flashid")%>"><%=Rs("title")%></a></font></td>
</tr>
<tr>
<td class="UserTableRow1"><strong>作者：</strong> <%=Rs("Author")%></td>
<td class="UserTableRow1"><strong>来源：</strong> <%=Rs("ComeFrom")%></td>
</tr>
<tr>
<td class="UserTableRow1"><strong>大小：</strong> <%=Rs("filesize")%></td>
<td class="UserTableRow1"><strong>星级：</strong>
<%
Response.Write "<font color=red>"
For i = 1 to Rs("star")
Response.Write "★"
Next
Response.Write "</font>"
%>
</td>
</tr>
<tr>
<td class="UserTableRow1"><strong>日期：</strong> <%=Rs("addtime")%></td>
<td class="UserTableRow1"><strong></strong></td>
</tr>
<tr>
<td colspan="2" class="UserTableRow1"><strong>简介：</strong><br><%=ubb.UBBCode(Rs("Introduce"))%></td>
</tr>
<tr>
<td colspan="2" class="UserTableRow1">
<%
Call PreviewMode(Rs("showurl"),Rs("showmode"))
%>
</td>
</tr>
<tr>
<td align="center" colspan="2" class="UserTableRow2"><input type="button" onclick="javascript:window.close()" value="关闭本窗口" name="B2" class=Button>
<input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button>
<input type="button" name="Submit1" onclick="javascript:location.href='#'" value="返回顶部" class=button>
</td>
</tr>
</table>
<%
End If
Rs.Close
Set Rs = Nothing
End Sub
%>