<!--#include file=Config.asp-->
<!--#include file=Function.asp-->
<!--#include file=TopMain.asp-->
<table border="0" cellspacing="0" cellpadding="0" height="3"><tr><td width="100%"></td></tr></table>
<%
ClassID = Request.Form("ClassID")
MakeNum = Request.Form("MakeNum")
MakeTime = Request.Form("MakeTime")
MakeSize = Request.Form("MakeSize")
MakeContent = Request.Form("MakeContent")

If isnumeric(MakeNum)=False or isnumeric(MakeTime)=False or isnumeric(MakeSize)=False or isnumeric(MakeContent)=False then
	Call ShowErr("参数错误!")
	Response.end()
End If
	If MakeNum=0 Then MakeNum=1
	If MakeContent=0 Then
		If MakeNum>50 Then
			Call ShowErr("生成个数不能大于50个!")
			Response.end()
		End If
	Else
		If MakeNum>15 Then
			Call ShowErr("包含详细描述时生成个数不能大于15个!")
			Response.end()
		End If
	End If
	HttpUrl="http://www.ep8.net/Make.asp?ClassID="&ClassID&"&MakeNum="&MakeNum&"&MakeTime="&MakeTime&"&MakeSize="&MakeSize&"&MakeContent="&MakeContent&"&Action=OK"
	StartGet = GetHttpPage(HttpUrl)
	List=GetBody(StartGet,"<!--列表开始-->","<!--列表结束-->",False,False)
	List=replace(List,"http://www.ep8.net/Html/",""&SiteUrl&"Show.asp?ID=")
	List=replace(List,".html","")
  List=replace(List,"_blank","")	
	If List<>"$False$" Then
		Response.write List
	Else
		Response.write ErrMsg
	End If
%>
</body></html>
