📄 video.asp

📁 具有计划、任务、通告、公文、员工档案、等网络办公功能

💻 ASP

字号:


<!--#include file="conn.asp"-->

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet href="main.css" type="text/css">
</head>
<body>
<div align=center>
<p align="left"><b><font color="#0000FF"> 
<a href="manageVideo.asp">管理媒体资料</a></font></b></p>

<table border=0 width="100%">
<tr><td valign=top width="50%">
	<table border=0 width="90%" cellpadding=5 cellspacing=1 bgcolor=#FFFFFF>
	<tr bgcolor=#6666CC><td colspan=2 bgcolor="#808080" bordercolor="#FFFFFF"><font color=#ffffff><b>音乐类：</b></font></td></tr>
	<%
Set conn=Server.CreateObject("ADODB.Connection")
DBPath1=server.mappath("../access.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1

	set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from tblVideo where Classid=1 order by Title"
	rs.open sql,Conn
	while not rs.eof%>
	<tr bgcolor=#FFFFFF><td bordercolor="#FFFFFF" bgcolor="#C0C0C0">
	<table border=0 width="100%">
	<tr><td bordercolor="#C0C0C0">&nbsp; <a target="_blank" href="../Video/<%=trim(rs("Filepath"))%>"><%=trim(rs("Title"))%></a></td></tr> 
	<tr><td bordercolor="#C0C0C0">&nbsp;&nbsp;&nbsp;&nbsp;<%=trim(rs("body"))%></td></tr>
	</table>
	</td></tr>

	<%rs.movenext
	wend
	rs.close
	%>
	</table>
	</td>
	<td valign=top width="50%">
	<table border=0 width="90%" cellpadding=5 cellspacing=1>
	<tr bgcolor=#6666CC><td colspan=2 bordercolor="#FFFFFF" bgcolor="#808080"><font color=#ffffff><b>电影类：</b></font></td></tr>
	<%
	set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from tblVideo where Classid=2 order by Title"
	rs.open sql,Conn
	while not rs.eof%>
	<tr bgcolor=#FFFFFF><td bordercolor="#FFFFFF" bgcolor="#C0C0C0">
	<table border=0 width="100%">
	<tr><td>&nbsp; <a target="_blank" href="../Video/<%=trim(rs("Filepath"))%>"><%=trim(rs("Title"))%></a></td></tr> 
	<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;<%=trim(rs("body"))%></td></tr>
	</table>
	</td></tr>

	<%rs.movenext
	wend
	rs.close
	%>
	</table>
	</td>
</tr>
</table>
</div>
</body>
</html>
<!--#include file="conn_close.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -