求一个asp取值范围发送表单及循环代码

来源：百度知道 编辑：UC知道 时间：2024/09/24 13:56:20
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
For i=1 To 980
Html_Temp = Html_Temp&"<LI>"
Item_Classid = i
FileName = "q"&Item_Classid&".html"
FilePath = Server.MapPath("/ask/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/ask/answer1.asp"
Do_Url = Do_Url&"?id="&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(

用你的代码做了点小修改，手写没测试过，你试试看

<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp,start_id,end_id
start_id=request("start_id")
end_id=request("end_id")
if start_id="" or isnumeric(start_id)=false or end_id="" or isnumeric(end_id)=false or start_id>=end_id then response.write "<form method=""get"">开始值<input type=""text"" name=""start_id""><br>结束值<input type=""text"" name=""end_id""><input type=""submit"" value=""提交""></form>":response.end
start_id=cint(start_id)
end_id=cint(end_id)
Html_Temp="<UL>"
For i=start_id To end_id
Html_Temp = Html_Temp&"<LI>"
Item_Classid = i
FileName = "q"&Item_Classid&".html"
FilePath = Server.MapPath