📄 createdict.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
Server.ScriptTimeOut = 300
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>

<%
'On Error Resume Next
Set Conn = session("AdoConnectObj")
'<一>
'将KF_M_MS_1022和Kufang_1025组合
'MySql = "Select 用例名称 From Kufang_1025"
'Set Rs = Conn.Execute(MySql)

'While NOT Rs.EOF
'	MySql = "Select F1 From KF_M_MS_1022 Where DrugName = '"+Trim(Rs("用例名称"))+"'"
'	Set Rs1 = Conn.Execute(MySql)
'	If NOT Rs1.EOF Then
'		MySql = "Update Kufang_1025 Set 分类名称 = '"+Trim(Rs1("F1"))+"' Where 用例名称 = '"+Trim(Rs("用例名称"))+"'"
'	Else
'		Set Rs1 = Nothing
'		MySql = "Select 分类名称 From K_M_1025 Where 用例名称 = '"+Trim(Rs("用例名称"))+"'"
'		Set Rs1 = Conn.Execute(MySql)
'		If NOT Rs1.EOF Then
'			MySql = "Update Kufang_1025 Set 分类名称 = '"+Trim(Rs1("分类名称"))+"' Where 用例名称 = '"+Trim(Rs("用例名称"))+"'"
'		Else
'			MySql = "Select * From K_M_1025 Where 分类名称='1'"
'		End If
'	End If
'	Conn.Execute(MySql)
'	Set Rs1 = Nothing
'
'	Rs.MoveNext
'Wend

'Set Rs = Nothing


'<二>
'将K_M_1025和Kufang_1025合并为 K_M_1025
'MySql = "Insert Into K_M_1025 Select * From Kufang_1025"

'将K_M_1025插入到zd_DrugDetail中去





Function GetChinesePYCode(SourceStr) '处理拼音码
  'Dim Serial_S As String
  'Dim Serial_T As String
  'Dim TempS As String
  'Dim j As Integer
  Dim i
  Dim j
  
  'Dim i As Integer
  'Dim HelpChar As String
  
  Serial_S = "啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖昔压匝座"
  Serial_T = "abcdefghjklmnopqrstwxyz"
  
  For i = 1 To CInt(Len(SourceStr))
    HelpChar = Mid(SourceStr, i, 1)
    If Asc(HelpChar) >= Asc(Left(Serial_S, 1)) And Asc(HelpChar) <= Asc(Right(Serial_S, 1)) Then
      '-------------------------------
      If Asc(HelpChar) = Asc(Right(Serial_S, 1)) Then
        GetChinesePYCode = GetChinesePYCode & Right(Serial_T, 1)
      Else
        For j = 2 To Len(Serial_S)
          TempS = Mid(Serial_S, j, 1)
          If Asc(HelpChar) < Asc(TempS) Then
            GetChinesePYCode = GetChinesePYCode & Mid(Serial_T, j - 1, 1)
            Exit For
          End If
        Next
      End If
      '-------------------------------
    Else
      GetChinesePYCode = GetChinesePYCode & ""
    End If
  Next
End Function



Function Proc_Add(nTemp) '将数字ID转换为 3位 0-9 A-Z
'三位0--9  A--Z
	nID = nTemp
	cID = ""
	For i = 2 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

'nDrugID = 0
'cDrugCatiID = ""
'nTemp = 0

'MySql = "Delete zd_DrugDetail"
'Conn.Execute(MySql)

'MySql = "Select b.DrugCatiID,a.分类名称,a.用例名称,a.规格,c.UnitID,a.零售价 From Menshi_1025 As a Left Join zd_DrugCati As b On b.DrugCatiName = a.分类名称 Left Join zd_DrugUnitType As c On a.单位 = c.UnitName Order By a.分类名称"
'Set Rs = Conn.Execute(MySql)

'While NOT Rs.EOF
'nTemp = nTemp + 1
'	If cDrugCatiID <> Trim(Rs("DrugCatiID")) Then '表示是新的一类用例
'		cDrugCatiID = Trim(Rs("DrugCatiID"))
'		nDrugId = 0
'		cDrugName = Trim(Rs("用例名称"))
'		If Trim(Rs("规格")) <> ""   Then
'			cSpecification = Trim(Rs("规格"))
'		Else
'			cSpecification = "需要修改"
'		End If
'		cUnitID = Trim(Rs("UnitID"))
'		nRetailPrice = CStr(Rs("零售价"))
'		'nTradePrice = CStr(Rs("批发价"))
'		cDrugID = cDrugCatiID + Proc_Add(nDrugID)
'		cPYCode = GetChinesePYCode(cDrugName)
'		
'		MySql = "Insert Into zd_DrugDetail (DrugID,DrugName,DrugCatiID,PYCode,Specification,RetailUnit,RetailPrice,OwnRatio) Values ('"+cDrugID+"','"+cDrugName+"','"+cDrugCatiID+"','"+cPYCode+"','"+cSpecification+"','"+cUnitID+"',"+nRetailPrice+",1)"
'		Response.Write MySql + CStr(nTemp) + "<br>"
'		Conn.Execute(MySql)
'	Else '表示老的用例
'		'cDrugCatiID = Trim(Rs("DrugCatiID"))
'		nDrugId = nDrugID + 1
'		cDrugName = Trim(Rs("用例名称"))
'		If Trim(Rs("规格")) <> ""   Then
'			cSpecification = Trim(Rs("规格"))
'		Else
'			cSpecification = "需要修改"
'		End If
'		cUnitID = Trim(Rs("UnitID"))
'		nRetailPrice = CStr(Rs("零售价"))
'		'nTradePrice = CStr(Rs("批发价"))
'		cDrugID = cDrugCatiID + Proc_Add(nDrugID)
'		cPYCode = GetChinesePYCode(cDrugName)
'		
'		MySql = "Insert Into zd_DrugDetail (DrugID,DrugName,DrugCatiID,PYCode,Specification,RetailUnit,RetailPrice,OwnRatio) Values ('"+cDrugID+"','"+cDrugName+"','"+cDrugCatiID+"','"+cPYCode+"','"+cSpecification+"','"+cUnitID+"',"+nRetailPrice+",1)"
'		Response.Write MySql + CStr(nTemp) + "<br>"
'		Conn.Execute(MySql)
'
'	End If
'
'	Rs.MoveNext
'Wend

'Set Rs = Nothing

'<三>将门市用例增加10000
Function Proc_Add14(nTemp) '将数字ID转换为 14位 0-9 A-Z
'14位0--9  A--Z
	nID = nTemp
	cID = ""
	For i = 13 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_Add14 = cID
End Function

	MySql = "Select DrugID From zd_DrugDetail Order By DrugID"
	Set Rs = Conn.Execute(MySql)
	
	MySql ="Delete yp_storage" 
	Conn.Execute(MySql)
	
	
	nCount = 1
	While NOT Rs.EOF
	cStorageCode = Proc_Add14(nCount)
	cDrugID = Trim(Rs("DrugID"))
		MySql = "InSert Into yp_Storage (StorageCode,DrugID,Amount,Position,Property) values ('"+cStorageCode+"','"+cDrugID+"',10000,'02','2')"	
		Response.Write MySql + "<br>"
		Conn.Execute(MySql)
	
		Rs.MoveNext
		nCount = nCount + 1
	Wend
	
Set Rs = Nothing	
%>

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

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