<!--#include file= ". /conn.asp "-->
<!--#include file= ". /cls_main.asp "-->
<meta http-equiv= "Content-language" content= "ZH-CN" >
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> generate Baidu Xml</title>
<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%" > Start id:</td>
<TD width= "35%" ><input type= "text" name= "Sid" Size= "M" value= "<%=sid%>" ></td>
<TD width= "8%" > End id:</td>
<TD width= "23%" ><input type= "text" name= "Eid" size= "M" value= "<%=eid%>" > (max id:<%=resnum%>) </td>
<TD width= "23%" ><input type= "Submit" value= "submitted" name= "B1" ></td>
</tr>
</form>
<%
If Request ("action") = "html" then
Response.Write "<tr><td colspan=5>" & vbNewLine
Response.Write "<br><br>" & vbNewLine
Response.Write "is generating <font color= ' red ' ><b> ' & Eid & ' .xml</b></font> files ... "& vbNewLine
Response.Write "<br><br>" & vbNewLine
Response.Write "</td></tr><tr><td colspan=5>" & vbNewLine
Response.Flush
If (eid-500) > Resnum Then
Response.Write "Congratulations on your successful operation!"
Response.Flush
Else
creat (SID)
sid=sid+500
eid=eid+500
Response.Write "<meta http-equiv=" "Refresh" "content=" "10;url=?action=html&sid=" &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>
