扬州春江花月夜 停演:大虾们,进来看一看

<%
sub selecturl(content)
if content<>"" then
key=instr(content,"http://")
if key>0 then
a=mid(content,1,key-1)
response.Write(a)
b=mid(content,key)

url=instr(b," ")
if url>0 then
urls=mid(b,1,url-1)
response.write("<a href="&urls&">"&urls&"</a>")
c=mid(b,url)
ifcontent=instr(c,"http")
if ifcontent>0 then
selecturl(c)
else
response.write(c)
end if
else
response.write("<a href="&b&">"&b&"</a>")
end if
else
response.write(content)
end if
else
response.write("没有输入数据！")
end if
end sub

selecturl("数据库内容")
%>
如何将数据库的内容插进去