数组在FSO生成静态文件中如何使用
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/asp2htm800.asp" -->
<%
Dim rs__MMColParam
rs__MMColParam = "1"
if (Request.Form("Example_Type") <> "") then rs__MMColParam = Request.Form("Example_Type")
%>
<%
Dim i
Dim ii
Redim wenben(14)
Redim tupian(12)
Redim shuoming(12)
Dim filepath
Dim leixing
leixing = Request.Form("leixing")
%>
<%
sql = "Select * from " & leixing & ""
Set rs2 = Server.CreateObject ("ADODB.Recordset")
rs2.Open sql,conn,3,2
%>
<%
i=0
Do while i<=11
tupian(i)=rs2("100_75")
shuoming(i)=rs2("bizhiname")
filepath="../inde_lianxi.html"
i=i+1
rs2.movenext
Loop
%>
<%
rs2.Close()
Set rs2 = Nothing
conn.close
set conn=Nothing
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_asp2htm_STRING
rs.Source = "SELECT * FROM inde_Example WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
%>
<%
pencat=rs.Fields.Item("E_Meno").Value '替换模板中的内容为输入的内容
ii=0
Do while i<=11
pencat=replace(pencat,"mtupian(ii)",tupian(ii))
pencat=replace(pencat,"mshuoming(ii)",shuoming(ii))
'把数据动态内容写成静态文件
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine pencat
fout.close
ii=ii+1
Loop
rs.Close()
%>
请看上面的程序代码,行吗?
参考答案:破解网站发布系统 ASP生成静态页面方法
参考资料: