<% '使用本插件请修改两个地方: 1:本页第9行-数据库连接地址 2:本页第22、23行－显示的图片大小 dim rs,sql dim files,links,texts,mycode dim swf_width,swf_height Dim connstr,conn,db,dchr,delchr Dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password,ot_regurl,ot_lostpasswordurl,ot_modIfypass1,ot_modIfypass2 Dim sql_databasename,sql_password,sql_username,sql_localname sql_localname = "182.50.3.132" sql_databasename = "2007godzr" sql_username = "2007godzr_f" sql_password = "guoguo888" connstr = "Provider = Sqloledb; User ID = " & sql_username & "; Password = " & sql_password & "; Initial Catalog = " & sql_databasename & "; Data Source = " & sql_localname & ";" dchr="'" delchr=" " On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open connstr If Err Then err.Clear Set Conn = Nothing Response.Write "error" Response.End End If swf_width=415 '图片宽度 '请修改调用图片显示的大小 【总高度＝图片高度＋文本高度】 - vr4u oblog swf_height=300 '图片高度 sql = "select top 8 U.fileid,U.userid,U.file_name,U.file_ext,U.file_path,U.file_readme,I.userid,I.username from oblog_upfile U inner join oblog_user I on U.userid=I.userid where U.isphoto=0 and U.file_ext='flv' order by fileid desc" Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open sql,Conn,1,1 files ="http://www.godzr.com.cn/huiquan/flv/youku_001.flv|http://60.28.126.41/0100643AA245F86785089500067B0026D9493E-BBB8-2A72-A60A-C5380C15C7C0.flv|" texts ="余世维企业变革与文化1|余世维企业变革与文化2" mycode = "" rs.close set rs=nothing %> document.write("<%=mycode%>");