<BR /><!-- #include file="../conn.asp" --> <BR /><!-- #include file="../cls_main.asp" --> <BR /><html> <BR /><head> <BR /><meta http-equiv="Content-Language" content="zh-cn"> <BR /><meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <BR /><title>生成百度XML</title> <BR /></head> <BR /><body> <BR /><% <BR />dim sid,eid <BR />sid=abs(request("sid")) <BR />if sid=0 then <BR />sid=0 <BR />else <BR />sid=cint(request("sid")) <BR />end if <BR />eid=cint(request("eid")) <BR />if eid=0 then <BR />eid=500 <BR />else <BR />eid=cint(request("eid")) <BR />end if <BR />Dim tt,ResNum <BR />Set tt = New Cls_Main <BR />ResNum = CLng(tt.Execute("select max(id) from table")(0)) <BR />Set Mesky = Nothing <BR />%> <br /><br /><table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0"> <BR /><form method="POST" action="?action=html"> <BR /><tr> <BR /><td width="9%">开始ID:</td> <BR /><td width="35%"><input type="text" name="sid" size="20" value="<%=sid%>"></td> <BR /><td width="8%">结束ID:</td> <BR /><td width="23%"><input type="text" name="eid" size="20" value="<%=eid%>">(最大ID:<%=ResNum%>)</td> <BR /><td width="23%"><input type="submit" value="提交" name="B1"></td> <BR /></tr> <BR /></form> <BR /><% <BR />if request("action")="html" then <BR />Response.Write " <tr><td colspan=5>" & vbNewLine <BR />Response.Write "<br><br>" & vbNewLine <BR />Response.Write "正在生成 <font color='red'><b>" & eid & ".xml</b></font> 文件…… " & vbNewLine <BR />Response.Write "<br><br>" & vbNewLine <BR />Response.Write " </td></tr><tr><td colspan=5>" & vbNewLine <BR />Response.Flush <br /><br />If (eid-500) > ResNum Then <BR />Response.Write "恭喜您操作成功!" <BR />Response.Flush <BR />else <BR />creat(sid) <BR />sid=sid+500 <BR />eid=eid+500 <BR />Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">" <BR />End If <BR />end if <br /><br />Function creat(id) <BR />Response.Write "<IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.51frw.cn/cls_create.asp?startid="&sid&"&endid="&eid&"></IFrame>" <BR />End Function <BR />%> <BR /></td></tr> <BR /></table> <BR /></body> <BR /></html> <BR />
【说明】：本文章由站长整理发布，文章内容不代表本站观点，如文中有侵权行为，请与本站客服联系(QQ:254677821)！