!-- #include file="../conn.asp" -->
!-- #include file="../cls_main.asp" -->
html>
head>
meta http-equiv="Content-Language" content="zh-cn">
meta http-equiv="Content-Type" content="text/html; charset=gb2312">
title>生成百度XML/title>
/head>
body>
%
dim sid,eid
sid=abs(request("sid"))
if sid=0 then
sid=0
else
sid=cint(request("sid"))
end if
eid=cint(request("eid"))
if eid=0 then
eid=500
else
eid=cint(request("eid"))
end if
Dim tt,ResNum
Set tt = New Cls_Main
ResNum = CLng(tt.Execute("select max(id) from table")(0))
Set Mesky = Nothing
%>

table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
form method="POST" action="?action=html">
tr>
td width="9%">开始ID:/td>
td width="35%">input type="text" name="sid" size="20" value="%=sid%>">/td>
td width="8%">结束ID:/td>
td width="23%">input type="text" name="eid" size="20" value="%=eid%>">(最大ID:%=ResNum%>)/td>
td width="23%">input type="submit" value="提交" name="B1">/td>
/tr>
/form>
%
if request("action")="html" then
Response.Write " tr>td colspan=5>" vbNewLine
Response.Write "br>br>" vbNewLine
Response.Write "正在生成 font color='red'>b>" eid ".xml/b>/font> 文件…… " vbNewLine
Response.Write "br>br>" vbNewLine
Response.Write " 　/td>/tr>tr>td colspan=5>" vbNewLine
Response.Flush

If (eid-500) > ResNum Then
Response.Write "恭喜您操作成功!"
Response.Flush
else
creat(sid)
sid=sid+500
eid=eid+500
Response.Write "meta http-equiv=""refresh"" content=""10;url=?action=htmlsid="sid"eid="eid""">"
End If
end if

Function creat(id)
Response.Write "IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="sid"endid="eid">/IFrame>"
End Function
%>
/td>/tr>
/table>
/body>
/html>