下面是一段可以生成很多帖子的的代码
………问题:这段代码能生成帖子,但没有内容,求各位告诉下怎么加进我想生成的内容需要建立另外建立文件包做个模版。。从模版取。。还是直接在本代码加进内容就可以了。非常感谢:QQ:522205877
<%
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")&"/detail.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 Html_Temp
Response.Write ( "<BR>" )
Response.Write ( "成功生成文件:" )
%>
………问题:这段代码能生成帖子,但没有内容,求各位告诉下怎么加进我想生成的内容需要建立另外建立文件包做个模版。。从模版取。。还是直接在本代码加进内容就可以了。非常感谢:QQ:522205877
<%
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")&"/detail.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 Html_Temp
Response.Write ( "<BR>" )
Response.Write ( "成功生成文件:" )
%>
解决方案 »
- Reporting service
- .net如何实现实现合成、变色、旋转、看效果图等功能
- 百分问网站上传后出现的问题?很急....................................................................................
- 100分 请问为什么基于BS的系统,网站,注册不能用 中文 用户名 ,这是出于对什么的考虑?
- 错误缺少";",代码:0”的错误
- 在线请教:我每个页面都要连接数据库,能不能象ASP那样,把连接数据库的语句放在一个文件里,然后在需调用的每个文件里前面INCLUDE该文件
- CSDN里来消息时的提示音是怎么弄出来的?
- 求价格的正则表达式!在线等ing,先来先送分!
- !关于oledbcommand的问题明明没有错误,为什么提示有错误,请教各位高人……
- 在ASP.NET中连接数据库时,能否象JAVA中那样将连接数据库的代码封装在Javabean里?
- 页面提交不能显示原来的内容?
- 如何获得GridView上的值
555555555555555555555