高考问答公寓装修效果图大全2015图片:asp生成静态页面,的文件名的问题
来源：百度文库 编辑：高考问答 时间：2024/04/28 02:26:20
这样怎么弄啊`帮帮忙``谢
==============================
那个ID是提交过来的`
id=request.form("ID")'读取ID
if id= ""then
ID=5
end if
'生成HTML文件名，建立文件夹，指定文件路径
dim fname
fname = music"&rs(ID)&".htm
folder = "../music/"
filepath = folder&fname
====================
我要用fso组件生成了啦`不有签名那种方法,三楼的``不过也谢谢你
如果只是要输出ID，那就用 "abcuu"&rs(id)&".htm"
如果你不会输出整个文件名，那在这里就不好说了！！
下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面，分别生成ndex1.htm,index2.htm,index3.htm存在根目录下面
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
For i=1 To 3
Html_Temp = Html_Temp&"<LI>"
Item_Classid = i
FileName = "Index"&Item_Classid&".htm"
FilePath = Server.MapPath("/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"
Do_Url = Do_Url&"?Item_Classid="&Item_Classid
strUrl = Do_Url
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Next
Html_Temp = Html_Temp&"<UL>"
%>
<%
Response.Write ( "成功生成文件：" )
Response.Write ( "<BR>" )
Response.Write Html_Temp
%>
网上生成静态页面的程序很多的，你自己下一个用呀