procedure.asp

来自「适用于网络/信息企业」· ASP 代码 · 共 113 行

<%function makerndid(byVal maxLen)
	Dim strNewPass
	Dim whatsNext, upper, lower, intCounter
	RANdomize
	For intCounter =1 To maxLen
	whatsNext = int(2 * Rnd)
	If whatsNext = 0 Then
		upper = 80 
		lower = 70
	Else
		upper = 48 
		lower = 39
	End If
	strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + upper))
	Next
	makerndid = strNewPass
End function

'==================================生成联系人ID
Function Ranid_LinkMan(ranid)

	Ranid_LinkMan=FALSE
	
	Set Rs_XXX = Conn.Execute("select LinkMan_ID From LinkMan Where LinkMan_ID='"& LinkMan_ID &"'")
	
		If NOT(Rs_XXX.bof AND Rs_XXX.eof) Then
		
			Ranid_LinkMan=TRUE
			
		End If
		
	Rs_XXX.close
	
	Set Rs_XXX = Nothing

End Function

'==================================生成联系记录ID
Function Ranid_Link_Log(ranid)

	Ranid_Link_Log=FALSE
	
	Set Rs_XXX = Conn.Execute("select Link_Log_ID From Link_Log Where Link_Log_ID='"& Link_Log_ID &"'")
	
		If NOT(Rs_XXX.bof AND Rs_XXX.eof) Then
		
			Ranid_Link_Log=TRUE
			
		End If
		
	Rs_XXX.close
	
	Set Rs_XXX = Nothing

End Function

'==================================生成任务ID
Function Ranid_Link_Task(ranid)

	Ranid_Link_Task = FALSE
	
	Set Rs_XXX = Conn.Execute("select Link_Task_ID From Link_Task Where Link_Task_ID='"& Link_Task_ID &"'")
	
		If NOT(Rs_XXX.bof AND Rs_XXX.eof) Then
		
			Ranid_Link_Task = TRUE
			
		End If
		
	Rs_XXX.close
	
	Set Rs_XXX = Nothing

End Function

'==================================生成我的客户ID
Function Ranid_My_Buyer(ranid)

	Ranid_My_Buyer = FALSE
	
	Set Rs_XXX = Conn.Execute("select My_Buyer_ID From My_Buyer Where My_Buyer_ID='"& My_Buyer_ID &"'")
	
		If NOT(Rs_XXX.bof AND Rs_XXX.eof) Then
		
			Ranid_My_Buyer = TRUE
			
		End If
		
	Rs_XXX.close
	
	Set Rs_XXX = Nothing

End Function

'==================================生成客户ID
Function Ranid_Buyer(ranid)

	Ranid_Buyer = FALSE
	
	Set Rs_XXX = Conn.Execute("select Buyer_ID From Buyer_Info Where Buyer_ID='"& Buyer_ID &"'")
	
		If NOT(Rs_XXX.bof AND Rs_XXX.eof) Then
		
			Ranid_Buyer = TRUE
			
		End If
		
	Rs_XXX.close
	
	Set Rs_XXX = Nothing

End Function
%>