newporeceive.asp

1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷

<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "po","read"
set objcheck=nothing

	dim conn
	dim rspo 
	set conn=server.CreateObject("adodb.connection")
	conn.Open connstring

if Request("poid")<>"" then
	sql="select * from v_po where poid="&request("poid")
	set rspo=conn.Execute(sql)
	if rspo.EOF then
		Response.Write "记录不存在"
		Response.End 
	end if

	sql="select * from v_poline where poid="&Request("poid")
	set rs=conn.Execute(sql)

	set rsd=conn.Execute("delete from podeliverytemp where userid='"&session("loginid")&"'")
	do while not rs.eof
		sql="insert into podeliverytemp(poid,lineid,pono,productid,slipno,specialpriceno,productcode,Model,qty,issuedqty,receiveqty,price,amount,userid) values("&rs("poid")&","&rs("lineid")&",'"&rs("pono")&"',"&rs("productid")&",'"&rs("slipno")&"','"&rs("specialpriceno")&"','"&rs("productcode")&"','"&rs("Model")&"',"&rs("qty")&","&rs("issuedqty")&","&rs("qty")-rs("issuedqty")&","&rs("price")&","&rs("amount")&",'"&session("loginid")&"')"
		'Response.Write sql
		'Response.End 
		set rsc=conn.Execute(sql)
	rs.movenext
	loop
else
	set rsd=conn.Execute("delete from podeliverytemp where userid='"&session("loginid")&"'")
end if
Response.Redirect "deliveryprintselect.asp?poid="&request("poid")
%>