📄 syscode_flash.asp
字号:
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=30><FONT color=#b70000> <B>·</B></FONT>"
if request("cat_id")<> "" then
Response.Write "本分类共有"
elseif request("select")<>"" then
Response.Write "共搜索到"
else
Response.Write "当前共有"
end if
Response.Write "<span>"&rs.recordcount&"</span>个动漫</td></tr>" & vbCrLf
if not rs.eof then
Dim Hx_Nums,MultiPages,i
Rs.PageSize=Hxperpage
Rs.AbsolutePage=CurPage
Hx_Nums=Rs.RecordCount
MultiPages="<tr><td colspan=""2"" height='28' align=""center"">"&MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)&"</td></tr>"
Do Until Rs.EOF OR i=Hxperpage
Response.Write "<tr><td>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
%>
<TD width="37%" style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px" align=middle><SCRIPT type=text/javascript>hx66img("<%=rs("img")%>","showflash.asp?id=<%=rs("id")%>","动漫名称：<%=rs("title")%>
动漫作者：<%=rs("author")%>
点击次数：<%=rs("hits")%>次");</SCRIPT></TD>
<%
Response.Write "<td width='63%'>" & vbCrLf
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr><td><strong><font color='#FFA300'>动漫名称：</font></strong><a href='showflash.asp?id="&rs("id")&"'>"&rs("title")&"</a></td></tr>" & vbCrLf
Response.Write "<tr><td><strong><font color='#FFA300'>动漫作者：</font></strong>"
if rs("author")<>"" then
Response.Write ""&rs("author")&""
else
Response.Write "未知"
end if
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td><strong><font color='#FFA300'>加入时间：</font></strong>"&rs("Time")&"</td></tr>" & vbCrLf
Response.Write "<tr><td><strong><font color='#FFA300'>点击次数：</font></strong>"&rs("hits")&"</td></tr>" & vbCrLf
Response.Write "<tr><td><strong><font color='#FFA300'>简单描述：</font></strong>"&gotTopic(rs("Content"),100)&"</td></tr>" & vbCrLf
Response.Write "</table></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td></tr>" & vbCrLf
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write "<tr align='center'>" & vbCrLf
Response.Write "<td align=middle height='60'>"
if request("cat_id")<> "" then
Response.Write "该分类暂时没有动漫"
elseif request("keyword")<>"" then
Response.Write "没有找到包含[<b><font color=red>"&request("keyword")&"</font></b>]的动漫！"
else
Response.Write "没有任何动漫，请管理员到后台添加！"
end if
Response.Write "</td></tr>" & vbCrLf
end if
end if
Response.Write(MultiPages)
Response.Write "</table>" & vbCrLf
rs.close
set rs=nothing
end sub
'=================================================
'过程名：content_flash
'作 用：显示动慢标题、内容
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
sub content_flash()
if request.querystring("id")="" then
Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
Response.End
end if
Response.Write "<table width=""100%"" border=""1"" align=""center"" cellspacing=""0"" cellpadding=""3"" bgcolor=""#FFFFFF"" bordercolor=""#f0f0f0"" style=""border-collapse: collapse"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=3 align='center' HEIGHT=40><b><font color=ff6600><b>"&rs("title")&"</b></font><b></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>加入时间</td>"
Response.Write "<td width='180'> "&rs("time")&"</td>"
Response.Write "<td rowspan='8' align='right'>"
Response.Write "<table width='502' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='380' align='center' valign='middle' background='img/flash/flash.jpg'><OBJECT CLASSID=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" CODEBASE=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"" WIDTH='480' HEIGHT='360'>" & vbCrLf
Response.Write "<PARAM NAME=quality VALUE=high>" & vbCrLf
Response.Write "<PARAM NAME='SRC' VALUE='"&rs("url")&"'>" & vbCrLf
Response.Write "<EMBED QUALITY=high PLUGINSPAGE=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" TYPE=""application/x-shockwave-flash"" WIDTH='480' HEIGHT='360' SRC='"&rs("url")&"'>" & vbCrLf
Response.Write "</EMBED>" & vbCrLf
Response.Write "</OBJECT></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>所属类别</td>"
Response.Write "<td> "&cat_name&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center' width='78'>动漫作者</td>"
Response.Write "<td> "
if rs("author")<>"" then
Response.Write ""&rs("author")&""
else
Response.Write "未知"
end if
Response.Write "</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>欣赏次数</td>"
Response.Write "<td> <font color=red><b>"&rs("hits")&"</b></font></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>下载次数</td>"
Response.Write "<td> <b>"&rs("Download")&"</b></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>推荐程度</td>"
Response.Write "<td> "&rs("Commend")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='20' align='center'>评论次数</td>"
Response.Write "<td> "&rs("reviewcount")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='150' align='center' valign='top'>作品介绍</td>"
Response.Write "<td valign='top' width='180'> "&rs("Content")&"</td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan=2> </td>"
Response.Write "<td align='center'><img src='img/flash/flash_down.gif' width='20' height='20'>"
Response.Write "<a title='鼠标右键单击此链接，从弹出的菜单中选择：目标另存为…' target='_blank' href='"&rs("url")&"'>右键“另存为”可下载作品</a> <img src='img/flash/flash_full.gif' width='20' height='20'><a href='viewflash.htm?"&rs("url")&"&namecode=pcedu&subnamecode=pcedu_flash' target='_blank'>全屏播放</a></td>"
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td width='100%' colspan='3' style=""display:block;padding:0px 20px;LINE-HEIGHT: 180%""> </td>"
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
end sub
'=================================================
'过程名：contextual_flash
'作 用：显示动漫上下(篇)
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
sub contextual_flash()
set RelationArt = conn.execute("select top 1 id,title from flash where id<"&request.querystring("id")&" order by id desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上个动漫：</font>已经没有了<BR> "
else
Response.Write "<font color=red>·上个动漫：</font><a href=""showflash.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"
end if
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 id,title from flash where id>"&request.querystring("id")&" order by id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下个动漫：</font>已经没有了"
else
Response.Write "<font color=red>·下个动漫：</font><a href=""showflash.asp?id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"
end if
RelationArt.close
Set RelationArt=Nothing
end sub
'=================================================
'过程名：review_flash
'作 用：显示相关动漫评论
'参 数：n-显示条数；point_dj-评论开关,1-开启，0-关闭
'Web: www.ynsky.com.cn
'=================================================
sub review_flash(n)
dim temp,i,j
if point_dj="1" then
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
if n>=ubound(temp) then
j=ubound(temp)
else
j=n
end if
for i=1 to j
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"& temp(i) &"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right"">相关评论<font color=#CC0000> "&rs("reviewcount")&" </font>篇，当前显示最新的<font color=#CC0000> "&n&" </font>篇。 <a href=""view.asp?action=flash&id="&rs("id")&"""> [查看更多评论] [发表我的评论]</a> </td></tr>"
Response.Write "</table>"
elseif point_dj="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">"
Response.Write "<tr><td align=""center"">【动漫评论已关闭】"
Response.Write "</td></tr>"
Response.Write "</table>"
End If
rs.close
set rs=nothing
end sub
'****************************************************
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -