<% session("username")="guest" session("level")="10" dim rs,sql,id,title,res,wWidth,wHeight id=trim(request("id")) if id="" then response.redirect "error.asp?errormessage=没有制定记录号" set rs=server.createobject("adodb.recordset") sql="select * from vedio where id="&id rs.open sql,connuser,3 if rs.eof then response.redirect "error.asp?errormessage=没有找到制定的记录" title=rs("title") res=rs("res") head() %>

您的位置 > <%=rs("sort")%> >

<%=title%>

> <% if rs("level")>cint(session("level")) then response.write "您无权观看此视频 " else if rs("FileType")="wmv" then select case res case "720x576" wWidth=720 wHeight=640 case "640x480" wWidth=640 wHeight=543 case "320x240" wWidth=320 wHeight=299 end select %> ','','width=<%=wWidth%>,height=<%=wHeight%>,menubar=no,scrollbars=no'); onMouseOut=""window.status=' ';"">点击收看现场实录 <% end if end if%> <%=ContentsConvert(rs("contents"))%>

<%bottom%>