还有就是
我是通过以下代码判断的
select case action
case ""
title="公司简介"
tt=rs("UserCompanyContent")
case "jycp"
title="经营产品"
jycp
tt=str
case "wxbj"
title="维修报价"
tt=wrs("word")
case "fwzc"
title="服务支持"
tt= frs("word")
case "lxwm"
title="联系我们"
tt= lxwm
end select
其他的都能成功替换tt 可是就jycp的不行

我就是要把 分页程序生成的 html代码 放到str 里 然后 tt=str 就行了是吗？我上面的写怎么不行呢？错在哪里？指教！！

我把 sub 去了 可以出来了 但是现在是只给我显示了一个商品 就是没有循环好象 这个问题怎么解决啊？

Dim ReJycp
Sub jycp
'经营产品程序
pro2sql="select * from jycp where userid="&id&" order by istop desc,id desc "
Set pro2RS=Server.CreateObject("ADODB.Recordset")
pro2RS.Open pro2SQL,Conn,3,1
const MaxPerPage=25
Dim text,checkpage
text="0123456789"
pro2Rs.PageSize=MaxPerPage
For i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
IF checkpage=0 then
Exit for
End if
Next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > pro2Rs.PageCount Then CurrentPage = pro2Rs.PageCount
Else
CurrentPage= 1
End If
If not pro2Rs.eof Then
pro2Rs.AbsolutePage = CurrentPage
End if
Else
CurrentPage=1
End if
If pro2rs.eof and pro2rs.bof then
response.write "<p align=center><font color=#ff0000>还没任何商品资料</font></p>"
End If
Do While Not pro2rs.eof
ReJycp=ReJycp&"<table width=100% border=0 align=center cellpadding=2 cellspacing=1 ID=Table1><tr><td width=48% bgcolor=#EBEBEB>"
ReJycp=ReJycp&"&nbsp;&nbsp;<a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank><img src="&pro2rs("pic")&"border=0></a>"
ReJycp=ReJycp&"</td><td width=52% bgcolor=#EBEBEB><div align=center><a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank>"
ReJycp=ReJycp&pro2rs("title")&"</a></div></td></tr></table>"
pro2rs.movenext
Loop
ReJycp=ReJycp&"<font color='#000000'>页面-> </font>"
IF currentpage > 1 Then
ReJycp=ReJycp&"<a href=?&page="+cstr(1)+"><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"
ReJycp=ReJycp&"<a href=?page="+Cstr(currentpage-1)+"><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"
Else
ReJycp=ReJycp&"<font color='#000000'>首页-</font>"
ReJycp=ReJycp&"<font color='#000000'>前页-</font>'"
End IF
IF currentpage < pro2Rs.PageCount Then
ReJycp=ReJycp&"<a href=?page="&Cstr(currentPage+1)&"><font color='#000000'>后页</font></a><font color='#000000'><b>-</b>"
ReJycp=ReJycp&"</font>"
ReJycp=ReJycp&"<a href='?page="&Cstr(pro2Rs.PageCount)&" ><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"
Else
ReJycp=ReJycp&"<font color='#000000'>后页-</font>"
ReJycp=ReJycp&"<font color='#000000'>尾页</font>&nbsp;&nbsp;"
End if
ReJycp=ReJycp&"<font color=#000000>页次:</font>" & "<font color=#FF0000>"&Cstr(Currentpage)&"</font><font color='#000000'>/ "
ReJycp=ReJycp&Cstr(pro2rs.pagecount)&"</font>&nbsp;"
ReJycp=ReJycp&"<font color=#ff0000>"&Cstr(MaxPerPage)&"</font><font color='#000000'>种商品/页&nbsp 共</font>"
ReJycp=ReJycp&" <font color=#FF0000> "&Cstr(pro2Rs.RecordCount) &" </font>" & "<font color='#000000'>种商品</font>&nbsp;&nbsp;")
'调用经营产品程序
End sub
这样写试试看。

呵呵谢谢拉 在你写这段之前我已经弄出来拉 不过还要感谢斑竹了 不是你提点也出不来呵呵