Question

asp函数调用

大家好！我是ASP初学者。我想把下面的两段几乎相同的代码写成函数调用的形式，就是我要输出有关“网络搜罗”的内容时，写上fun（“网络搜罗”）就能调用数据库并输入相关内容！请帮忙写一段带参数的asp函数，谢谢！
代码一：
<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>
<%
'===========网络搜罗=========
set rs=server.createObject("adodb.recordset")
sql="select top 8 * from art where sort='网络搜罗' and key=1 order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> <a

href='showart.asp?art_id=<%=rs("id")%>' Title='文章标题：<%=rs("title")%> 发表时间：

<%=rs("tjtime")%> 阅读次数：<%=rs("hit")%>次' ><%=Left(rs("title"),20)%></a>
</TD><TD align=right >
<FONT color=><%=Month(rs("tjtime"))%>/<%=Day(rs("tjtime"))%></FONT>
</TD></TR>
<%
rs.movenext
loop
if rs.eof and rs.bof then
%>
<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> 很抱歉，当前没

有文章！</TD><TD align=right >
<FONT color=red><%=date()%></FONT>
</TD></TR>
<%
end if
rs.close
set rs=nothing
%>
</TABLE>

代码二：
<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>
<%
'===========青色笑话=========
set rs=server.createObject("adodb.recordset")
sql="select top 8 * from art where sort='青色笑话'and key=1 order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> <a

href='showart.asp?art_id=<%=rs("id")%>' Title='文章标题：<%=rs("title")%> 发表时间：

<%=rs("tjtime")%> 阅读次数：<%=rs("hit")%>次' ><%=Left(rs("title"),20)%></a>
</TD><TD align=right >
<FONT color=><%=Month(rs("tjtime"))%>/<%=Day(rs("tjtime"))%></FONT>
</TD></TR>
<%
rs.movenext
loop
if rs.eof and rs.bof then
%>
<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> 很抱歉，当前没

有文章！</TD><TD align=right >
<FONT color=red><%=date()%></FONT>
</TD></TR>
<%
end if
rs.close
set rs=nothing
%>
</TABLE>

Answer 1

<%
Function show(str)
show="<TABLE width='100%' cellSpacing=0 cellPadding=0 align=center border=0>"
set rs=server.createObject("adodb.recordset")
sql="select top 8 * from art where sort='"&str&"' and key=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
show=show+"<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> 很抱歉，当前没有文章！</TD><TD align=right><FONT color=red>"&date()&"</FONT></TD></TR>"
else
do while not rs.eof
show=show+"<TR><TD height='22' > <img border=0 src='img/c3.gif' align=center> <a "&_
"href='showart.asp?art_id="&rs("id")&"' Title='文章标题："&rs("title")&""&_
"发表时间："&rs("tjtime")&""&_
"阅读次数："&rs("hit")&"次' >"&Left(rs("title"),20)&"</a></TD><TD align=right >"&_
"<FONT color=>"&Month(rs("tjtime"))&"/"&Day(rs("tjtime"))&"</FONT></TD></TR>"&_
rs.movenext
loop
End if
show=show+"</TABLE>"
End Function

'调用
Response.Write show("网络搜罗")
%>

Answer 2

函数都写出来了，就调用就可以了！

在调用函数时，设置特征码对于函数就可以了。