网页代码的问题~

这是什么？请知道的解释下
最好是一段一段的，，，呵呵
谢谢
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="function.asp"-->

<%
dim pics1,texts1,links1
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select top 10 * from "& db_News_Table &" where goodnews=1 order by newsid desc"
rs3.Open rs3.Source,conn,1,1
do while not rs3.eof
links1=links1&"readnews.asp?newsid="&rs3("Newsid")&"|"
pics1=pics1&"uploadfile/"&rs3("picname")&"|"
texts1=texts1&rs3("title")&"|"
rs3.movenext
loop
rs3.close
if instr(right(links1,1),"|")>0 then
links1=left(links1,len(links1)-1)
texts1=left(texts1,len(texts1)-1)
pics1=left(pics1,len(pics1)-1)
end if
%>
<

<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="function.asp"-->

______________________________
调用子程序,就是根目录下的conn.asp等,具体的你自己知道

<%
dim pics1,texts1,links1
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select top 10 * from "& db_News_Table &" where goodnews=1 order by newsid desc"
rs3.Open rs3.Source,conn,1,1
do while not rs3.eof
links1=links1&"readnews.asp?newsid="&rs3("Newsid")&"|"
pics1=pics1&"uploadfile/"&rs3("picname")&"|"
texts1=texts1&rs3("title")&"|"
rs3.movenext
loop
rs3.close
if instr(right(links1,1),"|")>0 then
links1=left(links1,len(links1)-1)
texts1=left(texts1,len(texts1)-1)
pics1=left(pics1,len(pics1)-1)
end if