<% id=ckn(request("id")) if id="" then response.redirect "http://club.sooopu.com/index_4.html" response.end() end if if 1=2 then UserName=Request.Cookies("sooopucom")("username") If UserName="" Then Response.Write ("") Response.End End If Dim thunderUrl sql="select UserMoney,usergroupid from Dv_User where Username='"&UserName&"'" Set rs= Server.CreateObject("adodb.recordset") rs.open sql,conn2,1,3 if not rs.eof and not rs.bof then if rs("UserMoney")<10 and rs("usergroupid")<>31 and rs("usergroupid")<>32 and rs("usergroupid")<>33 and rs("usergroupid")<>1 and rs("usergroupid")<>2 and rs("usergroupid")<>3 then Response.Write ("") Response.End elseif rs("usergroupid")<>31 and rs("usergroupid")<>32 and rs("usergroupid")<>33 and rs("usergroupid")<>1 and rs("usergroupid")<>2 and rs("usergroupid")<>3 then rs("UserMoney")=rs("UserMoney")-10 rs.update end if else Response.Write ("") Response.End end if rs.close set rs=nothing if types="mypuview" or types="zipuview" then sql="UPDATE Dv_User SET UserMoney = UserMoney + 5 where Username='"&request("user")&"'" conn2.execute (sql) end if call CloseConn2 end if types=request("type") if types="mypuview" or types="zipuview" then sqltable="SP_MyUpload" else sqltable="SP_Sooopu" end if sql="select content,title,TypesID from "&sqltable&" where id="&id Set rs= Server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 sql="UPDATE "&sqltable&" SET Click = Click + 1 where ID="&ID conn.execute (sql) content=rs(0) title=rs(1) TypesID=rs(2) rs.close set rs=nothing set rsc=conn.execute("select bigclassname from SP_Bigclassname_Types where ID="&TypesID&"") bigclassname_Types=rsc("bigclassname") rsc.close : set rsc=nothing Set objRegExp = New Regexp'设置配置对象 objRegExp.IgnoreCase = True'忽略大小写 objRegExp.Global = True'设置为全文搜索 objRegExp.Pattern = "src=.+?>"'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。 Set Matches =objRegExp.Execute(content)'开始执行配置 x=0 For Each Match in Matches RetStr=RetStr&"||"&Match.Value'把里面的地址串起来备用 x=x+1 Next set objRegExp=nothing set Matches=nothing RetStr=split(RetStr,"||") %> <%=title%>_<%=bigclassname_Types%>_歌谱下载_搜谱网

《<%=title%>》 <%=bigclassname_Types%>

本地下载: 保存方法,（在歌谱名称上点击鼠标右键选择“目标另存为(A)…”选项）