<%
atrdownall178888=trdownall178888
if instr(atrdownall178888,",")>0 and instr(atrdownall178888,"|")>0 and len(atrdownall178888)>34 then
sptrdown=split(atrdownall178888,",")
ubtrdown=ubound(sptrdown)
tmptrdownshow=""
for trdowni=0 to ubtrdown
tmptrdownurlname=split(sptrdown(trdowni),"|")(0)
tmptrdownurl=split(sptrdown(trdowni),"|")(1)
if tmptrdownurl<>"" then
'tmptrdownurl=formaturl180308(tmptrdownurl)
if tmptrdownshow="" then
tmptrdownshow="<a href="""&tmptrdownurl&""" class=""adownlink180308"" target=""_blank"">"&tmptrdownurlname&"</a>"
else
tmptrdownshow=tmptrdownshow&"<a href="""&tmptrdownurl&""" class=""adownlink180308"" target=""_blank"">"&tmptrdownurlname&"</a>"
end if
end if
next
tmptrdownshowdiv="<div class=""trdownshowdiv180308 clearfix""><div class=""trdownshowtext180308 clearfix"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;下载地址</div><div class=""trdownshowbtn180308 clearfix"">"&tmptrdownshow&"</div></div>"
end if
content=content&tmptrdownshowdiv

'Function formaturl180308(url1)
'  If url1<>"" Then
'    If InStr(url1, "http://")<1 and InStr(url1, "https://")<1 And isweburl(url1) Then
'      url1 = "http://"&url1
'    End If
'  End If
'  If InStr(url1, "http://")<1 and InStr(url1, "https://")<1 Then
'    url1 = funpath&url1
'  End If
'  formaturl180308 = url1
'End Function

%>
