ASP函数问题

显示全部楼层 · 2008-7-16 21:33:08

用：调用下面函数没反应啊，什么都不显示。哪里出问题了？
Sub ProductZY()
dim rs_ProductZY,sql_ProductZY,row_count,strLb,strli
set rs_ProductZY=server.createobject("adodb.recordset")
sql_ProductZY="select top 8 * from Bs_Product order by ID desc"
rs_ProductZY.open sql_ProductZY,conn,1,1
Response.Write "[TR][TD][/TD][/TR]"
row_count=1
Response.Write "[TR]"
Do While Not rs_ProductZY.EOF
strli=""
strli=strli & " ● 产品名称："& rs_ProductZY("Title") &" "&chr(13)
strli=strli & " ● 产品规格："& rs_ProductZY("Spec") &" "&chr(13)
strli=strli & " ● 产品尺寸："& rs_ProductZY("Size") &" "
strLb=""
strLb=strLb & "[TD]"
strLb=strLb & "

"

strLb=strLb & "[TR][TD][/TD][/TR]"

strLb=strLb & ""

strLb=strLb & "strli &"'>"

strLb=strLb & "

"

strLb=strLb & ""

strLb=strLb & "[TR][TD][/TD][/TR]"

'strLb=strLb & "产品名称"

strLb=strLb & ""

strLb=strLb & "&"'>"& gotTopic(rs_ProductZY("Title"),16) &""

strLb=strLb & ""

strLb=strLb & "

"

strLb=strLb & ""

strLb=strLb & "[/TD]"

Response.Write strLb

if row_count mod 4 0 then

end if

if row_count mod 4 =0 then

Response.Write "[/TR][TR]"

end if

rs_ProductZY.MoveNext

row_count=row_count+1

Loop

rs_ProductZY.close

Response.Write "[/TR][TR][TD][/TD][/TR]

"
set rs_rs_ProductZY=nothing
END Sub
用response.write "1"
显示为1

千问 · 2008-7-16 21:33:08

你在rs_ProductZY.open sql_ProductZY,conn,1,1 这个下面加response.write "1"response.end看看哪出错了，也可以response.err.number