p_ok.asp

湘域源在线产品防伪查询系统 可以查系统已有的防伪码

<!-- #include file="Include/conn.asp" -->
<!-- #include file="Include/Chk.asp" -->
<%
function gen(digits)
	dim rndnum,num
	Randomize
	Do while Len(rndnum)<digits
	num = Cstr(Chr((57-48)*rnd+48))
	rndnum = rndnum & num
	Loop
	gen = rndnum
End function

Server.ScriptTimeout=99999999
name=Request.Form("name")
num=Request.Form("num")
if not isnumeric(name) or not isnumeric(num) then
	Response.Write("<script>alert('输入错误，产品编码和生成数量都应该是数字!');history.back();</script>")
	Response.End()
end if
num=cint(num)
if num>9999 then
	Response.Write("<script>alert('每次只能生成9999个防伪码!');history.back();</script>")
	Response.End()
end if

Response.ContentType ="application/vnd.ms-Excel"

%>
<table width="300" border="1" cellspacing="0" cellpadding="0">
<%
n=1
do while n<=num
	p=name&"-"&gen(4)&"-"&gen(4)&"-"&gen(4)
	Set rs=conn.execute("select top 1 id from zm_p where p='"&p&"'")
	if rs.eof then
		conn.execute("insert into zm_p(p) values('"&p&"')")
		n=n+1
%>
  <tr>
    <td align="left">
	<%=p%>
	</td>
  </tr>
<%
	end if
loop
%>
  <tr>
    <td align="right">制表日期：<%=now()%></td>
  </tr>
</table>