在从数据库调用模板时 需要将$tt$ 变为代码 所以要用replace 可是我要调用的是一段带分页的显示文章的程序 要把$tt$ 和这段代码替换 怎么弄啊 我把 这段代码 用 sub 写的

那我sub jycp
.
.程序
.
end sub
我想让tt=jycp
然后再执行skinmain=replace(skinrs("skinmain"),"$tt$",tt)
可是出不来效果
高手指点该怎么样来做

简单的效果出来了 可就是 jycp 这段代码好长 怎么弄！！！谢谢了！！！！

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
%><table width="100%" border=0 align=center cellpadding=2 cellspacing=1><tr><td width="48%" bgcolor=#EBEBEB>
&nbsp;&nbsp;<a href="zi_jycpxx.asp?ssid=<%=pro2rs("id")%>&id=<%=id%>" target=_blank><img src="&pro2rs("pic")&"border=0></a>"
"</td><td width=52% bgcolor=#EBEBEB><div align=center><a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank>
<%=pro2rs("title")%></a></div></td></tr></table>"
<%pro2rs.movenext
loop
Response.write "<font color='#000000'>页面-> </font>"
If currentpage > 1 Then
response.write "<a href=?&page="+cstr(1)+"><font color='#000000'>首页</font></a><font color='#000000'><b>-</b></font>"
Response.write "<a href=?page="+Cstr(currentpage-1)+"><font color='#000000'>前页</font></a><font color='#000000'><b>-</b></font>"
Else
Response.write "<font color='#000000'>首页-</font>"
Response.write "<font color='#000000'>前页-</font>'"
End if
If currentpage < pro2Rs.PageCount Then
Response.write "<a href=?page="+Cstr(currentPage+1)+"><font color='#000000'>后页</font></a><font color='#000000'><b>-</b>"
response.Write("</font>")
Response.write "<a href='?page='+Cstr(pro2Rs.PageCount)+''><font color='#000000'>尾页</font></a>&nbsp;&nbsp;"
Else
Response.write "<font color='#000000'>后页-</font>"
Response.write "<font color='#000000'>尾页</font>&nbsp;&nbsp;"
End if
Response.write "<font color=#000000>页次:</font>" & "<font color=#FF0000>"&Cstr(Currentpage)&"</font><font color='#000000'>/ "
response.Write( Cstr(pro2rs.pagecount) &" </font>&nbsp;" )
Response.write "<font color=#ff0000>"&Cstr(MaxPerPage)&" </font><font color='#000000'>种商品/页&nbsp 共</font>"
response.Write(" <font color=#FF0000> "&Cstr(pro2Rs.RecordCount) &" </font>" & "<font color='#000000'>种商品</font>&nbsp;&nbsp;")
'调用经营产品程序
end sub

这个是我写的jycp 本来代码很好 但被我来回折腾 可能乱了点了
总之我笨拉 怎样 能让 tt 得到这段代码的返回值？我觉得 代码都要放到tt中 哪个算他的返回值？
我的目的是 在tt的地方显示这段代码的效果 也就是显示所有产品
还望再赐教！！！！不胜感激！！！

[此贴子已经被作者于2007-5-17 18:06:10编辑过]

是分页程序 ，我就是要在tt的相应位置把分页程序显示出来就可以了 其实 除了sub 和end sub 之外 剩下的代码应该是都放到tt的位置上 这样就能正确显示我想要的效果  可是那些代码 又不能放到模板里 只能外调 唉 实在明白不了您的意思

是的 我也想到了这样做 我想的是 把 循环的 html代码 放到一个变量里 然后加上<tabls></table>标记 一起放进去
比如
<%
do while not pro2rs.eof
str="<tr><td width=48% bgcolor=#EBEBEB>"
str=str&"&nbsp;&nbsp;<a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank><img src="&pro2rs("pic")&"border=0></a>"
str=str&"</td><td width=52% bgcolor=#EBEBEB><div align=center><a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id
str=str&" target=_blank>"&pro2rs("title")&"</a></div></td></tr>"
pro2rs.movenext
loop
str="<table>"&str&"</table>"
tt=str%>
然后再执行skinmain=replace(skinrs("skinmain"),"$tt$",tt)
这样行吗

上面这段代码属于sub jycp
在一开始还有判断
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
怎样才能让action=jycp 时 tt=str 我是按上面我写的代码写的 可是显示不出来tt 帮我看看 怎么回事 呢 谢谢！

[此贴子已经被作者于2007-5-18 8:22:01编辑过]

为什么把我的内容固封 什么意思 ？想解决问题罢了 我有什么地方做错了吗？这样我怎么问问题呢 ？请有关人士给个说法吧？？？不懂！！！

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是要分页显示 产品
do while not pro2rs.eof
str="<tr><td width=48% bgcolor=#EBEBEB>"
str=str&"&nbsp;&nbsp;<a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank><img src="&pro2rs("pic")&"border=0></a>"
str=str&"</td><td width=52% bgcolor=#EBEBEB><div align=center><a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id
str=str&" target=_blank>"&pro2rs("title")&"</a></div></td></tr>"
pro2rs.movenext
loop
str="<table>"&str&"</table>"
上面这段代码是在jycp中的 并且用的是 sub jycp 这样怎么从 sub里提取 str呢

do while not pro2rs.eof

str="<tr><td width=48% bgcolor=#EBEBEB>"
str=str&"&nbsp;&nbsp;<a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id&" target=_blank><img src="&pro2rs("pic")&"border=0></a>"
str=str&"</td><td width=52% bgcolor=#EBEBEB><div align=center><a href=zi_jycpxx.asp?ssid="&pro2rs("id")&"&id="&id
str=str&" target=_blank>"&pro2rs("title")&"</a></div></td></tr>"
pro2rs.movenext
loop
str="<table>"&str&"</table>"这样写可以吗？是写在sub里的

[此贴子已经被作者于2007-5-18 8:29:06编辑过]

还有就是
我是通过以下代码判断的
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 去了 可以出来了 但是现在是只给我显示了一个商品 就是没有循环好象 这个问题怎么解决啊？