📄 default.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%
Response.Expires=0
Response.Buffer = False
Server.ScriptTimeOut = 106000 'Script TimeOut = 600 Sec
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Function Proc_Add(nTemp)
'四位0--9  A--Z
	nID = nTemp
	cID = ""
	For i = 3 To 0 Step -1
		If nID >= 36^i Then
			nTemp1 = Int(nID/36^i)
			If nTemp1 < 10 Then
				cID = cID + CStr(nTemp1)
			Else
				cID = cID + Chr(65 + nTemp1 - 10)
			End If
			nID = nID - nTemp1*36^i
			
		Else
			cID = cID + "0"
		End If
	Next
	
	Proc_Add = cID
End Function

On Error Resume Next
Set Conn = session("AdoConnectObj")
'清除所有的业务数据[入库,出库,以及库房]

MySql = "Select PosiID From zd_GoodsPosition Where LEFT(PosiID,2) <> '00' And LEFT(PosiID,2) <> '01' And Leaf = 1"
Set Rs1 = Conn.Execute(MySql)

MySql = "Select DrugID From zd_DrugDetail"
Set Rs = Conn.Execute(MySql)

'Conn.BeginTrans

	MySql = "Delete yp_AdjustPrice_Inf"
	Conn.Execute(MySql)
	MySql = "Delete yp_int_Detail"
	Conn.Execute(MySql)
	MySql = "Delete yp_int_Main"
	Conn.Execute(MySql)
	MySql = "Delete yp_out_Detail"
	Conn.Execute(MySql)
	MySql = "Delete yp_out_Inseri"
	Conn.Execute(MySql)
	MySql = "Delete yp_out_Main"
	Conn.Execute(MySql)
	MySql = "Delete yp_Plan"
	Conn.Execute(MySql)
	MySql = "Delete yp_Prescription"
	Conn.Execute(MySql)
	MySql = "Delete yp_SaleDetail"
	Conn.Execute(MySql)
	MySql = "Delete yp_SaleRec"
	Conn.Execute(MySql)
	MySql = "Delete yp_storage"
	Conn.Execute(MySql)
	MySql = "Delete yp_storage_state"
	Conn.Execute(MySql)
	MySql = "Delete yp_MonthStorage"
	Conn.Execute(MySql)




'

	
	cOperID = "00"
	cYear = CStr(Year(Date))
	
	If Month(Date) >= 10 Then
		cMonth = CStr(Month(Date))
	Else
		cMonth = "0" + CStr(Month(Date))
	End If
	
	If Day(Date) >= 10 Then
		cDay = CStr(Day(Date))
	Else
		cDay = "0" + CStr(Day(Date))
	End If
	
	nCount = 0
	cPreStr = cYear + cMonth + cDay + cOperID
	'Response.Write cPreStr
	
	While NOT Rs.EOF
		cStorageCode = cPreStr + Proc_Add(nCount)
		cDrugID = Trim(Rs("DrugID"))
		MySql = "InSert Into yp_storage (StorageCode,DrugID,Amount,Position,Property) Values ('"+cStorageCode+"','"+cDrugID+"',0,'01','1')"
		
		Response.Write MySql + "<br>"
		Conn.Execute(MySql)
		
		Rs1.MoveFirst
		While NOT Rs1.EOF
			nCount = nCount + 1
			cStorageCode = cPreStr + Proc_Add(nCount)
			cPosition = Trim(Rs1("PosiID"))
			
			MySql = "InSert Into yp_storage (StorageCode,DrugID,Amount,Position,Property) Values ('"+cStorageCode+"','"+cDrugID+"',0,'"+cPosition+"','2')"
			Response.Write MySql + "<br>"
			Conn.Execute(MySql)
			Rs1.MoveNext
		Wend
		nCount = nCount + 1
		Rs.MoveNext
	Wend

	Set Rs = Nothing
	Set Rs1 = Nothing
'Conn.RollbackTrans
If Err.Description = "" Then
	'Conn.CommitTrans
	Response.Write "事务成功"
Else
	'Conn.RollbackTrans
	Response.Write "事务失败,原因是:"+Err.Description
End If

%>



</BODY>
</HTML>
⌨️ 快捷键说明

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