Question

如何在外部网站调用sub（有实例?

请教一下，我想把首页(http://www.366200.cn )中间的“最新加盟”内容调用到新闻系统的“最新加盟

商家”版块(http://www.366200.cn/xw)，调用不成功，这是什么原因？

“最新加盟”是采取调用SUB过程的方法来调用，即要要调用的单元格：

<td height="138" colspan="3"><font color=red><%NewsJoinShop()%></font></td>

Sub子程序内容如下：

<%
'###########################################
'首页“新最加盟商家”列表块
Sub NewsJoinShop()
Dim newsJoinShopSql,JoinShoprs,ii,jj
Dim ShopID,News_ShopName,News_ShopNames,News_Discountsx
Set JoinShoprs=Server.CreateObject("ADODB.Recordset")
newsJoinShopSql="Select Top 12 * From D_Shoplist Order by Createtime Desc"
JoinShoprs.Open newsJoinShopSql,Conn,1,1
%>
<table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
<%
If Not(JoinShoprs.Eof And JoinShoprs.Bof) Then
Set sortrs=Server.CreateObject("ADODB.Recordset")
For ii= 1 To 6 '行数
%>
<tr>
<%
For jj= 1 To 2 '列数
If Not(JoinShoprs.Eof) Then
News_ShopName = HTMLEncodex(JoinShoprs("ShopName"))
News_ShopNames = LeftLen(News_ShopName,12)
ShopID = JoinShoprs("ID")
News_Discountsx = JoinShoprs("Discount_sx")
News_SortID = JoinShoprs("SortID")
sortSql="Select * From D_TraderType_b Where ID="&News_SortID&""
sortrs.Open sortSql,Conn,1,1
If Not(sortrs.Eof And sortrs.Bof) Then
sortName = Left(sortrs("Title"),1)
End If
sortrs.Close
%>
<td width="290" height="20"><div align="left" class="a08">【<%=sortName%>】<a

href="trader/showshop.asp?shopid=<%=ShopID%>" target="_blank"><%=News_ShopNames%></a> <span

class="a07"><%=News_Discountsx%></span></div></td>
<%
JoinShoprs.MoveNext
Else
Response.Write("<td width='290' height='20'> </td>")
End If
Next
%>
</tr>
<%
Next
Set sortrs=Nothing
Else
Response.Write("<tr><td height='18' valign='top'>暂无最新加盟商家信息</td></tr>")
End If
%>
</table>
<%
JoinShoprs.Close
Set JoinShoprs=Nothing
End Sub
%>

说明：
新闻系统(http://www.366200.cn/xw)的“最新加盟商家”版块生成的是静态页面，我把调用子程序的代

码<%NewsJoinShop()%>放到生成页面模板中重于泰山静态页面，显示内容为空，也就是无法调用，请教

一下是怎么回事，谢谢！
服务器上.html文件具有执行程序的权限，因为新闻系统本身就是静态化了的

再补充一下，新闻系统用的是另外一个系统，用AC数据库；
网站首页采用的是mssql

Answer 1

我搞不懂，你的服务器上，是否把.html文件也设成了有执行程序的权限？
如果没有，你把asp代码放在.html这样的静态文件里，会运行吗？
你可以把你的首页名改成.asp试下。