<!-- #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=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>
</html>
我要评论
网友评论