<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request("id")<>"" then set rs=server.createobject("adodb.recordset") sql="select cs from video where id=" & request("id") rs.open sql,conn,1,3 rs("cs")=rs("cs")+1 rs.update else response.Redirect "./index.asp" end if %> <% set rs=server.createobject("adodb.recordset") sql="select * from video where id=" & request("id") rs.open sql,conn,1,1 biaoti=rs("title") lulu=rs("lei") response.Write rs("title") %> - Liming Video
<%=biaoti%>
<% set rs=server.createobject("adodb.recordset") sql="select * from video where id=" & request("id") rs.open sql,conn,1,3 %>
Get the Flash Player to see this player.
<% function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True str = replace(str,"
","{br}") re.Pattern="(\<.[^\<]*\>)" str=re.replace(str," ") re.Pattern="(\<\/[^\<]*\>)" str=re.replace(str," ") str = replace(str,"{br}","
") nohtml=str set re=nothing end function %>
<%=left(nohtml(rs("text")),670)%>...
Tel:      0086-371-67992899
Fax:     0086-371-67992699
Email:  info@limingco.com
Latest Uploads
<% set rs=server.createobject("adodb.recordset") sql="select top 12 * from video where tj=true order by uptime desc" rs.open sql,conn,1,3 i=1 do while not rs.eof %> <%i=i+1 rs.movenext loop rs.close %>