<% '使用本插件请修改两个地方: 1:本页第9行-数据库连接地址 2:本页第22、23行－显示的图片大小 dim rs,sql dim pics,links,texts,mycode dim focus_width,focus_height,text_height,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 focus_width=220 '图片宽度 '请修改调用图片显示的大小 【总高度＝图片高度＋文本高度】 - vr4u oblog focus_height=145 '图片高度 text_height=0 'oblog系统原因 无法调用文本，设置为0 swf_height = focus_height+text_height sql = "select top 5 U.fileid,U.userid,U.file_name,U.file_ext,U.file_path,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='jpg' and U.userid=13 order by fileid desc" Set rs=Server.CreateObject("Adodb.RecordSet") rs.Open sql,Conn,1,1 if rs.eof and rs.bof then else do while not rs.eof pics =pics + "/"&rs("file_path") & "|" links = links + "/blog.asp?name=" & rs("username") & "|" texts = texts +"/"& rs("topic") & "|" rs.movenext loop pics = pics + "/plus/NewPic/reg.jpg" links = links + "/u/13/index.html" texts = texts + "大自然拓展野战排欢迎您！" end if mycode = "" rs.close set rs=nothing %> document.write("<%=mycode%>");