📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
dim AccountID,AccountName

dim szSQL,x,y,rsCheck,ssSQL, rs
x=""
y=""

	  
szSQL="SELECT COUNT(*) AS rc FROM biCorperation WHERE InfoType=1 AND Title='" & SQLInputParam(GetForm("CorperationText")) & "'"
rsCheck=Conn.Execute(szSQL)
if rsCheck("rc")=1 then
	szSQL="SELECT [ID],[ParentID],[Title],[Type] FROM biCorperation WHERE InfoType=1 AND Title='" & SQLInputParam(GetForm("CorperationText")) & "'"
	rsCheck=Conn.Execute(szSQL)
	AccountID=rsCheck("ID")
	AccountName=rsCheck("Title")
	if CStr(rsCheck("ParentID"))<>"0" then
		select case rsCheck("Type")
			case 0
				y="JXB"
			case 1
				y="SCC"
		end select
	end if
	szSQL="SELECT COUNT(*) AS rc FROM biUser WHERE InfoType=8 AND AccountID=" & AccountID & " AND Title='" & SQLInputParam(GetForm("UserText")) & "'"
	rsCheck=Conn.Execute(szSQL)
	if rsCheck("rc")=1 then
		szSQL="SELECT [ID], [Title], nvarchar1 AS [Password] FROM biUser WHERE InfoType=8 AND AccountID=" & AccountID & " AND Title='" & SQLInputParam(GetForm("UserText")) & "'"
		rsCheck=Conn.Execute(szSQL)
		if GetForm("Password")=rsCheck("Password") then
			Session("Logon")=1
			Session("AccountID")=AccountID
			Session("AccountName")=AccountName
			Session("UserID")=rsCheck("ID")
			Session("UserName")=rsCheck("Title")
			x="LogonOK"
		end if
	else
		ssSQL="SELECT [biUser].[ID],[biUser].[Title],[biUser].[NvarChar1] AS [Password] FROM [bdUserArea] AS [vt],[bdUserAreaList] AS [vl],biCorperation,biSection,biArea,biUser " &_
		"WHERE [vt].[ID]=[vl].[ID] AND [biSection].[ID]=[vl].[ProductID] AND [biCorperation].[BigInt1]=[biArea].[ID] AND " &_	 
		"[biCorperation].[BigInt2]=[biSection].[ID] AND [biUser].[AccountID]=1 AND [biUser].[Title]='" &  SQLInputParam(GetForm("UserText")) & "' AND " &_
		"[biCorperation].[ID]=" & AccountID
		Set rs=Server.CreateObject("ADODB.RecordSet")
		rs.Open ssSQL,Conn,1,1
		if rs.RecordCount >0 then
			if GetForm("Password")=rs("Password") then
				Session("Logon")=1
				Session("AccountID")=AccountID
				Session("AccountName")=AccountName
				Session("UserID")=rs("ID")
				Session("UserName")=rs("Title")
				x="LogonOK"
			end if
		end if					
	end if
end if
%>
<%
dim rsph,rsdb,rsth
dim varph,vardb,varth
dim mes
dim dateDiffrentph,DayAmountph,dateDiffrentdb,DayAmountdb,dateDiffrentth,DayAmountth
mes = ""
szSQL="SELECT [biSetAlert].[Int3] AS DayAmount,StockOut.[Title] AS OutStock,StockIn.[Title] AS InStock,B.[UpdateDate] FROM [BillDocument] A,[BillDocument] B,[biStock] StockOut,[biStock] StockIn,[biSetAlert] WHERE A.BillType=45 AND B.BillType=43 AND A.AuditID=0 AND B.AuditID<>0 AND A.RootID=B.ID AND [biSetAlert].[Int1]=B.[Organization] AND [biSetAlert].[Int2]=B.[Stock] AND B.[Stock]=StockOut.[ID] AND B.[Organization]=StockIn.[ID]"
set rsph=conn.execute(szSQL)
While not rsph.EOF 
	dateDiffrentph=cint(datediff("d",rsph("UpdateDate"),now()))
	DayAmountph=cint(rsph("DayAmount"))
	varph=datediff("d",rsph("UpdateDate"),now())
	if varph > rsph("DayAmount") then
		mes = mes & "从" & rsph("OutStock") & "配货到" & rsph("InStock") & "已超期" & (dateDiffrentph-DayAmountph) & "天!----"
	end if
	rsph.movenext()
wend
rsph.close

szSQL="select [biSetAlert].[Int3] AS DayAmount,StockOut.[Title] AS OutStock,StockIn.[Title] AS InStock,B.[UpdateDate] from [BillDocument] A,[BillDocument] B,[biStock] StockOut,[biStock] StockIn,[biSetAlert] WHERE A.RootID=B.ID AND A.AuditID=0 AND B.AuditID<>0 AND A.BillType=15 AND B.BillType=44 AND [biSetAlert].[Int1]=B.[Stock] AND [biSetAlert].[Int2]=B.[Organization] AND B.[Stock]=StockOut.[ID] AND B.[Organization]=StockIn.[ID]"
set rsdb=Server.CreateObject("ADODB.RecordSet")
rsdb.open szSQL,conn,1,1
While not rsdb.EOF 
	dateDiffrentdb=cint(datediff("d",rsdb("UpdateDate"),now()))
	DayAmountdb=cint(rsdb("DayAmount"))
	varph=datediff("d",rsdb("UpdateDate"),now())
	if varph > rsdb("DayAmount") then
		mes = mes & "从" & rsdb("OutStock") & "调拨到" & rsdb("InStock") & "已超期" & (dateDiffrentdb-DayAmountdb) & "天!----"
	end if
	rsdb.movenext()
wend
rsdb.close

szSQL="select [biSetAlert].[Int3] AS DayAmount,StockOut.[Title] AS OutStock,StockIn.[Title] AS InStock,B.[UpdateDate] from [BillDocument] A,[BillDocument] B,[biStock] StockOut,[biStock] StockIn,[biSetAlert] WHERE A.RootID=B.ID AND A.AuditID=0 AND B.AuditID<>0 AND A.BillType=50 AND B.BillType=49 AND [biSetAlert].[Int1]=B.[Stock] AND [biSetAlert].[Int2]=B.[Organization] AND B.[Stock]=StockOut.[ID] AND B.[Organization]=StockIn.[ID]"
set rsth=Server.CreateObject("ADODB.RecordSet")
rsth.open szSQL,conn,1,1
While not rsth.EOF 
	dateDiffrentth=cint(datediff("d",rsth("UpdateDate"),now()))
	DayAmountth=cint(rsth("DayAmount"))
	varph=datediff("d",rsth("UpdateDate"),now())
	if varph > rsth("DayAmount") then
		mes = mes & "从" & rsth("OutStock") & "退货到" & rsth("InStock") & "已超期" & (dateDiffrentth-DayAmountth) & "天!----"
	end if
	rsth.movenext()
wend
rsth.close



%>
</BODY>

<script>
var data=new Array('<%=x%>','<%=y%>');
IClient('data',data);
IClient('end','');
</script>
<script>
var message,UserText;
message='<%=mes%>';
UserText='<%=GetForm("UserText")%>'
if(message != '' && UserText=='system'){
	alert(message);
}
</script>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -