ASP 배치 생성을 작성하는 방법을 거의 잊어버렸습니다. 스스로 정적 페이지를 생성하기 위해 ASP를 작성해야 하는 친구들은 이를 참조할 수 있습니다.
다음과 같이 코드 코드를 복사합니다.
<!-- #include 파일="../conn.asp" -->
<!-- #include 파일="../cls_main.asp" -->
<html>
<머리>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Baidu XML 생성</title>
</head>
<본문>
<%
딤 시드, 이드
sid=abs(요청("sid"))
sid=0이면
시드=0
또 다른
sid=cint(요청("sid"))
종료하면
eid=cint(요청("eid"))
eid=0이면
이드=500
또 다른
eid=cint(요청("eid"))
종료하면
희미한 tt,ResNum
tt = 새 Cls_Main으로 설정
ResNum = CLng(tt.Execute("테이블에서 max(id) 선택")(0))
Mesky = 없음 설정
%>
<테이블 셀 간격="0" cellpadding="0">
<form method="POST" action="?action=html">
<tr>
<td>시작 ID:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>종료 ID:</td>
<td><input type="text" size="20" value="<%=eid%>">(최대 ID:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</form>
<%
request("action")="html"이면
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
응답.플러시
If (eid-500) > ResNum Then
응답.쓰기 "성공적인 운영을 축하합니다!"
응답.플러시
또 다른
생성(시드)
시드=시드+500
이드=이드+500
Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
종료 조건
종료하면
함수creat(id)
Response.Write "<IFRame 이름=tt 프레임 테두리=0 너비=100% 높이=30 스크롤=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&">< /IFrame>"
기능 종료
%>
</td></tr>
</table>
</body>
</html>