谁能帮我看看这段代码啊！！！我不认识这段啊！

[qq876529930]

就是这段，因为我想增加歌词地址和歌词本地歌词，但是这段前面的代码我不认识啊，所以就不会加了！
麻烦大家帮加上去可以嘛？
不懂我的意思可以看这个图：
[img=http://3gley.host88.itpz.cn/PIC/未命名.jpg[/img]

<!-- #include file="../conn.asp" -->
<!-- #include file="admin.asp" -->
<%Call Head()%>
<card id="main" title="音乐采集" >
<p>
<%Dim surl,lid,idd
surl=request("url")
if len(surl)< 10 then
 Response.Write "请正确输入歌曲地址！<br/>"
 Response.Write	"<anchor>返回上级<prev/></anchor> "
 Response.Write "</p></card></wml>"
 response.end
 End if
dim FileExturl
IF InStrRev(surl,".") > 0 THEN
FileExturl = mid(surl,InStrRev(surl,".")+1)
end if

if len(FileExturl)<>3 and len(FileExturl)<>4 then
 Response.Write "请正确输入歌曲地址！<br/>"
 Response.Write	"<anchor>返回上级<prev/></anchor> "
 Response.Write "</p></card></wml>"
 response.end
 End if
idd=request("idd")
lid=request("lid")
if lid<>"" then
lid=clng(lid)
end if
if surl<>"" then
Server.ScriptTimeOut=9999999
function getHTTPPage(url) 
on error resume next 
dim http 
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=Http.responseBody 
set http=nothing 
if err.number<>0 then err.Clear 
end function 

Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 

function saveimage(from,tofile) 
dim geturl,objStream,imgs 
geturl=trim(from) 
imgs=gethttppage(geturl)'
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type =1 
objStream.Open 
objstream.write imgs
objstream.SaveToFile server.mappath(tofile),2
objstream.Close()
set objstream=nothing 
end function 
RANDOMIZE
sjs=INT((99-00+1)*RND+00)
name=year(date)&month(date)&day(date)&hour(time())&minute(time())&second(time())&sjs
dim ggss
IF InStrRev(surl,".") > 0 THEN
ggss = mid(surl,InStrRev(surl,".")+1)
end if
if ggss<>"asp" and ggss<>"asa" and ggss<>"php" and ggss<>"spx" and ggss<>"jsp" and ggss<>"exe" and ggss<>"aspx" and ggss<>"bat" and ggss<>"dll" and ggss<>"cs"  then
else
 Response.Write "非法歌曲！<br/>"
 Response.Write	"<anchor>返回上级<prev/></anchor> "
 Response.Write "</p></card></wml>"
 response.end
 End if
fname=name&"."&ggss
tofile="/SongList/"&fname
saveimage surl,tofile 
End If
if fname<>"" and surl<>"" then
response.write "远程地址:"
response.write surl
response.write "<br/>"
response.write "歌词地址:"
response.write surl
response.write "<br/>"
response.write "本地地址:"
response.write ""&tofile&""
response.write "<br/>"
response.write "歌词地址:"
response.write ""&tofile&""
response.write "<br/>"

response.write "歌曲格式:"
response.write ""&ggss&""
response.write "<br/>"
Set fso=CreateObject("Scripting.FileSystemObject") 
Set f=fso.GetFile(server.mappath(""&tofile&"")) 
filesize=f.size 
response.write "歌曲大小:"
response.write ""&int(filesize/1024)&"KB"
Else 
response.write "无此歌曲<br/>"
End If
if lid<>0 then
%>
<br/>歌名:<input name="name<%=minute(now)%><%=second(now)%>" type="text"/><br/>
歌手:<input name="geshou<%=minute(now)%><%=second(now)%>" type="text"/><br/>
专辑:<input name="green<%=minute(now)%><%=second(now)%>"/><br/>
语言:<input name="pay<%=minute(now)%><%=second(now)%>" value="中文"/><br/>
长度:<input name="Length<%=minute(now)%><%=second(now)%>" value="00:00"/><br/>
大小:<input name="size<%=minute(now)%><%=second(now)%>" value="<%=int(filesize/1024)%>"/>KB<br/>
格式:<input name="ggss<%=minute(now)%><%=second(now)%>" value="<%=ggss%>"/><br/>
说明:<input name="title<%=minute(now)%><%=second(now)%>" type="text"/><br/>
地址:<input name="fileurl<%=minute(now)%><%=second(now)%>" value="<%=tofile%>"/><br/>
截图地址:(可空)<input name="pic<%=minute(now)%><%=second(now)%>" value=""/><br/>
推荐等级:
                <select title="等级" name="very" value="1">
                <option title="等级一星" value="1">等级一星</option>
                <option title="等级二星" value="2">等级二星</option>
                <option title="等级三星" value="3">等级三星</option>
                <option title="等级四星" value="4">等级四星</option>
                <option title="等级五星" value="5">等级五星</option>
                </select><br/>
                选择分类:<%
                Set Rs = Server.CreateObject("Adodb.Recordset")
rs.open "SELECT id,ptname from Album where classid="&idd&" order by pid asc",conn,1,1
if rs.eof then
response.write "<br/>还没有设置分类,请添加再上传音乐"
else
  response.write "<select name=""ptid"">"
  do while not rs.eof
   response.write "<option value='"&ubb(rs("ID"))&"'>"&ubb(rs("ptname"))&"</option>"  
  rs.movenext
  loop
  response.write "</select>"
end if
rs.close
set rs=nothing%><br/>              
<anchor>确认提交
    <go href="getclsave.asp?lid=<%=lid%>&idd=<%=idd%>&sid=<%=sid%>" method="post" accept-charset="utf-8">
        <postfield name="name" value="$(name<%=minute(now)%><%=second(now)%>)"/>
		<postfield name="geshou" value="$(geshou<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="title" value="$(title<%=minute(now)%><%=second(now)%>)"/>
        <postfield name='fileurl' value='$(fileurl<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='ggss' value='$(ggss<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='size' value='$(size<%=minute(now)%><%=second(now)%>)'/>
        <postfield name='pic' value='$(pic<%=minute(now)%><%=second(now)%>)'/>
         <postfield name="very" value="$(very)"/>
        <postfield name="green" value="$(green<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="pay" value="$(pay<%=minute(now)%><%=second(now)%>)"/>
		 <postfield name="Length" value="$(Length<%=minute(now)%><%=second(now)%>)"/>
        <postfield name="ptid" value="$(ptid)"/>
    </go>
</anchor><br/>
<%else%>
<br/>音乐大小:<input name="size<%=minute(now)%><%=second(now)%>" value="<%=int(filesize/1024)%>"/><br/>
音乐地址:<input name="tofile<%=minute(now)%><%=second(now)%>" value="<%=tofile%>"/><br/>
<%
end if
conn.close
set conn=nothing
%>
----------<br/>
<%if idd<>"" then%>
<a href='wjlist.asp?lid=<%=lid%>&idd=<%=idd%>&sid=<%=sid%>'>[返回上级]</a><br/>
<a href='wjdl.asp?idd=<%=idd%>&sid=<%=sid%>'>[音乐小类]</a><br/>
<%end if%>
<a href='WjClass.asp?sid=<%=sid%>'>[音乐分类]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p>
</card>
</wml>

[JavaAlpha]

VB 的啊

[qq876529930]

不是啊！ 是 asp 的啊！

[笨笨兔兔兔兔兔]

盗了网上的一段东西的代码

用xmlhttp读取下来,用adodb.stream保存...

[一把编程的菜刀]

response.write "歌词地址:"
response.write surl
response.write "<br/>"
response.write "本地地址:"
response.write ""&tofile&""
response.write "<br/>"
response.write "歌词地址:"
response.write ""&tofile&""


这些你自己加的？

[一把编程的菜刀]

还有你远程地址的歌词有吗？
没有你如何采集？
呵呵，这个可是关键哦

[qq876529930]

[Quote=引用 4 楼 chinmo 的回复:]
response.write "歌词地址:"
response.write surl
response.write " <br/>"
response.write "本地地址:"
response.write ""&tofile&""
response.write " <br/>"
response.write "歌词地址:"
response.write ""&tofile&""


这些你自己加的？
[/Quote]
是我自己加的啊！

[qq876529930]

谁能加我Q，帮我解决呢？？？我的Q是我的昵称！