Question

关于ASP里Function的调用问题

'*************************************************
'函数名：ShowTopic
'作 用：显示新闻列表
'参 数：TbaleWidth ----表格长度
' BigClassName ----信息大类
' SmallClassName ----信息小类
'返回值：需要显示的新闻列表
'*************************************************
function ShowTopic(BigClassName,SmallClassName,TbaleWidth)

dim conn,db
dim connstr
db="data/database.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

set rs=server.createobject("adodb.recordset")
sqltext="select * from News where BigClassName='"&BigClassName&"'"
sqltext=sqltext&" and SmallClassName='"&SmallClassName&"'"
sqltext=sqltext&" order by id desc"
rs.open sqltext,conn,1,1

'response.write server.mappath(""&db&"")
'response.End()
if rs.eof and rs.bof then
response.write "暂时没有记录!"
Else
for i=1 to 7
response.write ("<table width="&TbaleWidth&" height=20 border=0 align=center cellpadding=0 cellspacing=0><tr>")
response.write ("<td width=19 align=center valign=middle><img src=images/xiaoduinews_tubiao1.gif width=3 height=5 /></td>")
response.write ("<td width=303 align=left valign=middle class=lxwm10>此处显示7行</td>")
response.write ("<td width=68 align=center valign=middle class=lxwm2>2009-03-04</td></tr></table>")
rs.movenext
if rs.eof then exit for
next
end if

end function

这个函数里 如何把
dim conn,db
dim connstr
db="data/database.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

单独提取出来 然后在Function里直接调用

Answer 1

Call ShowTopic(BigClassName,SmallClassName,TbaleWidth)